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
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
