-
Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
Noname > 14-10-10, 03:06 PM
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
![[Hình: resetSochungtu.png]](http://i39.photobucket.com/albums/e193/duytuan2002/Access/resetSochungtu.png)
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 -
RE: Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
manhhung_hvpt > 08-03-11, 04:33 PM
Noname cho em hỏi : cái tăng số chứng từ này là tăng theo số 000->001 . nhưng em muốn tăng theo MaSP
SP001->SP002 thì làm ntn ? -
RE: Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
Noname > 08-03-11, 07:16 PM
Bạn tách tách ô số ra riêng và ô chữ ra riêng! Sau đó, dùng hàm update để cập nhật vào ô chứng từ! -
RE: Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
manhhung_hvpt > 08-03-11, 09:03 PM
Noname có thể demo ko ? nói thế em chưa hiểu . -
RE: Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
Noname > 08-03-11, 10:58 PM
Bạn tham khảo bài này và tự rút ra cho mình! Mình không thể làm giúp bạn được. Chỉ gợi ý thế thôi
http://thuthuataccess.com/forum/Thread-t...u-date-stt -
RE: Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
manhhung_hvpt > 08-03-11, 11:30 PM
Noname có thể chỉ cho em code đc ko ? bài " Tạo số chứng từ tăng dần và reset mỗi tháng " khác cái em hỏi .sao áp dụng đc ạ . -
RE: Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
Noname > 09-03-11, 12:21 AM
Thế bạn không thử làm lại rồi tự rút ra cho mình được à? Thay cái tháng bằng cái chữ SP, thế thôi! -
RE: Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
manhhung_hvpt > 10-03-11, 12:02 AM
Noname giúp em làm ví dụ bài này đi . Tăng mã Khách hàng từ KH001 ->KH002 trên form .tạo 1 MaKH mới từ 1 nút . Em đang cần gấp mà .em mò cả ngày rùi nản quá . cái bài tăng theo ngày em không áp dụng đc đâu .
Noname giup em di
http://www.mediafire.com/?4ntdl5aoftoix4q
-
RE: Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
haquocquan > 10-03-11, 12:56 AM
Bạn tham khảo nhé
File -
RE: Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
cuong0202 > 13-03-13, 12:29 PM
(10-03-11, 12:56 AM)haquocquan Đã viết: Bạn tham khảo nhé
File
dựa theo code của haquocquan,,mình làm được cái ,, số chứng từ tự tăng,, nhưng có cái,, trường dữ liệu của mình bắt đầu bằng 3 nhóm ký tự khác nhau : CU, EM, SU mình làm cho từng cái thì dc,,,
Giúp mình add thêm 2 cái : SU và EM với ,, chân thành cảm ơnMã:Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim KHmax
Dim rskh As Recordset
Set rskh = CurrentDb.OpenRecordset("dmkhnccnv")
If rskh.RecordCount > 0 Then
KHmax = DMax("cint(right([makhnccnv],len([makhnccnv])-4))", "dmkhnccnv")
Else
KHmax = 0
End If
rskh.Close
Set rskh = Nothing
DoCmd.GoToRecord , , acNewRec
Me.makhnccnv.Value = "CU" & Format(KHmax + 1, "0000")
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub