CInt(DSum("Jumlah" ,"tblContoh_ SumRecord" ,"[Bulan]<="
& [Bulan]))
Cint = mengubah ke Integer
"Jumlah" = nama field yg akan dijumlah
"tblContoh_ SumRecord" = nama table atau query dari field jumlah
"[Bulan]<="
& [Bulan] = kriteria/kondisi utk menjumlahkan field "jumlah" bulan sekarang
dengan bulan sebelumnya
Budi
________________________________
Dari: Masyruchi Se <[email protected]>
Kepada: [email protected]
Terkirim: Rab, 4 November, 2009 14:55:44
Judul: Re: Bls: [belajar-access] Sum Record
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 <bd...@yahoo. com>
To: belajar-access@ yahoogroups. com
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 <murid.belajaraccess @yahoo.co. id>
Kepada: belajar-access@ yahoogroups. com
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!
Jatuh cinta itu seperti apa ya rasanya? Temukan jawabannya di Yahoo!
Answers! http://id.answers.yahoo.com
