[belajar-access] Re: implementasinya agak aneh

----- Original Message -----
From: "aksan kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, July 24, 2009 5:39 PM
Subject: Re: [belajar-access] Re: implementasinya agak aneh

anda terpaksa harus bermain temporary table dan sedikit vba.
dari query anda, buang ke tabel temporary semisal:

delete * from tblTemp

insert into tblTemp(nama,[jum-1],harga,[tot-1])
select nama, [jum-1], 0 as harga, 0 as [tot-1]
from qsAnu

lalu dengan vba anda bisa looping untuk memberikan harga dan totalnya.
langkah pertama adalah mengambil nilai awal harga untuk baris pertama,
selanjutnya lakukan looping untuk mengupdate field harga dan total.
Langkah terakhir, buka report yang table-base-nya adalah tblTemp.

Mudah2an dipahami, kode belum di tes. Tarik idenya saja.

Sub FillHargaTotal()
On Error GoTo errHandle

Dim harga As Double
harga = InputBox(prompt:="Masukkan insial harga awal untuk baris
pertama", Title:="Harga awal", Default:="0")

Dim db As DAO.Database
Set db = currentdb

Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("tblTemp", dbOpenDynaset)

rs.MoveFirst
Do While Not td.EOF
rs.Edit
rs("Harga") = harga
rs("[total-1]") = rs("[jum-1]") * harga
rs.Update

harga = rs("[total-1]")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing

errHandle:
Beep
MsgBox prompt:=Err.Number, Button:=vbOK + vbCritical,
Title:="Error# " & Err.Number
Set rs = Nothing
Set db = Nothing
End Sub

aksan kurdin

2009/7/24 davidmontung <davidmontung@yahoo.co.id>:
>
>
> harga 10 di baris pertama didapat dari input manual, yg jadi masalah utk
> baris kedua dst. saya kesulitan untuk mengaplikasikannya dlm report.
> mohon bantuannya mas Aksan
>
> Regards,
> David
>
> --- In belajar-access@yahoogroups.com, aksan kurdin <aksan.kurdin@...>
> wrote:
>>
>> terus harga 10 di baris pertama dapat dari mana ?
>>
>> aksan kurdin
>>
>> 2009/7/23 davidmontung <davidmontung@...>:
>> >
>> >
>> > betul sekali mas Edi. Itu memang permintaan dr bag.akunting. Memang dlm
>> > contoh sy sederhanakan, seihgga bisa dipahami siapa sj yg mau membantu
>> >
>> > --- In belajar-access@yahoogroups.com, edi rosadi <edirosadie@> wrote:
>> >>
>> >> logika dalam implementasinya agak aneh. mengapa harga barang pada
baris
>> >> kedua tergantung pada total harga record sebelumnya? kalau didalam
>> >> ms-excel, implementasi seperti itu digunakan untuk catatan
>> >> pengeluaran/transaksi harian yang mencatat debet, kredit, dan saldo.
>> >> apakah
>> >> seperti itu?
>> >>
>> >> --- On Wed, 22/7/09, davidmontung <davidmontung@> wrote:
>> >
>> >>
>> >> Mohon dibantu, saya ada masalah dalam membuat report
>> >>
>> >> yang jd masalah adlh nilai di kolom harga harus selalu mengambil nilai
>> >> dari kolom Tot-1 tapi dari satu baris yang di atasnya
>> >> semoga ada anggota millis atau bapak-bapak moderator berkenan menjawab
>> >> permasalhan saya
>> >>
>> >> misal:
>> > --------------------------
>> > Nama---|jum-1|Harga|Tot-1
>> > --------------------------
>> > ..brs-1|..12.|..10.|.120.
>> > ..brs-2|...5.|.120.|.600.
>> > ..brs-3|...7.|.600.|4200.
>> > ..brs-4|...1.|4200.|4200.
>> > ..brs-5|...2.|4200.|8400.
>> > --------------------------
>> >>
>> >> terima kasih.
>> >> David M
>
>

--
Aksan Kurdin

------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
mailto:belajar-access-digest@yahoogroups.com
mailto:belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/