Membuat No Faktur / Invoice Otomatis

Berikut ini adalah Sintaq atau Koding untuk membuat No Faktur atau Invoice secara otomatis. Biasanya ini digunakan pada Form Transaksi baik itu Pembelian, Penjualan, Penyewaan dan lain-lain


Berikut Sintaqnya :

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

Masukan Sintaq diatas ke dalam Form_activate dan perhatikan pada Text1 jika transaksi sudah tersimpan secara otomatis No Faktur atau Invoice berubah

Tweet