Re: [Programmer-VB] Mohon Percernaan untuk penambahan nomor secara otomatis..

[agus muhardi,A.Md]

Dear All   Trim's buat teman2 yang udah membantu but masih blm berhasil juga....gimana dongk dah cari sana sini tetap blm juga bisa.   B. Reg's Agus muhardi     ==== Sy nyoba kasih solusi krn sy pernah ngalami kasus ini,solusi dr sy coba anda cek kode seperti: If kode <10 then     txtnobuk.txt=(rsbayar!nobukti) & "000" & kode elseif kode >9 then     txtnobuk.txt=(rsbayar!nobukti) & "00" & kode elseif kode>99 then     txtnobuk.txt=(rsbayar!nobukti) & "0" & kode else     txtnobuk.txt=(rsbayar!nobukti) & kode end if   Selamat mencoba. ===== pertanyaan saya Private Sub cmdtambah_Click() Dim angka, kode As Currency angka = Right(rsbayar!no_bukti, 4) kode = Val(angka) + 1 txtnobuk.Text = (rsbayar!no_bukti) + kode If cmdtambah.Caption = "&TAMBAH" Then     cmdtambah.Caption = "&SIMPAN" __._,_.___ 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  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. __,_._,___ Want to be your own boss? Learn how on Yahoo! Small Business.