AutoNumber VB6

mungkin judulnya akan banyak yang menganggap ah biasa, tapi taukah kalian manfaatnya untuk yang ni.. 😉

ok langsung saja tidak usah bertele-tele penjelasannya, inti dari coding ini adalah kalian dapat menggunakan fungsi ini disemua form anda, dan tentunya tidak perlu capek2 lagi menulis kode di setiap form. this not good and efficient.

this code is:

Public Function BuatNomerBaru(ByVal srcSQL As String, ByVal srcFields As String, ByVal srcFormat As String, Optional srcTrue As Boolean, Optional srcTanggal As Date)
Dim rsNomer As New Recordset
Dim noLalu, noBaru As String

Set rsNomer = Nothing
rsNomer.CursorLocation = adUseClient
rsNomer.Open srcSQL, cnn, adOpenStatic, adLockReadOnly
If rsNomer.EOF Then
If srcTrue = True Then
BuatNomerBaru = srcFormat & Format(srcTanggal, "YYMM") & "0001"
Else
BuatNomerBaru = srcFormat & "0001"
End If
Else
If srcTrue = True Then
noLalu = Val(Right(rsNomer.Fields(srcFields), 4) + 1)
noBaru = String(4 - Len(noLalu), "0") & noLalu
BuatNomerBaru = srcFormat & Format(srcTanggal, "YYMM") & noBaru
Else
noLalu = Val(Right(rsNomer.Fields(srcFields), 4) + 1)
noBaru = String(4 - Len(noLalu), "0") & noLalu
BuatNomerBaru = srcFormat & noBaru
End If
End If

Set rsNomer = Nothing

End Function

bagaimana sih cara pakai dari coding di atas??
cukup mudah jawabannya.

'Nama TextBox utk Nomer Urut = TxtKode
TxtKode = BuatNomerBaru ("Select ID from m_sekolah Order by ID Desc", "ID", Now, False, "S")

Contoh Lain menggunakan Tahun dan Bulan:

'Untuk Yang Menggunakan format Tahun dan Bulan
TxtNo = BuatNomerBaru ("Select ID from m_registrasi Where Left(ID,4)='" & Format(Now, "yymm") & "' Order by ID Desc", "ID", Now, True)