Maaf Script Lengkapnya Seperti Ini:
dan rst1,2,3 kmrn lupa belum dikasih kriteria.
Skrg sudah jadi ternyata kurang tanda petik satu ( ' ) di baris
Db.Execute....
selengkapnya:
Private Sub Command0_Click()
Dim Db As DAO.Database
Dim rst1, rst2, rst3 As DAO.Recordset
Dim cek As String
Set Db = CurrentDb
Set rst1 = Db.OpenRecordset(" Select Nilai From Table1 WHERE Kode_barang =
'" & [Me.tKodeBarang] & "' ", dbOpenSnapshot)
Set rst3 = Db.OpenRecordset(" Select Nilai From Table3 Kode_barang = '" &
[Me.tKodeBarang] & "' ", dbOpenSnapshot)
Set rst2 = Db.OpenRecordset(" Select Nilai From Table2 Kode_barang = '" &
[Me.tKodeBarang] & "' ", dbOpenSnapshot)
Db.Execute "UPDATE Table2 SET Nilai = '" & rst1!Nilai & "' + '" &
rst3!Nilai & "' WHERE Kode_Barang= '" & [Me.tKodeBarang] & "'"
rst3.Close
rst2.Close
rst1.Close
Set rst1 = Nothing
Set rst2 = Nothing
Set rst3 = Nothing
Set Db = Nothing
End Sub
Oh Iya, Database saya menggunakan SQL Server, kiria2 untuk 3-4 thn lambat
apa tidak yang pengaruhnya ke proses transaksi?
