Membuat Kode otomatis pada Visual Basic 6.0

Posted: November 21, 2009 in IT POINTS

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

About these ads
Komentar
  1. awan mengatakan:

    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,.

  2. artdie mengatakan:

    mkci infonya maz………
    brguna banged

  3. Erwinsyah mengatakan:

    Ribet,,,,,,,
    bisa di kembangkan lagi mas gimana yang mudah . kalau sperti itu pyeng…..

  4. andiapabae mengatakan:

    mas, klo misalkan ganti kode keawal lagi setiap sebulan sekalli misalnya gimana?

  5. Andri mengatakan:

    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…

  6. CweKalem (@cwekalem) mengatakan:

    mas klo mu bkin kode otomatis berdasarkn jenis gmn y ??

  7. Akbar Zuckerberg mengatakan:

    Makasih, tulisannya sangat membantu

Berikan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s