Dinamic CustomAutoNumber
-----------------------------------------
Mungkin sudah terlalu sering kita membuat CustomAutoNumber. Namun pernahkah
terpikirkan jika CustomAutoNumber yang kita buat akan terus menerus SELALU
BERTAMBAH. Dalam suatu kondisi mungkin saja tidak menjadi masalah, tetapi
hal ini menjadi lucu jika terjadi pada kasus surat menyurat, faktur dan
sejenisnya. Apanya yang menjadi lucu?? Bukankah akan menjadi "aneh" jika
terdapat nomor faktur yang berisi nomor besar seperti 987, 899876, 99988 dan
lain sebagainya. Lalu, solusi apa yang dirasa perlu untuk diberikan???
Nah, konsep Dinamic CustomAutoNumber merupakan suatu terobosan unik yang
diharapkan dapat menjawab masalah seperti diatas. Pada konsep ini, kita
dapat menyederhanakan pemahaman dalam pembuatan CustomAutoNumber seperti
kita akan atur bahwa CustomAutoNumber tersebut secara OTOMATIS AKAN MERESET
nomor kembali ke awal pada setiap BULAN BERJALAN. Inilah salah satu hal yang
nantinya akan disampaikan dalam Access Training Intensive Class of Inventory
COntrol Database Protection (ICDP-2009).
Berikut contoh penggunaan Dinamic CustomAutoNumber :
Private Sub cmdadd_Click()
On Error GoTo nol
DoCmd.RunCommand acCmdRefreshPage
DoCmd.GoToRecord , , acNewRec
If IsNull(Me.NomorAkhir) Or Me.NomorAkhir = Empty Then
Me![no_fak] = "001/FLUSINFO-FAK/" & Me.BulanRomawi & Right([tgl], 2)
Else
If Month([tgl]) = Month(Date) Then
Me![no_fak] = Format(Left(Me.NomorAkhir, 3) + 1, "000") &
"/FLUSINFO-FAK/" _
& Me.BulanRomawi & "/" & Right([tgl], 2)
Else
Me![no_fak] = Me.SetNomor & "/FLUSINFO-FAK/" &
Me.BulanRomawi & "/" & Right([tgl], 2)
End If
End If
Me.tgl.SetFocus
nol:
End Sub
Note : Masih banyak "KEJUTAN" lagi dalam materi ICDP-2009... :)
