Membuat Nomor Faktur Otomatis Pada Visual Basic

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

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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 :

form login
form transaksi

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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 :

form login

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS