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

[AgUnG.R]

Maaf ada yang kurang Mr Robby...   Dear Mr Robby.....   Gini bos....ditabel yang mau dimasukin nomor otomatis tersebut, buat field Nomor dengan type datanya numeric.(misalnya nama tablenya Invoice)   nah terus di tombol tambah listing programnya :(misalnya nama tablenya Invoice)       Set rs1 = Conn.Execute("Select * from Invoice order by Nomor desc")     If Not rs1.EOF Then         Nomor = rs1("Nomor") + 1         NoInvoice = "N-" & Format(Nomor, "0000000")         TxtNim=NoInvoice     Else         Nomor = 1         NoInvoice = "N-0000001 "         TxtNim=Noinvoice     End If     Set rs1 = Nothing   Ket : N ---> format penomoran aja.....     semoga membantu....   thanks Agung ----- Original Message ----- From: Robby To: Programmer-VB@yahoogroups.com Sent: Friday, June 23, 2006 5:23 PM Subject: Re: [Programmer-VB] Mohon Percernaan untuk penambahan nomor secara otomatis.. Oh iya sebelumnya pada deklarasi kode seharusnya string   dim Kode as String ----- Original Message ----- From: Robby To: Programmer-VB@yahoogroups.com 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 ----- From: agus muhardi,A.Md To: Programmer-VB@yahoogroups.com 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  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. __,_._,___