Cara Membuat Kode Nomor Otomatis Dengan VB 6.0

ada Tutorial VB 6.0 Kali ini kita akan membuat Kode atau Nomor Otomatis pada VB 6.0, langkahnya sangat mudah, silahkan ikuti tutorial dibawah ini :

Buatlah Database dengan Nama : DBJNM.mdb
Buatlah tabel dengan nama : TBL_ANGGOTA
Design tabelnya adalah seperti gambar dibawah ini :

Jika sudah, Buka VB 6.0 anda
Kemudian buatlah design Form1 seperti gambar dibawah ini :

Kemudian masukan koding dibawah ini :

 
Dim Koneksi As New ADODB.Connection
Dim RSAnggota As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSAnggota = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"
End Sub
Private Sub Form_Activate()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.Enabled = False
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBJNM.mdb; "
Adodc1.RecordSource = "TBL_ANGGOTA"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Call NomorOtomatis
Text2.SetFocus
End Sub
Private Sub Command1_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim TambahAnggota As String
    TambahAnggota = "Insert Into TBL_ANGGOTA values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"
    Koneksi.Execute TambahAnggota
    MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
    Form_Activate
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub NomorOtomatis()
Call BukaDB
On Error Resume Next
RSAnggota.Open ("select * from TBL_Anggota Where KodeAnggota In(Select Max(KodeAnggota)From TBL_Anggota)Order By kodeAnggota Desc"), Koneksi
RSAnggota.Requery
    Dim Urutan As String * 6
    Dim Hitung As Long
    With RSAnggota
        If .EOF Then
            Urutan = "AGT" + "001"
            Text1 = Urutan
        Else
            Hitung = Right(RSAnggota!KodeAnggota, 3) + 1
            Urutan = "AGT" + Right("000" & Hitung, 3)
        End If
        Text1 = Urutan
    End With
End Sub

Jika sudah semua, silahkan jalankan Project anda..