Membuat Kode / Nomor Otomatis VB.6.0

Mengawali bulan juni ini saya akan sedikit berbagi ilmu masih dengan microsoft visual basic 6.0 dengan bahasan yang sudah banyak diposting di blog atau website yang lain. ya, kali ini saya akan membahas tentang cara membuat kode / nomor otomatis di vb.6.0 dengan sontoh  yang simple.

Berikut adalah penampakan form yang saya buat untuk membuat kode/nomor otomatis

dan berikut adalah codingnya :

' - - - - - -coding ini saya simpan di modules, kalian juga bisa menyimpannya di form - - - - -

Global conn As New ADODB.Connection
Global cmd As New ADODB.Command
Global rs As New ADODB.Recordset
Sub konek()
Set conn = New Connection
      koneksi = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MDBK"
            'koneksi = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=BDPPRO"
 conn.Open koneksi
End Sub

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


'- - - - - - - - - - - - - - - - - - - coding untuk membuat kode otomatis - - - - - - - - - - - - - - -

Sub KODEBRG()
Call konek
Set rs = New ADODB.Recordset
rs.Open "select max(KODE) as KODE from BARANG WHERE NAMA_BARANG = '" & TNAMA & "'", conn
'Set rs = cmd.Execute
If IsNull(rs(0)) Then
    c = 1
Else
    a = Val(Right(rs!KODE, 3))
   b = a + 1
   c = b
End If
TKODE.Text = Left(TNAMA.Text, 1) & Right(TNAMA.Text, 2) & Format(c, "###000")
End Sub

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


'- - - - - - - - - - - - - - - dikarenakan saya tidak menyimpannya langsung di form, saya akan memanggilnya di form saat running dan di text nama barang - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


Private Sub Form_Load()
Call KODEBRG
End Sub

Private Sub TNAMA_Change()
Call KODEBRG
End Sub

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


Biar sedikit tapi semoga postingan ini bisa bermanfaat buat yang membutuhkan, terima kasih.
-- jika ada yang mau ditanyakan, atau tidak dimengerti silahkan tinggalkan komentar