Penomoran otomatis, pada waktu form load dan setelah disave, saat ini penomoran masih berdasarkan jumlah record, tapi sebagian sudah saya rubah jadi last record plus 1, untuk masalah record lockingnya sudah betul gak ya?
trima kasih Indra --- In [email protected], "Hernanto Seputro" <[EMAIL PROTECTED]> wrote: > > --- In [email protected], "Indra" <indra@> 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... >
