Selamat Siang :
Mohon pencerahan, sy mengalami stack number di nomor nota autonumber dgn code
dibawah:
On Error GoTo nol
DoCmd.RunCommand acCmdRefreshPage
Dim lastnumber As String
lastnumber = DLast("faktur", "TbPlgn")
DoCmd.GoToRecord , , acNewRec
Me![faktur] = "NT-" & Format(right(lastnumber, 8) + 1, "00000000")
nol:
data di tabel header dan detail sepertinya tidak lompat, bahkan saya coba hapus
beberapa nota terakhir tapi nomor tidak mau lanjut ke last + 1. kenapa ya?
kemudian ganti dengan code :
x = DCount("faktur", "tbPlgn", "[faktur]" <> "") + 3
xY = "NT-" & Format(x, "00000000")
nomor_baru = xY
bisa normal terurut kembali. pertanyaan nya kenapa harus +3
klo +1 malah hitungnya mundur 1 (mis: NT-00002415 menjadi NT-00002414)
akhirnya sy ganti +3 untuk mengakali sementara dan normal (NT-00002416 dst)
salam & terima kasih
