Sudah saya coba kok gak mau ya...
mungkin saya yang blm paham, ini file nya saya lampirkan saja
Terima kasih
er> mungin maksudnya seperti ini ?
er>
er> Dim db As Database
er> Dim rs As Recordset
er> Dim total as long
er>
er> Set db = CurrentDb()
er> Set rs = db.OpenRecordset("Tabelku", dbOpenDynaset)
er>
er> '============= jumlahkan harga
er> total =0
er> While Not rs.EOF
er> total = total + rs.harga
er> rs.MoveNext
er> Wend
er> '====================================
er> salam,
er> edi
Best regards,
nadhif_fakhri
mailto:[email protected]
