Auto Number

Didalam pembuatan sebuag program tentu taklepas dari pemberian sebuah nomer unik atau sebuah key yang nantinya dapat dijadikan alat untuk memanggil data tersebut, nah ni postingan kali ini saya akan membagikan sebuah listing yang membuat sebuah nomer otomatis (auto number )

Pertama bukalah program Visual Basic. buatlah sebuah database misalkan sebuah database dengan filed ( kode dan nama ) dengan nama table (barang) dan nama database (dtbarang) dan buatlah sebuah index dengan nama idxbarang

setelah kita buat database ketikan listing ini ke vb dengan membuat procedure auto baru dengan cara ditampilan view code klik tools-add procedure masukan name auto dan pada pilihan scope pilih private, lalu klik ok.

Private Sub auto()
Dim urut As String * 4
Dim hitung As Byte
data1.recordset.Index = "idxbarang"
If data1.recordset.RecordCount = 0 Then
urut = "0001"
Else
data1.recordset.MoveLast
hitung = data1.recordset!kdbarang + 1
urut = Right("0000" & hitung, 4)
dtbarang.Refresh
End If
txtkode.Text = urut

End Sub

pada listing diatas maka kiata akan medapatkan sebuah kode "0001" jika kita ingin membuat sebuah kodee dengan komibasi tanggan misalkan mmyy0001 (bulan tahun dan no urut ) maka listingnya seperti ini :

Private Sub auto()
Dim urut As String * 8
Dim hitung As Byte
data1.recordset.Index = "idxbarang"
A = format(now, "MMyy)
If data1.recordset.RecordCount = 0 Then
urut = A + "0001"
Else
data1.recordset.MoveLast
hitung = Right(data1.recordset!kdbarang, 4) + 1
urut = A + Right("0000" & hitung, 4)
dtbarang.Refresh
End If
txtkode.Text = urut

End Sub

maka kode yang dikasilakan adalah "04110001" (bulan april tahun 2011 no urut 0001")
semoga bermanfaat...