Re: [Programmer-VB]Berhasil But Masih kurang n Mohon Percernaan untuk penambahan nomor secara otomatis..

[agus muhardi,A.Md]

Dear All Suhu VB   Saya dah berhasil membuat nomor otomatis ketika di klik tambah jadi 0001 terus kliik tambah lagi 0002 (*) dan seterusnya but ada masalah lagi ketika klik tambah kok ga mo ngcek ke database yach... misal yang ada di EOF 0004 nah ketika saya klik tambah seharusnya menjadi 0005 tapi malah 0003 (*) lanjutan dari atas tadi dan jika semua isi table rsbayar saya hapus semuanya malah terjadi error ketika mengklik tombol tambah....   Mohon pencernaannya....dimana yang kurangnya...   ini potongan listingnya...   Private Sub cmdtambah_Click()     Dim angka, kode As String        angka = Right(rsbayar!no_bukti, 4)         kode = Format(Val(angka) + 1, "0000")         txtnobuk.Text = (rsbayar!no_bukti) + kode     If cmdtambah.Caption = "&TAMBAH" Then        cmdtambah.Caption = "&SIMPAN"         cmdedit.Caption = "&BATAL"   dan sebagai tambahan pada general saya ketik :   Dim wrkjet As Workspace Dim dbPembayaran_Kursus As Database Dim rsbayar As Recordset   Dan   Private Sub Form_Load()     Set wrkjet = CreateWorkspace("", "Admin", "", dbUseJet)     Set dbPembayaran_Kursus = OpenDatabase(App.Path & "\data\pembayaran_Kursus.mdb")     Set rsbayar = dbPembayaran_Kursus.OpenRecordset("tbl_pembayaran", dbOpenTable)     rsbayar.Index = "No_BUKTI" End sub   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. __,_._,___ Want to be your own boss? Learn how on Yahoo! Small Business.