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
Membuat Nomor Faktur Otomatis Pada Visual Basic
Label:
Tutorial VB
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar