Mohon bantuan pemecahan teman-teman Accesser.
Saya ada masalah perhitungan desimal seperti pada contoh terlampir yaitu
jika nilai pecahan misalnya:
Table1: Nilai =1,5
Table3: Nilai =1,5
Kalau saya jumlahkan dengan cript jadinya :
Tabel2: Nilai = 2 bukan 3
Script:
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 ", dbOpenSnapshot)
Set rst3 = Db.OpenRecordset(" Select Nilai From Table3 ", dbOpenSnapshot)
Set rst2 = Db.OpenRecordset(" Select Nilai From Table2 ", dbOpenSnapshot)
Db.Execute "UPDATE Table2 SET Nilai = " & Val(rst1!Nilai) & " + " &
Val(rst3!Nilai) & " "
rst3.Close
rst2.Close
rst1.Close
Set rst1 = Nothing
Set rst2 = Nothing
Set rst3 = Nothing
Set Db = Nothing
End Sub
