sebainya bikin field id dengan format long (auto number / auto
incresement)
trus execute data baru dengan menggunakan sql query
INSERT INTO [nama_tabel]([field1],[field2],...) VALUES
('value1','value2',...)
untuk melihat data tersebut masuk record nomor berapa pake IDENTITY
jadi querynya tampak seperti ini
INSERT INTO [nama_tabel]([field1],[field2],...) VALUES
('value1','value2',...)
SELECT @@IDENTITY
trus untuk menaggulangi user menyimpan pada saat yang bersamaan gunakan
BeginTrans
CommitTrans
RollbackTrans
--- 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
>
