Free Dogecoin

Sunday, May 12, 2013

Biyan

Teknik Dasar Membuat Nomor Faktur otomatis Pada VB 6

Sesuai dengan judul Teknik Dasar,, SSooo,, saya hanya menjelaskan bagaimana dasar membuat Nomor Faktur Otomatis tanpa database... Ya kalau mau pake database teman2 coba sendiri ya....
Pertama desain bentuk formnya seperti gambar dibawah
 Double klik pada tombol lanjutkan dan isi script berikut :


    Dim otomatis As Integer
    
    If Text1 = "" Then
        Text1 = "FK-001" 'Nomor Faktur yang pertama
    Else
        otomatis = (Right(Text1, 3)) + 1 'pengambilan karekter pada text1 dari kanan ditambah 1
        Text1 = "FK-" & Format(otomatis, "000") 'membuat format menjadi 3 angka
    End If


kemudian Jalankan, maka hasilnya text1 masih kosong. Nah, jika menggunakan database, itu artinya data dalam database masih kosong. Ketika kita lakukan penyimpanan otomatis menjadi FK-001 (boleh diganti)

Dan coba klik tombol lanjutkan, maka akan otomatis bertambah




Biyan

About Biyan -

Author Description here.. Nulla sagittis convallis. Curabitur consequat. Quisque metus enim, venenatis fermentum, mollis in, porta et, nibh. Duis vulputate elit in elit. Mauris dictum libero id justo.

Subscribe to this Blog via Email :

4 Comments

Write Comments
diansyah
AUTHOR
September 4, 2013 at 5:23 AM delete

gan bisa minta projectnya gak gan
kalo bisa please kirimkan ke email ane gan : diansyah0905@gmail.com

dtunggu kunjungan baliknya gan

Reply
avatar
Djamals
AUTHOR
June 29, 2015 at 2:51 AM delete

TY gan source code, sangat bermanfaat bagi ane,,

Reply
avatar
very
AUTHOR
October 29, 2016 at 11:04 AM delete

ini kok right nya error ya

Reply
avatar
Unknown
AUTHOR
May 12, 2018 at 11:18 PM delete

membantu BANGET ...

tapi saya nemuin masalah, yaitu ketika aplikasi ditutup,
nomornya akan kembali menjadi FK-001 ketika aplikasi dinyalakan kembali.

bisa tidak nomor itu melanjut dr nomor yang sebelumnya ???

need help BANGET ...
trims b4 ...

Reply
avatar

Silahkan tinggalkan komentar anda
Terima Kasih