Tạo form cập nhật PCHI

Tạo form cập nhật PCHI

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

- mã lệnh các nú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/ Tạo Form Cập Nhật PTHU:

Trang 4

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

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("T")

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:

MsgBox Err.Description

Trang 6