Sudah bisa dan berhasil Terima kasih... -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Cecep W Sent: 21 Mei 2010 13:27 To: [email protected] Subject: Re: [belajar-access] Hasil dibulatkan
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
