Invoice Number Otomatis di VB 6

Disini saya akan mencoba membuat Penomoran Secara Otomatis di Invoice Number Transaksi.

Adapun Tutorialnya sebagai Berikut :



Disini saya asumsikan membuat Invoice Number di Transaksi Penjualan Barang dengan Nama Database DB_Jual dan Transaksi Sebagai Atributnya.

Database dengan Format.mdb (Access 2002-2003)

Komponen yang Diperlukan :

• ADO Data Control 6.0 (OLEDB)
• ADO DataGrid Control 6.0 (OLEDB)

Selanjutnya Buatlah Tampilan Form Seperti Berikut :

Object Properties :

TextBox 1 = ( Property : Name : Text1 )
TextBox 2 = ( Property : Name : Text2 )
TextBox 3 = ( Property : Name : Text3 )
TextBox 4 = ( Property : Name : Text4 )

Label 1 = ( Property : Name : Label1 - Caption : NO. TRANSAKSI )
Label 2 = ( Property : Name : Label2 - Caption : ID PELANGGAN )
Label 3 = ( Property : Name : Label3 - Caption : ID BARANG )
Label 4 = ( Property : Name : Label4 - Caption : HARGA )

CommandButton 1 = ( Property : Name : cmd_tambah - Caption : TAMBAH )
 
Adodc = ( Property : Name : Adodc1 ) 
Adodc = ( Property : Visible : False ) 

DataGrid = ( Property : Name : DataGrid1 )

1. Buatlah Koneksi Database Access ke Adodc terlebih dahulu, Tutorial Koneksi Database dengan Adodc Bisa Dilihat di link dibawah ini :

Tutorial Koneksi Database Access dengan Adodc VB 6

2. Buatlah Sub Statement dengan kode berikut :

 Sub No_Transaksi_Auto()

Dim Urutan As String
Dim Hitung As Integer

Adodc1.Refresh
With Adodc1.Recordset

If .RecordCount = 0 Then

    Urutan = "TRC" & "001"
    Me.Text1.Text = Urutan
    Else
    .MoveLast

        Hitung = Val(Right(!No_Transaksi, 3)) + 1
        Urutan = "TRC" & Right("00" & Hitung, 3)

    Me.Text1.Text = Urutan

End If
End With
End Sub

3. Masukkan Kode Berikut di  Command Button TAMBAH :

 Call No_Transaksi_Auto

Lebih Lengkap seperti gambar berikut :