- taïo modul capnhat
Option Compare Database
Public Sub moirec()
'DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdRecordsGoToNew
End Sub
Public Sub luurec()
'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
DoCmd.RunCommand acCmdSaveRecord
End Sub
Public Sub huyrec()
'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.RunCommand acCmdUndo
End Sub
Public Sub xoarec()
'DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
'DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.RunCommand acCmdDeleteRecord
End Sub
- tao module dichuyen
Option Compare Database
Public Sub daurec()
'DoCmd.GoToRecord , , acFirst
DoCmd.RunCommand acCmdRecordsGoToFirst
End Sub
Public Sub luirec()
'DoCmd.GoToRecord , , acPrevious
DoCmd.RunCommand acCmdRecordsGoToPrevious
End Sub
Public Sub toirec()

Case "huy"
DoCmd.RunCommand acCmdUndo
End Select
End Sub
* chú ý khi thiết kế không chọn đối tượng control wizard trên thanh công cụ toolbox
V/.
Thiết kế form giao diện:
1/.Thiết Kế Form Thay Đổi Ngày Hệ Thống
(Dùng làm form Startup trong chương trình)
- nhấn nút more control ở thanh công cụ toolbox,
chọn microsoft date and time picker control,
kéo thả vào form.
Private Sub cancel_Click()
Me.ok.SetFocus
Me.layngay.Visible = False
Me.NGAY.Visible = False
End Sub
Private Sub Form_Activate()
DoCmd.Maximize
End Sub
Private Sub ok_Click()
Me.ok.SetFocus
Me.NGAY.Visible = True
Me.layngay.Visible = True
Me.Refresh
Trang 2
Date = Me.layngay
Me.Refresh
End Sub
Đối tượng ngay: Hiển thò ngày hiện tại của hệ thống bằng cách dùng hàm Date()

vào mã nhà cung cấp nên nó có 1 tham số là mã nhà cung cấp tương ứng mà ta sẽ đưa vào
sau.
Public Function MAHH(NCC As String)
Trang 3
Dim db As DAO.Database
Dim HH As DAO.Recordset
Set db = CurrentDb
Set HH = db.OpenRecordset("DMHH")
If HH.RecordCount = 0 Then
MAHH = NCC & "001"
Exit Function
Else
HH.Index = "STT"
HH.MoveFirst
MAHH = NCC & Format(Val(Right(HH!MAHANG, 3)) + 1, "000")
End If
End Function
Mã hàng sẽ được tạo tương ứng với nhà cung cấp đã cung cấp mặt hàng đó kết hợp với số
thứ tự tăng dần tương ứng với số mặt hàng mà nhà cung cấp đã cung cấp cho cửa hàng.
NCC01 cung cấp mặt hàng CocaCola => Mã hàng tương ứng là NCC01001
NCC01 cung cấp mặt hàng Pepsi => Mã hàng tương ứng là NCC01002
Giải thích các giải thuật trong hàm:
Khai báo biến DB kiểu Database (cơ sở dữ liệu), sau đó đặt biến DB tham chiếu đến cơ sở dữ
liệu hiện đang mở, có nghóa là DB chứa tất cả các Table từ DMKH đến CTPXK.
Khai báo biến RS kiểu Recordset (kiểu bảng), đặt biến RS tham chiếu đến bảng cần xử lý là
DMHH để tạo mã hàng tương ứng.
Kiểm tra Table DMHH có mẫu tin nào chưa, nếu chưa có sẽ phát sinh mã hàng = Tham số
nhập vào & “001” (tham số nhập vào chính là MANCC)
Nếu đã có mẫu tin thì sẽ sắp xếp Table DMHH theo field MAHANG giảm dần bằng cách gọi
một Index tên STT đã tạo sẵn phần trên, sau đó nhảy lên mẫu tin đầu tiên.

Me.MAHANG.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 MANCC_AfterUpdate()
MAHANG = MAHH(Me.MANCC)
End Sub
Private Sub toi_Click()
On Error GoTo Err_toi_Click
Me.MAHANG.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.MAHANG.SetFocus
Call cuoirec
Me.toi.Enabled = False