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

[AgUnG.R]

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")     Else         Nomor = 1         NoInvoice = "N-0000001 "     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. __,_._,___