dulu saya pernah mengalami hal yg sama, waktu itu saya ubah di tabelnya dari Long Integer ke Double dan berhasil. mudah2an bisa jadi masukan.
regards CW ----- Original Message ----- From: "tri widodo" <[email protected]> To: [email protected] Date: 21 Mei 2010 11:49 Subject: [belajar-access] Hasil dibulatkan > > 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 > > > ------------------------------------ SPAM IS PROHIBITEDYahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/belajar-access/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/belajar-access/join (Yahoo! ID required) <*> To change settings via email: [email protected] [email protected] <*> To unsubscribe from this group, send an email to: [email protected] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
