Dear Hasan, Dim NoUrut As Integer 'String jg tidak mslh Dim Kode as String NoUrut = 1 'or Text1.text
'Hrs di Trim kalo NoUrut as Integer, 'Kalo tidak akan direturn nilai len type data NoUrut. Kode = String(5 - Len(Trim(NoUrut)), "0") & NoUrut Regards, Yulianto KwetChiro --- In [email protected], "Farid Thoyib (Indo)" <[EMAIL PROTECTED]> wrote: > > Kalau saya bikinnya kayak gini: > > Sub commandbutton_click() > > Dim nomor as String > Dim Val_nomor as Long > Dim pjg_nomor as Integer > > Nomor=textbox1.text > Val_nomor=val(Nomor)+1 > Pjg_nomor=len(trim$(Val_nomor)) > > Select Case pjg_nomor > Case is=1 > Textbox1.text= "0000" & Val_nomor > Case is=2 > Textbox1.text= "000" & Val_nomor > Case is=3 > Textbox1.text= "00" & Val_nomor > Case is=4 > Textbox1.text= "0" & Val_nomor > Case is > 4 > Textbox1.text=Val_nomor > End Select > > End Sub > > Ada yang lebih simple? > > >Date: Tue, 3 Jan 2006 23:53:19 -0800 (PST) > >From: Hasan <[EMAIL PROTECTED]> > >Subject: Tipe data > > >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 > 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/
