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

Fri, 23 Jun 2006 19:50:59 -0700

kayaknya harus ditambahkan
rsbayar.movelast atau rsbayar.movefirst tergantung ordernya
 


"agus muhardi,A.Md" <[EMAIL PROTECTED]> wrote:
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
Want to be your own boss? Learn how on Yahoo! Small Business.

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