mungin maksudnya seperti ini ?
Dim db As Database
Dim rs As Recordset
Dim total as long
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tabelku", dbOpenDynaset)
'============= jumlahkan harga
total =0
While Not rs.EOF
total = total + rs.harga
rs.MoveNext
Wend
'====================================
salam,
edi
--- On Thu, 18/6/09, Darsono <[email protected]> wrote:
From: Darsono <[email protected]>
Subject: Re: [belajar-access] Summery harga ...??
To: [email protected]
Date: Thursday, 18 June, 2009, 1:27 PM
Selamat siang,
Boleh sedikit di perjelas,
dimana anda mau sumary harga? direport, form, atau query? karena kalau di table
sepertinya ga bisa
kalau di report atau form
letakan unbound TextBox di report atau form footer ketikkan didalamnya
=sum(harga)
kalau di query,
tinggal klik button sumry kaya huruf E (Total)
selamat mencoba
--- On Thu, 6/18/09, nadhif_fakhri <nadhif_fakhri@ yahoo.co. uk> wrote:
From: nadhif_fakhri <nadhif_fakhri@ yahoo.co. uk>
Subject: [belajar-access] Summery harga ...??
To: belajar-access@ yahoogroups. com
Date: Thursday, June 18, 2009, 1:02 PM
Selamat siang,...
Mudah-mudahan gak lagi pada ngantuk nih...
saya bikin tabel seperti ini :
No namabarang Harga
1 Sabun 1.000
2 Gelas 5.000
3 Sendok 3.500
Pertanyaannya. ..
saya ingin membuat summery tapi pake VBA gimana ya ?
tadi saya coba seperti ini gak mau
Total = sum(harga)
Terima kasih...
Best regards,
nadhif_fakhri
mailto:nadhif_fakhri@ yahoo.co. uk
New Email names for you!
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!
http://mail.promotions.yahoo.com/newdomains/sg/
