Cara Menciptakan Isyarat Nomor Otomatis Dengan Vb 6.0

Pada Tutorial VB 6.0 Kali ini kita akan menciptakan 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 ialah menyerupai gambar dibawah ini :

Jika sudah, Buka VB 6.0 anda
Kemudian buatlah design Form1 menyerupai 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..

Demikian Cara Membuat Kode atau Nomor Otomatis Dengan VB 6.0 supaya bermanfaat untuk anda
Silahkan KLIK DISINI untuk mendownload Tutorial diatas