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

Sun, 25 Jun 2006 19:47:55 -0700

Dear Agus Muhardi, A.Md

Ini ada penambahan dari saya, moga2 membantu.

 

 

 

Private Sub cmdtambah_Click()
Dim angka, kode As Currency
angka = Right(rsbayar!no_bukti, 4)
kode = Val(angka) + 1
txtnobuk.Text = right((“0000” & (rsbayar!no_bukti) + kode), 4)


If cmdtambah.Caption = "&TAMBAH" Then
    cmdtambah.Caption = "&SIMPAN"

 

Regards,

Ibrahim

 

From: [email protected] [mailto:[email protected]] On Behalf Of agus muhardi,A.Md
Sent: Friday, June 23, 2006 4:49 PM
To: [email protected]
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