Belajar Cara Membuat Kode Nomor Otomatis Dengan VB 6.0 - Hallo sahabat Emboh Gakro, Pada Artikel yang anda baca kali ini dengan judul Belajar Cara Membuat Kode Nomor Otomatis Dengan VB 6.0, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Belajar VB6, Artikel Tutorial VB 6.0, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Belajar Cara Membuat Kode Nomor Otomatis Dengan VB 6.0
link : Belajar Cara Membuat Kode Nomor Otomatis Dengan VB 6.0

Belajar Cara Membuat Kode Nomor Otomatis Dengan VB 6.0

Pada 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..

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

Demikianlah Artikel Belajar Cara Membuat Kode Nomor Otomatis Dengan VB 6.0

Sekianlah artikel Belajar Cara Membuat Kode Nomor Otomatis Dengan VB 6.0 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Belajar Cara Membuat Kode Nomor Otomatis Dengan VB 6.0 dengan alamat link https://menjadiembohgakro.blogspot.com/2015/12/belajar-vb6cara-membuat-kode-nomor.html

Tweet