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
