Karena ada sesuatu yang tidak biasanya (muncul huruf Jepang), saya mencoba dengan cara lain (yang biasa saya gunakan dalam menyusun database), terlampir.Mungkin sudah sesuai keinginan. Hariyanto --- On Thu, 25/6/09, DR.Taufik <[email protected]> wrote:
From: DR.Taufik <[email protected]> Subject: Re[2]: [belajar-access] Hasil penjumlahan total pake vba... [1 Attachment] To: "hari yanto" <[email protected]> Date: Thursday, 25 June, 2009, 2:56 PM [Attachment(s) from DR.Taufik included below] Mas sudah saya masukan code nya tapi kok penjumlahannya masih belum total... ini file nya saya lampirkan lagi . Terima kasih hy> Coba ubah pada form Table2 Subform: hy> 1. Hapus event on load hy> 2. Masukkan prosedur baru di event on current: hy> If IsNull([no]) Or [no] = 0 Then hy> Me![Total] = 0 hy> Else hy> Me![Total] = DSum("[Qty]* [harga]", "Query1", "[no] = " [no]) hy> End If hy> Ini mungkin bisa membantu. hy> Hariyanto Salam DR.Taufik mailto:DR.Taufikt34@ yahoo.co. id Get your new Email address! Grab the Email name you've always wanted before someone else does! http://mail.promotions.yahoo.com/newdomains/aa/
