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

Sun, 25 Jun 2006 19:36:43 -0700

anda memakai recordcount+1 yah ?, saya sarankan ambil record terakhir kemudian +1 dijamin deh nobukti anda tidak ada yang sama
 
 

"agus muhardi,A.Md" <[EMAIL PROTECTED]> wrote:
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
How low will we go? Check out Yahoo! Messenger’s low PC-to-Phone call rates.

Send instant messages to your online friends http://uk.messenger.yahoo.com __._,_.___

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



__,_._,___

Kirim email ke