membuat nomor faktur otomatis dengan visual basic
Selasa, 28 Agustus 2012
3
komentar
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
TERIMA KASIH ATAS KUNJUNGAN SAUDARA
Judul: membuat nomor faktur otomatis dengan visual basic
Ditulis oleh Unknown
Rating Blog 5 dari 5
Semoga artikel ini bermanfaat bagi saudara. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke http://ardiaplikasi.blogspot.com/2012/08/membuat-nomor-faktur-otomatis-dengan.html. Terima kasih sudah singgah membaca artikel ini.Ditulis oleh Unknown
Rating Blog 5 dari 5
Categories:
Artikel VB
3 komentar:
Gan.. yang berdasar tanggal ada gak gan artikelnya?, lok artikel tentang aplikasi trial bisa dishare gan, lagi butuh ni..
ga jelas
gan emang nya engga ada yang database nya mysql??
Posting Komentar