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
KRISNA POS STANDAR
Aplikasi ini dapat menagani proses transaksi pada perusahaan khususnya usaha dagang. aplikasi dapat digunakan pada toko kelontong,mini market dan lain-lain. Aplikasi dapat diinstal dibanyak komputer tanpan harus ada notifikasi lagi dan aplikasi free update online. berikut screen shotnya :
Input data pada VB database Acces
Salam semua.hehe malem2 gini iseng ah posting. capa tau berguna, ok. sekarang we mau posting hal yang kecil tapi penting juga lo.. yaitu input data pada database acces dengan visual basic.
Ok. kemaren kan kita sudah buat cara koneksi vb nya. sekarang buat satu form lalu pada form load ketikan cara koneksi yang kemarin kita pelajari.isi form dengan dua texs box dan dua command button dan dua label, ganti label dengan caption kode dan nama lalu ganti caption command button dengan simpan dan keluar.
Double klik pada button simpan lalu ketikan sintak dibawah ini.
Dim simpan as string
simpan = "insert into barang (kode,nama) values ('" & textbox1.text & "','" & textboxt2.text & "')"
con.execute simpan
textboxt1.text =""
textboxt2.text =""
he.. segitu dulu ya.. selamat mecoba
Krisna Retail Lite
Krisna Retail Lite adalah aplikasi yang dapat digunakan untuk toko, aplikasi ini sangat cocok untuk bengkel yang menyediakan jasa service atau toko-toko lain yang menyediakan jasa service. aplikasi ini hanya dapat digunakan pada satu komputer yang tidak terkoneksi jaringan, Aplikasi dapat diinstal dibanyak komputer tanpa harus notifikasi / membeli aplikasi lagi, dan aplikasi free update onlie. berikut screnn shotnya :