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

[^\(vbmania79\)^]

Hello mas Agus ato mas Agung ya ;)..   Gimana kalo misalnya NoInvoice diganti dengan NoSurat contoh formatnya : 0000/SK-MEN/DK/AK/2006 saya coba coding seperti di bawah ga bisa. saya menggunakan MaskEd...   Private Sub cmdtambah_Click() Dim angka, kode As String angka = Left(rsbayar!NoSurat, 4) ==> ambil 4 digit pertama kode = kode=format(Val(angka) + 1,"0000")  ==> gimana caranya supaya formatnya menjadi 0001/SK-MEN/DK/AK/2006 txtNoSurat.Text = (rsbayar!NoSurat) + kode If cmdtambah.Caption = "&TAMBAH" Then     cmdtambah.Caption = "&SIMPAN"   setelah dicoba txtNoSurat menjadi ===> 0000/SK-MEN/DK/AK/2016     Tks atas pencerahannya mas..   Salam   ----- Original Message ----- From: AgUnG.R To: Programmer-VB@yahoogroups.com Cc: AgUnG.R Sent: Wednesday, June 28, 2006 8:33 AM Subject: Fw: [Programmer-VB] Mohon Percernaan untuk penambahan nomor secara otomatis.. . 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 __._,_.___ 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. __,_._,___