Phiếu nhập hàng

Thời Gian:Ngày: Datepart“d”,ngaynhap Tháng: Datepart“m”,ngaynhap Năm: Datepart“yyyy”,ngaynhap Quý: Datepart“q”,ngaynhap Lấy tuổi: YearDate-Yearngaynhap Ngày Nhập là ngày hiện hành: ->Def

Thời Gian:

Ngày: Datepart(“d”,ngaynhap)

Tháng: Datepart(“m”,ngaynhap)

Năm: Datepart(“yyyy”,ngaynhap)

Quý: Datepart(“q”,ngaynhap)

Lấy tuổi:

Year(Date())-Year(ngaynhap)

Ngày Nhập là ngày hiện hành:

->Defauld value : =Date()

Truy Vấn

Truy vấn tuyển chọn : Query Wizard //Lọc Danh Sách

Truy vấn tạo bảng: Make Table

Truy vấn cập nhật: Update

VD: Update to:[DONGIA]*1.1

Criteria :”từ khóa” //VD áo thun, ĐVT

Truy vấn chéo : có ít nhất 3 Field

-1 Field : Row Heading

-1 Field : Column Heading

-1 Field : Value

Dấu thuộc tính: ->Visible : No

Đếm:

STT: Đặt 1 text vào Detail Chọn mục Running Sum: ->over group

Đếm theo Record [1/10] : [=CurrentRecord&”/”&Count(*)]

Trong SubForm nếu làm cbo thì chọn Field bên nhiều -> Lấy lại cbo hiện thị bên ít.

Private Sub CmdDau_Click()

DoCmd.GoToRecord , , acFirst

End Sub

Private Sub CmdSau_Click()

If CurrentRecord = DCount("*", "Dmcongtrinh") Then

MsgBox "Dang o mau tin cuoi, khong the di chuyen" Else

DoCmd.GoToRecord , , acNext

End If

End Sub

Private Sub CmdTruoc_Click()

If CurrentRecord = 1 Then

MsgBox "Day la mau tin dau,khong the di chuyen ve truoc" Else

DoCmd.GoToRecord , , acPrevious

End If

End Sub

Private Sub CmdCuoi_Click()

DoCmd.GoToRecord , , acLast

End Sub

-Private Sub CmdGhi_Click()

If IsNull(CongTrinhID) = True Then

MsgBox "Thieu Ma CT"

ElseIf DCount("CongTrinhID", "DMCongTrinh", "CongTrinhID='" & CongTrinhID & "'") = 1 Then

MsgBox "Khoa Chinh Khong Duoc Trung"

CongTrinhID.SetFocus

Else

DoCmd.RunCommand acCmdSaveRecord

DoCmd.GoToRecord , , acLast

End If

End Sub

Private Sub CmdKhongGhi_Click()

If Me.Dirty = True Then

Me.Undo

Else

SendKeys "{esc}", True

End If

DoCmd.GoToRecord , , acLast

End Sub

-Private Sub ChuDauTuID_NotInList(NewData As String, Response As Integer)

MsgBox "Vui Long Chon Chu Dau Tu"

Response = acDataErrContinue

ChuDauTuID.Undo

End Sub

Private Sub CmdIn_Click()

If MsgBox("Bna co muon in bao cao khong ?", vbInformation + vbYesNo) = vbNo Then Cancel = True

Else

DoCmd.OpenReport "BaoCao", acViewPreview, [CongTrinhID], "[congtrinhid]=forms! dmcongtrinh!congtrinhid"

End If

End Sub

-Private Sub CmdSua_Click()

CongTrinhID.SetFocus

CongTrinhID.Locked = False

TenCongTrinh.Locked = False

DiaChi.Locked = False

ChuDauTuID.Locked = False

TenChuDauTu.Locked = False

ChiPhiCongTrinhSubform.Locked = False

CmdGhi.Enabled = True

CmdKhongGhi.Enabled = True

End Sub

-Private Sub CmdThem_Click()

DoCmd.GoToRecord , , acNewRec

CongTrinhID.SetFocus

CongTrinhID.Locked = False

………

ChiPhiCongTrinhSubform.Locked = False

CmdGhi.Enabled = True

CmdKhongGhi.Enabled = True

End Sub

-Private Sub CmdXoa_Click() Xóa 1

On Error GoTo LOI

DoCmd.SetWarnings (False)

DoCmd.RunCommand acCmdDeleteRecord

If Me.Recordset.RecordCount > 0 Then

Me.Recordset.MovePrevious

End If

Exit Sub

LOI:

End Sub

(Chọn Limit to list->yes)->(Chọn On not in list)

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) Xóa 2

If MsgBox("Ban Co muon xoa mau tin nay khong ?", vbQuestion + vbYesNo, "Canh Bao") = vbNo Then

Cancel = True

Else

Response = acDataErrContinue

End If

End Sub

-Private Sub Form_Delete(Cancel As Integer) Xóa 3

If DCount("*", "chiphicongtrinh", "congtrinhid=forms!dmcongtrinh!congtrinhid") > 0 Then MsgBox "Khong The Xoa vi lien quan", vbCritical + vbOKOnly, "Khong Xoa Duoc" Cancel = True

End If

End Sub

-Private Sub Form_Load()

CongTrinhID.Locked = True

TenCongTrinh.Locked = True

…………

ChiPhiCongTrinhSubform.Locked = True

CmdGhi.Enabled = False

CmdKhongGhi.Enabled = False

End Sub

Private Sub cmdThoat_Click()

If MsgBox("Ban co muon thoat khoi form khong ?", vbInformation + vbYesNo, "Chu y") = vbNo Then

Cancel = True

Else

DoCmd.Close , , acSaveYes

End If

End Sub