Mudah2an ini membantu.

 

Private Sub cmdTambah_Click()

 If IsNumeric(txtno_bukti.Text) Then

    txtno_bukti.Text = Val(txtno_bukti.Text) + 1

 Else

    txtno_bukti.Text = "0000"

 End If

End Sub

 

 

Bos, next time baca buku dulu yah, setidaknya ada usahanya dulu baru nanya…


From: [email protected] [mailto:[email protected]] On Behalf Of agus muhardi,A.Md
Sent: Thursday, June 22, 2006 11:01 AM
To: [email protected]
Subject: [Programmer-VB] Membuat nomor urut secara otomatis..

 

Dear All..

 

Salam buat semuanya, saya anggota baru dan baru kenal VB

sekarang saya mo mintak source untuk membuat nomor urut

jadi logikanya begini:

Pada txtno_bukti saya ingin ketika orang mengklik tombol tambah maka txt_bukti secara otomatis memberika nomor urutnya

misal : 0001 setelah di klik tombol tambah menjadi 0002 dan seterusny...

 

Mohon bantuan teman milis untuk memberikan source codenya....langsung aja Japri ke aku,,,

 

Atas perhatiannya saya ucapkan terima kasih..

Agus Muhardi

 


Yahoo! Sports Fantasy Football ’06 - Go with the leader. Start your league today!

__._,_.___

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer





SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language


YAHOO! GROUPS LINKS




__,_._,___

Kirim email ke