[belajar-access] Re: implementasinya agak aneh

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, July 26, 2009 3:58 AM
Subject: Re: [belajar-access] Re: implementasinya agak aneh

> biar lebih seru ini saya kirimkan file berdasarkan ide bang Aksan.
> agak di modif sedikit tanpa tabel temporary.
> dan biar beda dikit - pake for next untuk loopingnya.
> ini adalah langkah pertama untuk jadi asisten bang Aksan he he he
> (ayo galang petisi ....)
>
> salam hangat dan jabat erat,
> MBA
>
>
> ----- Original Message -----
> From: "davidmontung" <davidmontung@yahoo.co.id>
> To: <belajar-access@yahoogroups.com>
> Sent: Saturday, July 25, 2009 06:15
> Subject: [belajar-access] Re: implementasinya agak aneh
>
>
> > Mas Aksan, you are absolutely the best.
> > Sy juga sempat nanya ke milist luar dan ternyata jawaban anda lebih
> > akurat.
> > Harusnya anda dapat gelar mvp karena anda sangat layak untuk itu. sekali
> > lagi terima kasih.
> >
> > Best Regards
> > David
> >
> > --- In belajar-access@yahoogroups.com, aksan kurdin <aksan.kurdin@...>
> > wrote:
> >>
> >> 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@...>:
> >> >
> >> >
> >> > 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
> >> >> >> --- 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