Tạo form cập nhật PCHI
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 (42.12 KB, 6 trang )
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
- maừ leọnh caực nuựt trong form CNPCHI
Option Compare Database
Private Sub dau_Click()
On Error GoTo Err_dau_Click
Me.MSP.SetFocus
Call daurec
Me.dau.Enabled = False
Me.lui.Enabled = False
Me.toi.Enabled = True
Me.cuoi.Enabled = True
Exit Sub
Err_dau_Click:
MsgBox Err.Description
Resume Exit_dau_Click
End Sub
Private Sub Form_Activate()
DoCmd.Maximize
End Sub
Private Sub lui_Click()
On Error GoTo Err_lui_Click
Me.MSP.SetFocus
Call luirec
Me.toi.Enabled = True
Me.cuoi.Enabled = True
Exit Sub
Err_lui_Click:
MsgBox "Da den mau tin dau tien", 64, "Thong Báo"
Me.dau.Enabled = False
Me.lui.Enabled = False
End Sub
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:
MsgBox Err.Description
End Sub
Private Sub moi_Click()
On Error GoTo Err_MOI_Click
Me.MSP.SetFocus
Call moirec
Me.MSP.Locked = False
Me.NGAY.Locked = False
Me.LYDO.Locked = False
Me.SOTIEN.Locked = False
Me.moi.Visible = False
Me.xoa.Visible = False
Me.luu.Visible = True
Me.huy.Visible = True
MSP = NXTC("C")
Exit Sub
Err_MOI_Click:
MsgBox Err.Description
End Sub
Private Sub luu_Click()
On Error GoTo Err_luu_Click
Me.MSP.SetFocus
Call luurec
Me.MSP.Locked = True
Me.NGAY.Locked = True
Me.LYDO.Locked = True
Me.SOTIEN.Locked = True
Me.luu.Visible = False
Me.huy.Visible = False
Me.moi.Visible = True
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:
Trang 4
- maừ leọnh caực nuựt trong form PTHU:
Option Compare Database
Private Sub dau_Click()
On Error GoTo Err_dau_Click
Me.MSP.SetFocus
Call daurec
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.MSP.SetFocus
Call luirec
Me.toi.Enabled = True
Me.cuoi.Enabled = True
Exit Sub
Err_lui_Click:
MsgBox "Da den mau tin dau tien", 64, "Thong Báo"
Me.dau.Enabled = False
Me.lui.Enabled = False
End Sub
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
