boleh tau, isi dari rsbayar!no_bukti apa ya contohnya
misal:  N0001, N0002 ?
gitu ya?
----- Original Message -----
Sent: Friday, June 23, 2006 5:52 PM
Subject: Re: [Programmer-VB] Mohon Percernaan untuk penambahan nomor secara otomatis..

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"


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