Membuat Auto Number di Vb 6.0

 Membuat Autonumber / Kode Otomatis di Vb 6 .

Kali ini saya akan memposting bagaimana mebuat autonumber pada pemprograman visual basic 6.0. Semoga dapat dimengerti dengan jelas.

Pertama yang kita siapkan yaitu :
1.Secangkir Kopi Panas (hee).
2.Berdoa
Ok langsung saja :
- Buat Lah database terlebih Dahulu(database dari ms.Acces , ingat format harus ".mdb"
* Nama Table : tbservis
* Field            : - kode
                         - namaservis

Koding :

Sub AutoNomor()

 If rs.State = 1 Then rs.Close
rs.Open ("select * from tbservis where kode In (Select Max(kode) From tbservis) Order By kode Desc"), koneksi
rs.Requery
Dim Urutan As String * 6
Dim Hitung As Long
With rs
If .EOF Then
Urutan = "SR-" + "001"
txtkodeservis.Text = Urutan
Else
Hitung = Right(!kode, 3) + 1
Urutan = "SR-" + Right("000" & Hitung, 3)
End If
txtkodeservis.Text = Urutan
End With
End Sub

Lihat Gambah :

Semoga Berhasil Gan.

Tweet