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
Subscribe to:
Post Comments (Atom)
0 Response to "Membuat No Faktur / Invoice Otomatis"