Vẽ combo box trong access

Vẽ combo box trong access

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

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

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

End Function

- mã lệnh các nú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

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:

MsgBox Err.Description