Writer: Noname
site: http://thuthuataccess.com
Vui lòng giữ nguyên thông tin tác giả và site nếu bạn dùng hoặc chia sẻ thủ thuật này
-------------------------------------
Trong thực tế, một số chứng từ yêu cầu có số tăng dần và reset lại, cụ thể là các sổ thu , chi. Các quyển hóa đơn bán lẻ...
Thủ thuật này cho phép chúng ta tạo ra các số chứng từ tăng dần và reset lại 1 khi nhấn vào nút reset.
Tạo số chứng từ tự tăng dần và reset lại mỗi khi người dung yêu cầu
Chúng ta có 1 table lưu các số chứng từ như sau:
Tblhoadon(STT,soHD,ngay, donvi,…)
Vẽ 1 form với 2 nút nhấn
cmdNew : tạo chứng từ mới với số chứng từ tăng dần
cmdNewReset : Tạo chứng từ mới với số chứng từ trả lại từ 1
Textbox: SoDH: Thể hiện số chứng từ khi click nút cmdNew hoặc cmdNewReset
Dưới đây là code xử lý sự kiện click của hai nút nhấn
Mã:
Private Sub cmdNew_Click()
Dim soCT
DoCmd.GoToRecord , , acNewRec
soCT = DLast("[SoHD]", "tblHoaDon")
SoHD = Format(soCT + 1, "0000000")
End Sub
Mã:
Private Sub cmdNewReset_Click()
DoCmd.GoToRecord , , acNewRec
SoHD = Format(1, "0000000")
End Sub
Mời xem demo