Tutorial autonumber VB6

Program ini akan memberi kemudahan pada kita saat mengentry kode atau nomer atau string lainnya ketika akan ditambahkan.Karena Kode/Nomor akan muncul denagn urut secara otomatis.
Contoh, struktur pada kode barang adalah SN-001 , SN-002, SN-003 dan seterusnya.Dengan program ini tidak akan direpotkan dengan memperkirakan kode selanjutnya dan yang lebih penting mengurangi tingkat kesalahan.
Yang pertama yang harus dilakukan adalah membuat database program dahulu terserah mau menggunakan access atau yang lainnya juga boleh.Penulis disini menggunkan database access, karena kita hanya akan membuat AutoNumber saja maka  rancanglah form terserah anda yang penting ada textboxtnya untuk menampung AutoNumber.Saya disini hanya menggunakan 1 button dan 1 textboxt saja.

Jika sudah membuat database ketiklah coding di bawah ini.


Private Sub AutoNumber ()
Call BukaDb
RsBarang.Open ("select * from Barang where KdBarang In (Select Max(KdBarang) From Barang) Order By KdBarang Desc"), Conn
RsBarang.Requery
Dim Urutan as String * 6
Dim Hitung as Long
With RsBarang
If .EOF Then
Urutan = "SN-" + "001"
TextBoxt1.Text= Urutan
Else
Hitung = Right (!KdBarang, 3) + 1
Urutan = "SN-" + Right  ("000" & Hitung, 3)
End If
TextBoxt1.Text= Urutan
End With
End Sub


Pada Command Input masukan coding dibawah ini

Call AutoNumber

Selesai… selamat mencoba.