[belajar-access] Re: implementasinya agak aneh

----- Original Message -----
From: "aksan kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, July 26, 2009 8:27 AM
Subject: Re: [belajar-access] Re: implementasinya agak aneh

> Sebenarnya bang haer sudah pernah forward form isian mvp dari
> microsoft, tetapi mvp itu bukan hanya rajin ngasih solusi di milis,
> ringkas kata kalau mau jadi mvp, syaratnya kayak bang haer-lah,
> sehingga dua tahun berturut-turut tetap terpilih jadi mvp access.
> beliau memang dedikasi di access sangat tinggi, dari ngarang buku,
> beri solusi di milis, seminar, ngursusin orang, hingga yang terakhir
> membangun rumah access.
> lha wong saya timbul di milis aja udah jarang-jarang, jadi gak usah
> mvp2-an lah ... pokoknya bisa menolong sudah bersukurlah, ilmu ada
> gunanya.
>
>
> aksan kurdin
>
> 2009/7/26 Murid Belajar Access <murid.belajaraccess@yahoo.co.id>:
> >
> >
> > jangan lupa kita sudah punya satu orang MVP Microsoft Access yaitu bapak
> > Haer Talib dan beliau juga salah satu moderator di milis ini selain juga
> > sebagai sesepuh.
> > tapi memang jika bisa punya dua MVP kenapa tidak?
> > semangat semangat semangat
> >
> > salam hangat dan jabat erat,
> > MBA
> >
> > ----- Original Message -----
> > From: "davidmontung" <davidmontung@yahoo.co.id>
> > To: <belajar-access@yahoogroups.com>
> > Sent: Sunday, July 26, 2009 03:47
> > Subject: [belajar-access] Re: implementasinya agak aneh
> >
> >> Setuju mas. Caranya bisa ngajukan semacam aplikasi/profil ke situs
> >> microsoft mvp support. Dari situ mereka nanti bisa melihat apa saja
> >> dedikasi yg pernah dilakukan dalam mensupport community yg menggunakan
> >> software Microsoft.
> >> Karena mvp itu diberikan bagi mereka yg bukan saja ahli di bidangnya
tapi
> >> juga bisa/sering membantu komunitas tsb.
> >> Coba saja, supaya kita tambah bangga gitu jadi komunitas belajar-access
> >> ini.
> >>
> >> salam hangat dan jabat erat (pinjam istilahnya MBA),
> >> David M
> >>
> >> --- In belajar-access@yahoogroups.com, "Murid Belajar Access"
> >> <murid.belajaraccess@...> wrote:
> >>>
> >>> memang bang Aksan sejak dulu adalah mbah anom-nya Access.
> >>> Sumber inspirasi kalau lagi mentok.
> >>> btw, ayo kita bikin petisi:
> >>> Aksan Kurdin for MVP Microsoft Access.
> >>> ntar kalau udah jadi beneran - saya mau aah melamar jadi assistennya.
he
> >>> he
> >>> he
> >>>
> >>> salam hangat dan jabat erat,
> >>> MBA
> >>>
> >>> ----- Original Message -----
> >>> From: "davidmontung" <davidmontung@...>
> >>> 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
> >>
> >>
> >>
> >>
> >> ------------------------------------
> >>
> >> SPAM IS PROHIBITEDYahoo! Groups Links
> >>
> >>
> >>
> >
> >
>
>
>
> --
> Aksan Kurdin