saya kasih trick buat kode otomatis…
misal untuk kode pelanggan sistem,kode buku atau lainyya.dimana mengecek dari kode database pada record terkahir..
misal var public koneksi = dbkoneksi, Jumlah otomatisasi kode dibatasi 1000 kode
dan kode akan ditampilkan pada textbox txtkode.text
public sub Buatkode()
dim tambah,SQL as string
SQL = “select id from Master ”
set Rs = dbkoneksi.execute(SQL)
If Rs.BOF then
txtkode.text =”K001″
exit sub
else
Rs.Requery
if not (Rs.bof and Rs.eof) Then
kode = Rs!id
kode = val(Right(kode, 3))
kode = kode +1
end if
if val(kode) < 10 then
kode =”K00″& kode
txtkode.text = kode
elseif val(kode) < 100 then
kode =”K0″& kode
txtkode.text = kode
elseif val(kode) <1000 then
kode= “K” & kode
txtkode.text=kode
else Msgbox ” WES ono 1000 Kebak..delete sek!!!”
end if
end sub
makasih mas atas infonya,..
kebetulan Q jg lg dapet tgs Visual Basic 6.0,.
kl da waktu mampir ke blogQ mas , tuk memper’erat pertemanan antar blogger di iNa,.
mkci infonya maz………
brguna banged
Ribet,,,,,,,
bisa di kembangkan lagi mas gimana yang mudah . kalau sperti itu pyeng…..
mas, klo misalkan ganti kode keawal lagi setiap sebulan sekalli misalnya gimana?
mas kalu bikin kode yang spesifik gimana..?? ada beberapa jenis barang… misal kita mau bikin format kode seperti ini “XX999″ dimana XX adalah jenis barang… Dan 999 Adalah no urut barang…
mas klo mu bkin kode otomatis berdasarkn jenis gmn y ??
Makasih, tulisannya sangat membantu