Makasih banget y rekans...., saya dah dapet neh
caranya, saya baca2 tuh reply nya, ahirnya saya pake
deh cara ini, buat yang punya kasus sama kali aja bisa
ngebantu jg,gini neh:
ditxtline saya set nilainya dulu...
Txtline.Text = "00001"
terus di command button saya pake ini:
Dim LastLineNo As String
LastLineNo = Txtline.Text
Txtline.Text = Right("0000" & Trim(str(Int(LastLineNo)
+ 1)), 5)
Ternyata berhasil juga deh, thanx bgt y buat semua
masukannya...
Thanx..
Hasan
--- Purwedi Kurniawan <[EMAIL PROTECTED]>
wrote:
> kalau masalah tipe data, di vb kayaknya ga ada tipe
> data yg pake nol
> didepan, tp kalau tipe data yg bisa menyimpan data
> dg format seperti
> itu mungkin cuman string dan variant.
> u. masalah formatnya, cara yg lebih gampang adalah
> dg menggunakan fungsi
> format dr vb sendiri.
>
> mis kita butuh 5 digit angka dg nol didepan seperti
> "00001", cukup datanya
> kita format dg perintah --> format("1","00000")
> kalau butuh 3 digit "001" gunakan -->
> format("1","000")
> dsb.
>
> best regards
> [wwn]
>
> On 1/4/06, Jenar Suseno <[EMAIL PROTECTED]> wrote:
> >
> > Saya sering alamai kasu itu, aku jg belum tau apa
> ada
> > tipe data seperti itu.
> > Selama ini aku bikin manual saja.
> >
> > Logikanya begini:
> > 1. tentukan berapa digit nomornya misal = "000001"
> > berarti 6 digit
> > misal = 00001 berarti 5 digit.
> > 2. Saat proses simpan, cek data pada tabel, kalau
> > kosong
> > langsung diisi "00001"
> > 3. Kl isi, maka buat recordset yang diorder by
> nomor
> > tesebut.
> > - move last
> > - buat variavel misal x=val(rs_data!nomor)+1
> > - buat string "0" sebanyak 5 dikurangi lebar x
> > - y=string(5-len(trim(str(x))),"0")+trim(str(x))
> > - y inilah yang nanti jadi nomor baru
> > jadi kl no sebelumnya = "00001"
> > x=val("00001")+1 '---isinya akan 2
> > y=string(5-1,"0")+trim(str(2))
> > y="00002"
> >
> > Prosedur ini bisa dibuat saat input data baru atau
> > simpan data.
> >
> > Rgd,
> >
> >
> >
> > --- Hasan <[EMAIL PROTECTED]> wrote:
> >
> > > Rekans...
> > > Saya mo tanya neh, saya lagi buat program vb dan
> sql
> > > server.
> > > Gimana seh caranya, untuk nampilin dan ngesave
> data
> > > dengan format 00001. Situasi jelas nya gini,
> textbox
> > > a
> > > nilainya 00001, trs pas saya klik command button
> dia
> > > akan berubah jadi 00002, dikilik lagi jadi
> 00003,
> > > begitu seterusnya, ada tipe data nya ga seh,
> abis
> > > dari
> > > tadi saya coba pasti angka nol nya lgs ilang( ga
> > > muncul). Tolong bantu saya ya...
> > >
> > > Thanx...
> > > Hasan
> > >
> > >
>
__________________________________________
Yahoo! DSL Something to write home about.
Just $16.99/mo. or less.
dsl.yahoo.com
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
