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

Tweet