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 ngày 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ó Field -1 Field : Row Heading -1 Field : Column Heading -1 Field : Value Dấu thuộc tính: ->Visible : No Đếm: STT: Đặt text vào Detail Chọn mục Running Sum: ->over group Đếm theo Record [1/10] : [=CurrentRecord&”/”&Count(*)] Trong SubForm làm cbo chọn Field bên nhiều -> Lấy lại cbo thị bên 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 = 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" CongTrinhID.SetFocus ElseIf DCount("CongTrinhID", "DMCongTrinh", "CongTrinhID='" & CongTrinhID & "'") = 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 On Error GoTo LOI DoCmd.SetWarnings (False) DoCmd.RunCommand acCmdDeleteRecord If Me.Recordset.RecordCount > 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 If MsgBox("Ban Co muon xoa mau tin 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 If DCount("*", "chiphicongtrinh", "congtrinhid=forms!dmcongtrinh!congtrinhid") > 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