Giao trinh Microsoft Access 2-6.doc
5/. Tạo Form Cập Nhật PCHI:- hàm tăng mã các phiếu: nhập, xuất, thu, chiPublic Function NXTC(S As String)Dim db As DAO.DatabaseDim TB As DAO.RecordsetSet db = CurrentDbSelect Case SCase "N"Set TB = db.OpenRecordset("PNK")Case "X"Set TB = db.OpenRecordset("PXK")Case "T"Set TB = db.OpenRecordset("PHIEUTHU")Case "C"Set TB = db.OpenRecordset("PHIEUCHI")End SelectIf TB.RecordCount = 0 ThenNXTC = "PHIEU" & "001"Exit FunctionElseTB.Index = "STT"TB.MoveFirstNXTC = "PHIEU" & Format(Val(Right(TB!MSP, 3)) + 1, "000")End IfEnd FunctionMở Table PNK, PXK, PHIEUTHU, PHIEUCHI ở chế độ Design, vào menu View/Index, tạo 1 Index mới tên STT, sắp xếp fieldø MSP giảm dần. Mục đích sắp xếp để khi mở Table với index này thì các mẫu tin sẽ được liệt kê MSP giảm dần.Chọn thẻ Module, cuối Module tạo thêm một hàm mới, đặt tên là NXTC(s as string). Hàm này sẽ trả về mã số phiếu mới phụ thuộc số thứ tự của phiếu. Trang 1 - mã lệnh các nút trong form CNPCHIOption Compare DatabasePrivate Sub dau_Click()On Error GoTo Err_dau_Click Me.MSP.SetFocus Call daurec Me.dau.Enabled = False Me.lui.Enabled = False Me.toi.Enabled = True Me.cuoi.Enabled = True Exit SubErr_dau_Click: MsgBox Err.Description Resume Exit_dau_ClickEnd SubPrivate Sub Form_Activate()DoCmd.MaximizeEnd SubPrivate Sub lui_Click()On Error GoTo Err_lui_Click Me.MSP.SetFocus Call luirec Me.toi.Enabled = True Me.cuoi.Enabled = True Exit SubErr_lui_Click: MsgBox "Da den mau tin dau tien", 64, "Thong B¸o" Me.dau.Enabled = False Me.lui.Enabled = FalseEnd SubPrivate Sub toi_Click()On Error GoTo Err_toi_Click Me.MSP.SetFocus Call toirec Me.dau.Enabled = True Me.lui.Enabled = True Exit SubErr_toi_Click: MsgBox "Da den mau tin cuoi cung", 64, "Thong bao" Me.toi.Enabled = False Me.cuoi.Enabled = FalseEnd SubPrivate Sub cuoi_Click()On Error GoTo Err_cuoi_Click Me.MSP.SetFocus Call cuoirec Trang 2 Me.toi.Enabled = False Me.cuoi.Enabled = False Me.dau.Enabled = True Me.lui.Enabled = True Exit SubErr_cuoi_Click: MsgBox Err.DescriptionEnd SubPrivate Sub thoat_Click()On Error GoTo Err_thoat_Click Call thoatrec Exit SubErr_thoat_Click: MsgBox Err.DescriptionEnd SubPrivate Sub moi_Click()On Error GoTo Err_MOI_Click Me.MSP.SetFocus Call moirec Me.MSP.Locked = False Me.NGAY.Locked = False Me.LYDO.Locked = False Me.SOTIEN.Locked = False Me.moi.Visible = False Me.xoa.Visible = False Me.luu.Visible = True Me.huy.Visible = True MSP = NXTC("C") Exit SubErr_MOI_Click: MsgBox Err.DescriptionEnd SubPrivate Sub luu_Click()On Error GoTo Err_luu_Click Me.MSP.SetFocus Call luurec Me.MSP.Locked = True Me.NGAY.Locked = True Me.LYDO.Locked = True Me.SOTIEN.Locked = True Me.luu.Visible = False Me.huy.Visible = False Me.moi.Visible = True Me.xoa.Visible = True Exit SubErr_luu_Click: Trang 3 MsgBox Err.DescriptionEnd SubPrivate Sub huy_Click()On Error GoTo Err_huy_Click Me.MSP.SetFocus Call huyrec Me.MSP.Locked = True Me.NGAY.Locked = True Me.LYDO.Locked = True Me.SOTIEN.Locked = True Exit SubErr_huy_Click: MsgBox "Huy thao tac", 64, "Thong bao" Me.huy.Visible = False Me.luu.Visible = False Me.moi.Visible = True Me.xoa.Visible = TrueEnd SubPrivate Sub xoa_Click()On Error GoTo Err_xoa_Click Call xoarec Exit SubErr_xoa_Click: MsgBox Err.DescriptionEnd Sub6/. Taùo Form Caọp Nhaọt PTHU: Trang 4 - mã lệnh các nút trong form PTHU:Option Compare DatabasePrivate Sub dau_Click()On Error GoTo Err_dau_Click Me.MSP.SetFocus Call daurec Me.dau.Enabled = False Me.lui.Enabled = False Me.toi.Enabled = True Me.cuoi.Enabled = True Exit SubErr_dau_Click: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Activate()DoCmd.MaximizeEnd SubPrivate Sub lui_Click()On Error GoTo Err_lui_Click Me.MSP.SetFocus Call luirec Me.toi.Enabled = True Me.cuoi.Enabled = True Exit SubErr_lui_Click: MsgBox "Da den mau tin dau tien", 64, "Thong B¸o" Me.dau.Enabled = False Me.lui.Enabled = FalseEnd SubPrivate Sub toi_Click()On Error GoTo Err_toi_Click Me.MSP.SetFocus Call toirec Me.dau.Enabled = True Me.lui.Enabled = True Exit SubErr_toi_Click: MsgBox "Da den mau tin cuoi cung", 64, "Thong bao" Me.toi.Enabled = False Me.cuoi.Enabled = FalseEnd SubPrivate Sub cuoi_Click()On Error GoTo Err_cuoi_Click Me.MSP.SetFocus Call cuoirec Me.toi.Enabled = False Trang 5 Me.cuoi.Enabled = False Me.dau.Enabled = True Me.lui.Enabled = True Exit SubErr_cuoi_Click: MsgBox Err.DescriptionEnd SubPrivate Sub thoat_Click()On Error GoTo Err_thoat_Click Call thoatrec Exit SubErr_thoat_Click: MsgBox Err.DescriptionEnd SubPrivate Sub moi_Click()On Error GoTo Err_MOI_Click Me.MSP.SetFocus Call moirec Me.MSP.Locked = False Me.NGAY.Locked = False Me.LYDO.Locked = False Me.SOTIEN.Locked = False Me.moi.Visible = False Me.xoa.Visible = False Me.luu.Visible = True Me.huy.Visible = True MSP = NXTC("T") Exit SubErr_MOI_Click: MsgBox Err.DescriptionEnd SubPrivate Sub luu_Click()On Error GoTo Err_luu_Click Me.MSP.SetFocus Call luurec Me.MSP.Locked = True Me.NGAY.Locked = True Me.LYDO.Locked = True Me.SOTIEN.Locked = True Me.luu.Visible = False Me.huy.Visible = False Me.moi.Visible = True Me.xoa.Visible = True Exit SubErr_luu_Click: MsgBox Err.Description Trang 6 . MsgBox Err.Description Resume Exit_dau_ClickEnd SubPrivate Sub Form_Activate()DoCmd.MaximizeEnd SubPrivate Sub lui_Click()On Error GoTo Err_lui_Click Me.MSP.SetFocus. SubErr_dau_Click: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Activate()DoCmd.MaximizeEnd SubPrivate Sub lui_Click()On Error GoTo Err_lui_Click Me.MSP.SetFocus