Oh iya sebelumnya pada deklarasi kode seharusnya string
 
dim Kode as String
----- Original Message -----
From: Robby
Sent: Friday, June 23, 2006 5:04 PM
Subject: Re: [Programmer-VB] Mohon Percernaan untuk penambahan nomor secara otomatis..

pada kode ini:
    kode = Val(angka) + 1
ubah menjadi
    kode=format(Val(angka) + 1,"0000")
----- Original Message -----
Sent: Friday, June 23, 2006 4:48 PM
Subject: [Programmer-VB] Mohon Percernaan untuk penambahan nomor secara otomatis..

Dear All Suhu VB
 
Maaf Baru kenal Vb nih saya punya masalah ketika saya  klik tombol tambah saya ingin txtnobukti secara otomatis bertambah ( 0001 s/d seterusnya) dengan mengecek di database terlebih dahulu...
tetapi malah yang betambah hanya di depannya saja seperti ini  2 bukan 0002 berikut listing yang saya gunakan
 
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"
 
B.Reg's
Agus Muhardi


Yahoo! Groups gets better. Check out the new email design. Plus there’s much more to come.
__._,_.___

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