Vẽ combo box trong access
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (37.17 KB, 6 trang )
Err_thoat_Click:
MsgBox Err.Description
End Sub
Private 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 Sub
Err_MOI_Click:
MsgBox Err.Description
End Sub
Private 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 Sub
Err_luu_Click:
MsgBox Err.Description
End Sub
Private 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 Sub
Err_huy_Click:
MsgBox "Huy thao tac", 64, "Thong bao"
Me.huy.Visible = False
Me.luu.Visible = False
Me.moi.Visible = True
Me.xoa.Visible = True
End Sub
Private Sub xoa_Click()
On Error GoTo Err_xoa_Click
Call xoarec
Exit Sub
Err_xoa_Click:
MsgBox Err.Description
End 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ã DMKH
Public Function MKH()
Dim db As DAO.Database
Dim KH As DAO.Recordset
Set db = CurrentDb
Set KH = db.OpenRecordset("DMKH")
If KH.RecordCount = 0 Then
MKH = "KH01"
Exit Function
Else
KH.Index = "STT"
KH.MoveFirst
MKH = "KH" & Format(Val(Right(KH!MAKH, 2)) + 1, "00")
End If
Trang 3
End Function
- maừ leọnh caực nuựt
Option Compare Database
Private 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 Sub
Err_dau_Click:
MsgBox Err.Description
End Sub
Private Sub Form_Activate()
DoCmd.Maximize
End Sub
Private Sub lui_Click()
On Error GoTo Err_lui_Click
Me.MAKH.SetFocus
Call luirec
Me.toi.Enabled = True
Me.cuoi.Enabled = True
Exit Sub
Err_lui_Click:
MsgBox "Da den mau tin dau tien", 64, "Thông Báo"
Me.dau.Enabled = False
Me.lui.Enabled = False
End Sub
Private Sub toi_Click()
On Error GoTo Err_toi_Click
Me.MAKH.SetFocus
Call toirec
Me.dau.Enabled = True
Me.lui.Enabled = True
Exit Sub
Err_toi_Click:
MsgBox "Da den mau tin cuoi cung", 64, "Thong bao"
Me.toi.Enabled = False
Me.cuoi.Enabled = False
End Sub
Private 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 Sub
Err_cuoi_Click:
MsgBox Err.Description
End Sub
Private Sub thoat_Click()
On Error GoTo Err_thoat_Click
Call thoatrec
Exit Sub
Err_thoat_Click:
MsgBox Err.Description
End Sub
Private 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 Sub
Err_MOI_Click:
MsgBox Err.Description
End Sub
Private 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 Sub
Err_luu_Click:
Trang 5
