RE: [Programmer-VB] Mohon pencernaan

[vbPian]

Perhatikan kode berwarna biru...   Private Sub Nomor() Dim angka, kode, angka1, kode1 As String If rsbayar.EOF And BOF = Empty Then     angka = "0000"     kode = Format(Val(angka) + 1, "0000")     txtnobuk.Text = kode Else         rsbayar.MoveLast            Angka=Right(rsbayar!no_bukti,4)         kode = Format(Val(angka) + 1, "0000")         txtnobuk.Text = kode Select Case kode     Case 0 To 9            -----Original Message----- From: Programmer-VB@yahoogroups.com [mailto:[EMAIL PROTECTED]On Behalf Of agus muhardi,A.Md Sent: Monday, June 26, 2006 10:50 AM To: Programmer-VB@yahoogroups.com Subject: [Programmer-VB] Mohon pencernaan Dear All Suhu VB   Mohon bantuan saya membuat nomor secara otomatis 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 0006 donk ..gimana please bantu saya.......   Mohon bantuannya     Private Sub Nomor() Dim angka, kode, angka1, kode1 As String If rsbayar.EOF And BOF = Empty Then     angka = "0000"     kode = Format(Val(angka) + 1, "0000")     txtnobuk.Text = kode Else          angka = rsbayar.RecordCount         kode = Format(Val(angka) + 1, "0000")         txtnobuk.Text = kode Select Case kode     Case 0 To 9         txtnobuk.Text = "000" & Trim(Str(kode))     Case 10 To 99         TxtnobukPO.Text = "00" & Trim(Str(kode))     Case 100 To 999         txtnobuk.Text = Trim(Str(kode))     End Select   End If End Sub   Private Sub cmdtambah_Click() If cmdtambah.Caption = "&TAMBAH" Then     cmdtambah.Caption = "&SIMPAN"     cmdedit.Caption = "&BATAL"     nomor   B.Reg's Agus Muhardi Yahoo! Messenger with Voice. PC-to-Phone calls for ridiculously low rates. __._,_.___ 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. __,_._,___