Membuat penomoran otomatis dengan visual basic 6.0

Selamat malam sobat Bloger,  semoga dalam keadaan baik dan  selalu dalam perlindungannya.

Baiklah, langsung ke intinya saja.  Kali ini saya akan berbagi tentang cara membuat penomoran otomatis  menggunakan vb 6.0, penomoran ini bisa anda terapkan untuk membuat kode barang, kode supplier dan lain-lain, terserah imajinasi anda.. Hehe

Oke, ini:

Pertama buat dulu form,  terserah anda, tapi dalam contoh ini saya buat ini:

Selanjutnya buka view code dan tulis ini:

Option Explicit

Dim panjang As Integer

Sub no()

Call buka

sql = "select * from anggota"

rs.Open sql, konek, adOpenDynamic, adLockBatchOptimistic

With rs

txtno.Text = ""

If .EOF = False Then

.MoveFirst

Do While Not .EOF

txtno.Text = .Fields("no")

.MoveNext

Loop

txtno.Text = "A-" & Val(txtno.Text) + 1 & ""

Else

txtno.Text = "A-1"

End If

End With

End Sub

Private Sub csave_Click()

Call buka

panjang = Len(txtno.Text) - 2

sql = "insert into anggota values('" & Mid(txtno.Text, 3, panjang) & "','" & _

txtnama.Text & "','" & txtalamat.Text & "')"

konek.Execute (sql)

Form_Load

End Sub

Private Sub Form_Load()

Call no

End Sub

Selanjutnya kembali ke form atau langsung klik run, dan ini hasilnya:

Lalu, saya coba kasih input seperti ini:

Dan saya simpan, dan next

Coba dilihat dengan seksama, A-1 berubah menjadi  A-2 , begitu seterusnya jika anda menyimpan data baru, nomor akan bertambah dengan sendirinya  dan selanjutnya anda bisa memasukkan data baru  dan selanjutnya terserah anda.., hehe.

Selamat malam,  semoga bisa berguna…