Cara membuat No.Transaksi/Faktur secara otomatis

Salam Semangat Kawan..............!!!!!!!!

     Saat ini saya akan membantu anda dalam membuat No.faktur atau transaksi secara OTOMATIS....
Caranya :

1.Anda harus membuat Tabel terlebih dahulu (Tabel Barang,Suplier,Pembelian,Penjualan) atau 
    tabel yang lain.

2.Membuat form diVisual Basic (Label,TextBox,Combo dll)

3. Masukan Koding dibawah ini pada Form_Activate.

Private Sub AutoFaktur()
Call BukaDB
RSPembelian.Open ("select * from Pembelian Where NoBeli In(Select Max(NoBeli)From Pembelian)Order By NoBeli Desc"), koneksi
RSPembelian.Requery
    Dim Urutan As String * 6
    Dim Hitung As Long
    With RSPembelian
        If .EOF Then
            Urutan = "INV" + "001"
            Text1 = Urutan
        Else
            Hitung = Right(!NoBeli, 3) + 1
            Urutan = "INV" + Right("000" & Hitung, 3)
        End If
        Text1 = Urutan
    End With
End Sub

Jika selesai maka jalankanlah  "F5"

SEMOGA BERMANFAAT................!!!!!!!