Script Auto Number Pada Visual Basic 6.0

Mungkin jika anda membuat sebuah program, anda menginginkan hasil yang bagus bukan? Program yang anda buat akan lebih bagus dan menarik jika diberikan auto number. Pengguna program anda tidak sush-susah lagi didalam menuliskan kode. Selain itu, auto number juga berguna untuk meminimalisirkan kesalahan jika database program anda menggunakan primary key. Script yang saya share disini adalah dengan menggunakan angka dan huruf sebagai inisial. Contohnya SN001, SN002, SN003, dan seterusnya. Langsung aja ke scriptnya.

Contoh yang menggunakan label bantu berupa Label1

Call Buka_Pembeli

sql = "select * from Pembeli where ID_Pembeli In (Select Max(ID_Pembeli) From Pembeli) Order By ID_Pembeli Desc"

Set rsa = con.Execute(sql)

With rsa

If .EOF Then

Label8.Caption ="SN"+ "001"

TxtIDPembeli.Text = Label8.Caption

Else

Label8.Caption = rsa.Fields("ID_Pembeli")

a = Trim(Right(Label8.Caption, Len(Label8.Caption) - 2))

b = Right("000" & Val(a + 1), 3)

TxtIDPembeli.Text = "SN"+b

End If

End With

Letakkan script diatas pada Form_Load, ataupun pada component pada Visual Basic 6.0.