5/. Tạo Form Cập Nhật PCHI:
- hàm tăng mã các phiếu: nhập, xuất, thu, chi
Public Function NXTC(S As String)
Dim db As DAO.Database
Dim TB As DAO.Recordset
Set db = CurrentDb
Select Case S
Case "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 Select
If TB.RecordCount = 0 Then
NXTC = "PHIEU" & "001"
Exit Function
Else
TB.Index = "STT"
TB.MoveFirst
NXTC = "PHIEU" & Format(Val(Right(TB!MSP, 3)) + 1, "000")
End If
End Function
Mở 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

Private Sub toi_Click()
On Error GoTo Err_toi_Click
Me.MSP.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.MSP.SetFocus
Call cuoirec
Trang 2
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:

Me.xoa.Visible = True
Exit Sub
Err_luu_Click:
Trang 3
MsgBox Err.Description
End Sub
Private 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 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
6/. Taïo Form Caäp Nhaät PTHU:

Private Sub toi_Click()
On Error GoTo Err_toi_Click
Me.MSP.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.MSP.SetFocus
Call cuoirec
Me.toi.Enabled = False
Trang 5