Pak rumus berikut kalau di kalimatkan gmn pak?
CInt(DSum("Jumlah","tblContoh_SumRecord","[Bulan]<="
& [Bulan])) AS RunningSum
FROM tblContoh_SumRecord ;
thank's
________________________________
From: Budi.P <[email protected]>
To: [email protected]
Sent: Tue, November 3, 2009 4:10:23 PM
Subject: Bls: [belajar-access] Sum Record
thks mas sudah berhasil walaupun loadnya agak lambat...
Budi
________________________________
Dari: Murid Belajar Access <[email protected]>
Kepada: [email protected]
Terkirim: Sen, 2 November, 2009 12:49:43
Judul: RE: [belajar-access] Sum Record
Berikut ini contoh kalau querynya hanya
ada 12 bulan, dan masing2 hanya ada satu value.
Bulan di sini digunakan angkanya. Jadi januari
= 1, februari =2 dst.
Karena ini pakenya Dsum ,
ya pastinya akan lama eksekusinya tabel dengan banyak record.
SELECT
tblContoh_SumRecord .Bulan,
tblContoh_SumRecord .Jumlah,
CInt(DSum("Jumlah","tblContoh_SumRecord","[Bulan]<="
& [Bulan])) AS RunningSum
FROM tblContoh_SumRecord ;
Sdgkan kalau baris yang di olah panjang
dan lebaar. Ya harus pake vba lagi.
Misalnya untuk penjumlahan harian selama
365 hari sbb:
TBL_B
DDATE
DBLVALUE
RunningSum àuntuk menampung
penjumlahan
Sub RunningSum()
Dim rst As
DAO.Recordset
a = 0
Set rst =
CurrentDb.OpenRecor dset("SELECT * FROM TBL_B ORDER BY DDATE") ‘àkalau mau
dihitungnya
bener, data mesti di URUT sesuai kebutuhan.
If Not rst.EOF And Not
rst.BOF Then
Do Until rst.EOF
a = a + rst!dblValue
rst.Edit
rst!RunningSum = a
rst.Update
rst.MoveNext
Loop
End If
Set rst = Nothing
End Sub
Salam, MBA
________________________________
From:belajar-access@ yahoogroups. com [mailto:belajar- acc...@yahoogrou ps.com]
On Behalf Of Budi.P
Sent: Monday, November 02, 2009
11:42
To: Belajar Access
Subject: [belajar-access] Sum
Record
siang teman2,
sy mau punya data sbb,
bulan jumlah
jan 10
feb 15
mar 20
dst...
yg ingin sy tanyakan bagaimana cara buat query agar data tsb menjadi:
bulan jumlah
jan 10
feb 25 (dijumlah dgn rec sebelumnya)
mar 45
dst...
thks atas bantuannya..
salam,
Budi
________________________________
Coba Yahoo! Mail baru yang LEBIH CEPAT. Rasakan bedanya sekarang!
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.698 / Virus Database: 270.14.43/2474 - Release Date: 11/01/09
14:38:00
________________________________
Lebih aman saat online.
Upgrade ke Internet Explorer 8 baru dan lebih cepat yang dioptimalkan untuk
Yahoo! agar Anda merasa lebih aman. Gratis. Dapatkan IE8 di sini!
