Giao trinh Microsoft Access 2-4.doc
Err_thoat_Click: MsgBox Err.DescriptionEnd SubPrivate Sub moi_Click()On Error GoTo Err_MOI_Click Me.MAHANG.SetFocus Call moirec Me.MAHANG.Locked = False Me.TENHANG.Locked = False Me.QUICACH.Locked = False Me.DVT.Locked = False Me.GIABAN.Locked = False Me.TONDAUKY.Locked = False Me.TGTONDAUKY.Locked = False Me.moi.Visible = False Me.xoa.Visible = False Me.luu.Visible = True Me.huy.Visible = True Exit SubErr_MOI_Click: MsgBox Err.DescriptionEnd SubPrivate Sub luu_Click()On Error GoTo Err_luu_Click Me.MAHANG.SetFocus Call luurec Me.MAHANG.Locked = True Me.TENHANG.Locked = True Me.QUICACH.Locked = True Me.DVT.Locked = True Me.GIABAN.Locked = True Me.TONDAUKY.Locked = True Me.TGTONDAUKY.Locked = True Me.luu.Visible = False Me.huy.Visible = False Me.moi.Visible = True Me.xoa.Visible = True Exit SubErr_luu_Click: MsgBox Err.DescriptionEnd SubPrivate Sub huy_Click()On Error GoTo Err_huy_Click Me.MAHANG.SetFocus Call huyrec Me.MAHANG.Locked = True Trang 1 Me.TENHANG.Locked = True Me.QUICACH.Locked = True Me.DVT.Locked = True Me.GIABAN.Locked = True Me.TONDAUKY.Locked = True Me.TGTONDAUKY.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 Sub Trang 2 Vẽ 1 ComboBox trên Form Header, vào Properties của ComboBox, đổi Column Count = 2, chọn thuộc tính Row Source, nhấn vào nút có . bên phải sẽ hiện ra 1 Query, Add vào Table DMNCC, chọn 2 cột hiển thò là MANCC và TENNCC giống như sau:3/.Tạo Form Cập Nhật DMKH:- tăng mã DMKHPublic Function MKH()Dim db As DAO.DatabaseDim KH As DAO.RecordsetSet db = CurrentDbSet KH = db.OpenRecordset("DMKH")If KH.RecordCount = 0 ThenMKH = "KH01"Exit FunctionElseKH.Index = "STT"KH.MoveFirstMKH = "KH" & Format(Val(Right(KH!MAKH, 2)) + 1, "00")End If Trang 3 End Function- mã lệnh các nútOption Compare DatabasePrivate Sub dau_Click()On Error GoTo Err_dau_Click Me.MAKH.SetFocus Call dau 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.MAKH.SetFocus Call luirec Me.toi.Enabled = True Me.cuoi.Enabled = True Exit SubErr_lui_Click: MsgBox "Da den mau tin dau tien", 64, "Th«ng B¸o" Me.dau.Enabled = False Me.lui.Enabled = FalseEnd SubPrivate Sub toi_Click()On Error GoTo Err_toi_Click Me.MAKH.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.MAKH.SetFocus Call cuoirec Trang 4 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.MAKH.SetFocus Call moirec Me.MAKH.Locked = False Me.TENKH.Locked = False Me.DIACHI.Locked = False Me.NODAUKY.Locked = False Me.moi.Visible = False Me.xoa.Visible = False Me.luu.Visible = True Me.huy.Visible = True MAKH = MKH() Exit SubErr_MOI_Click: MsgBox Err.DescriptionEnd SubPrivate Sub luu_Click()On Error GoTo Err_luu_Click Me.MAKH.SetFocus Call luurec Me.MAKH.Locked = True Me.TENKH.Locked = True Me.DIACHI.Locked = True Me.NODAUKY.Locked = True Me.luu.Visible = False Me.huy.Visible = False Me.moi.Visible = True Me.xoa.Visible = True Exit SubErr_luu_Click: Trang 5 MsgBox Err.Description Trang 6 . SubErr_dau_Click: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Activate()DoCmd.MaximizeEnd SubPrivate Sub lui_Click()On Error GoTo Err_lui_Click Me.MAKH.SetFocus