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

[agus muhardi,A.Md]

Dear All... Mohon bantuan,,,,,saya sudah berhasil berkat bantuan teman2 milis tapi masih ada satu lagi yang kurang.... bigini ceritnya saya klik tombol tambah kemudian txtnobuk bertambah menjadi 0001 kemudian saya simpan terus klik tambah lagi maka txtnobukt menjadi 0002 dan seterusnya sampai di 0005 nah ketika saya hapus salah satu mislkan 0003 kemudian saya klik tambah kok txtnobuk jadi 0004 kan 0004 udah ada seharusnya 0003 donk kan dah di hapus...   Mohon bantuannya     Private Sub Nomor() Dim angka, kode, angka1, kode1 As String If rsbayar.EOF And BOF = Empty Then MsgBox "hh"     angka = "0000"     kode = Format(Val(angka) + 1, "0000")     txtnobuk.Text = kode Else MsgBox "else:1"          angka = rsbayar.RecordCount         kode = Format(Val(angka) + 1, "0000")         txtnobuk.Text = kode   End If End Sub   Private Sub cmdtambah_Click() If cmdtambah.Caption = "&TAMBAH" Then     cmdtambah.Caption = "&SIMPAN"     cmdedit.Caption = "&BATAL"     nomor __._,_.___ 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. __,_._,___ How low will we go? Check out Yahoo! Messenger’s low PC-to-Phone call rates.