--- In [email protected], "Indra" <[EMAIL PROTECTED]> wrote: > > Salam, > saya ingin minta bantuan temen2 mengenai masalah visual basic dengan > database access yang digunakan secara multi user > Saya sudah membuat program mirip program inventory, > dimana didalam program tersebut ada nomer transaksi yang otomatis > berdasarkan record transaksi terakhir di database, yang jadi masalah > adalah bagaimana caranya bila pada saat digunakan bersamaan tidak > dapat mengesave data, > berikut ini ringkasan code program saya waktu form load dan update data > > trima kasih > > Private Sub FORM_LOAD() > Set KERTAS = OpenDatabase("G:\KERTAS1.MDB") > Set KODEKERTAS = KERTAS.OpenRecordset("KODEKERTAS") > Set BONKERTAS = OpenDatabase("G:\BONKERTAS.MDB") > Set RSBON9 = BONKERTAS.OpenRecordset("RSBON9") > Set RSBON9B = BONKERTAS.OpenRecordset("RSBON9B") > Set RSNERACA = KERTAS.OpenRecordset("RSNERACA") > Call NOMOR > RSBON9.LockEdits = True > RSBON9B.LockEdits = True > KODEKERTAS.LockEdits = True > End Sub > > On Error Resume Next > With RSBON9B > .AddNew > !BAGIAN = UCase(CB_BAGIAN.Text) > !JAM = JAM.Caption > !NOTRANS = NOTRANS.Caption > !TANGGAL = Format(Date, "SHORT DATE") > !User = ARAYA.jeneng > !TOTAL = Val(TOTAL.Text) > Do > Err.Number = 0 > .Update > Loop Until Err.Number = 0 > DBEngine.Idle dbFreeLocks > DBEngine.Idle dbRefreshCache > End With >
penomoran otomatis nya bagaimana..? kalo multiuser itu biasanya dapat nomor otomatisnya setelah tombol save...jadi siapa yang save duluan dia yang dapat nomor pertama...
