Membuat Kode Otomatis pada VB 6

selamat pagi sahabat savana,,,lama juga tidak posting,,kali ini ane mau share cara membuat kode anggota yang tampil otomatis dengan VB6, lagsung aja ya,,,ni koding untuk membuat otomatis

Dim Urutan As String * 5 Dim Hitung As Byte If AdoAnggota.Recordset.RecordCount = 0 Then Urutan = "A0001" Else AdoAnggota.Recordset.MoveLast Hitung = Val(Right(AdoAnggota.Recordset!NoAgt, 4)) + 1 Urutan = "A" & Right("0000" & Hitung, 4) End If TxtNo.Text = Urutan
keterangan:

1. dim urutan as string >>variabel string yang akan kita pake untuk menampung hasil dari variabel hitung sebelum di tampilkan
2. dim hitung as byte >>variabel dengan type byte nantinya yang kita gunakan untuk penghitungan dan akan di tampung pada variabel urutan

bagi yang masih bingung ane share koding lengkapnya download
semoga bermanfaat ya gan,,,

By Haris HS
A Short Description about youself

Stay Connected With Us

Share and Spread

Related Articles