Membuat nomor faktur otomatis pada vb

Dalam pembuatan aplikasi penjualan, biasanya pasti ada no fakturnya. nah biar ga repot-repot ngetik no faktur ada baiknya no fakturnya dibuat secara otomatis, jadi bisa lebih mempermudah proses transaksinya. ok langusng  aja ya..



silahkan ketikan code berikut :
Private Sub Form_Activate()
    Dim Rst As New ADODB.Recordset
    Dim s As String
  
    Rst.Open "select max(right(no_faktur,14)) as Nomor from beli_kredit", con
  
  
    If IsNull(Rst!Nomor) Then
        s = "000000000000001"
    Else
        s = "000" & Format(Rst!Nomor + 1, "000000000000")
    End If
  

    Text11 = s
End Sub

Keterangan...!
Dim Rst As New ADODB.Recordset adalah variabel yang mencari data dalam database
Rst.Open "select max(right(no_faktur,14)) as Nomor from beli_kredit", con adalah Sintax SQL untuk mencari data terakhir yang sebelah kanan dari field no_faktur sebanyak 14, asumsinya no_fakturnya maxlengtnya 15 dari tabel beli kredit. dan con adalah nama koneksinya

Ok segitu dulu ya buat hari ini seomga bisa membantu .. dan berguna. heheheh

Salam Coding