Đánh giá chủ đề:
  • 5 Votes - 3.8 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
#1
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]
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


File đính kèm
.rar   sohoadontangdan-reset.rar (Kích cỡ: 11.72 KB / Tải về: 422)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ZUNGNN , tieuholy04
#2
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 ?
Chữ ký của manhhung_hvpt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
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ừ!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Noname có thể demo ko ? nói thế em chưa hiểu .
Chữ ký của manhhung_hvpt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
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.co.cc/forum/Thread...u-date-stt
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
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 ạ .
Chữ ký của manhhung_hvpt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#7
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!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
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
Chữ ký của manhhung_hvpt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#9
Bạn tham khảo nhé
File


File đính kèm
.zip   tangtudongSP001.zip (Kích cỡ: 22.62 KB / Tải về: 272)
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hienchuoi9
#10
(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,,,
Mã:
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
Giúp mình add thêm 2 cái : SU và EM với ,, chân thành cảm ơn
Chữ ký của cuong0202 Xin chào, mình là cuong0202, Tham gia http://thuthuataccess.com/forum từ ngày 11-01 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hàm] Thư viện hàm cần biết cho người mới học truongtrungviet 30 1,044 17-11-16, 05:12 PM
Bài mới nhất: Nguyễn Hồng Quân
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 486 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,696 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  [Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng maidinhdan 1 379 18-12-15, 08:43 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] 25 thủ thuật sử dụng Combobox, ListBox, Option group (Sưu tầm) ongke0711 0 557 03-12-15, 05:06 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ