Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng

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

Code:

Private Sub cmdNew_Click()
Dim soCT
DoCmd.GoToRecord , , acNewRec
soCT = DLast("[SoHD]", "tblHoaDon")

SoHD = Format(soCT + 1, "0000000")
End Sub

Code:

Private Sub cmdNewReset_Click()
DoCmd.GoToRecord , , acNewRec
SoHD = Format(1, "0000000")
End Sub

Mời xem demo

download

Thảo luận thêm tại đây
http://thuthuataccess.com/forum/thread-305.html