Re: Bls: [belajar-access] Belajar recordset

oya, kalau having nya kok tidak pakai operator = (sama dengan) yah? apakah = nya sdh ada di rsTable![kriteria] ?

--- In belajar-access@yahoogroups.com, "opi" <sofyanefendi@...> wrote:
>
> jangan2 apa karena append nya ada diluar do while yah? barangkali kita coba saja spt ini:
>
> Do While Not rsTable.EOF
> append = "INSERT INTO TotFreight( Month, Cost ) " & _
> "SELECT Last(MonthName([month])) AS Month, Sum(Sale.[FreightCost]) AS cost " & _
> "FROM Sale " & _
> "HAVING Sale.month " & rsTable![kriteria]
> DoCmd.RunSQL append
> rsTable.MoveNext
> Loop
>
> atau mungkin tidak karena masalah kriteria? kalau type month = number, maka rsTable![kriteria] juga harus bertype sama ....
>
> --- In belajar-access@yahoogroups.com, "Bambang Mahfudin" <bambalid@> wrote:
> >
> > Terima kasih Bapak Sofyan dan Bapak Erwin atas penjelasannya.
> > Tidak nekat pak :D
> >
> > Hanya coba2 saja mumpung judulnya 'belajar recordset',
> > saya pakai syntax query append dg kriteria hasil recordset sbb:
> >
> > append = "INSERT INTO TotFreight( Month, Cost ) " & _
> > "SELECT Last(MonthName([month])) AS Month, Sum(Sale.[FreightCost]) AS cost " & _
> > "FROM Sale " & _
> > "HAVING Sale.month " & rsTable![kriteria]
> >
> > Kemudian saya jalankan :
> >
> > Do While Not rsTable.EOF
> > DoCmd.RunSQL append
> > rsTable.MoveNext
> > Loop
> >
> > Eh, ternyata gak bisa pesan errornya
> > Run-time error '91 :
> > object variable or with block variable not set
> >
> > ketika saya debug, yg disorot kuning syntax query SQL tsb diatas.
> >
> > Terima Kasih
> > Bambang Mahfudin
> >
> >
> >
> > ----- Original Message -----
> > From: Erwin Sugiawan
> > To: belajar-access@yahoogroups.com
> > Sent: Monday, October 18, 2010 11:57 AM
> > Subject: Bls: Bls: [belajar-access] Belajar recordset
> >
> >
> >
> >
> > maaf teman, ternyata yg dimaksud adalah action query ... saya setuju dgn bung Sofyan.
> >
> > tp kalo tetap mau nekat, hasil dari action query nya aja di buat lagi menjadi query ke recordset
> >
> >
> > QryStr = "UPDATE tblARCN SET rcnNote=NULL WHERE rcnDate <= #" & FirstDay(StartEntryMonth) & "#"
> > db.Execute QryStr, dbFailOnError
> >
> > hasil dari tblarcn, di query untuk menghasilkan recordset , caranya spt dibawah
> >
> >
> > Best regard
> > Erwin Sugiawan
> >
> >
> >
> >
> >
> > ------------------------------------------------------------------------------
> > Dari: Erwin Sugiawan <esugiawan@>
> > Kepada: belajar-access@yahoogroups.com
> > Terkirim: Sen, 18 Oktober, 2010 10:53:19
> > Judul: Bls: [belajar-access] Belajar recordset
> >
> >
> > bisa hasil query di jadikan recordset ,
> > cara nya
> > dim db as database
> > dim rst as recordset
> > dim qrytest as querydeff
> >
> > set db=currentdb()
> > set qrytest =db.querydefs("qryabc")
> > set rst=qrytest.openrecordset
> >
> > atau
> >
> > set db=currentdb()
> > set qrytest =db.querydefs("qryabc")
> > qrytest.paramter(0)=me.txt1
> > set rst=qrytest.openrecordset
> >
> > kalo mau readonly
> >
> >
> > set db=currentdb()
> > set qrytest =db.querydefs("qryabc")
> > qrytest.paramter(0)=me.txt1
> > set rst=qrytest.openrecordsett(dbOpenSnapshot, dbReadOnly, dbReadOnly)
> >
> >
> >
> > Best regard
> > Erwin Sugiawan
> >
> >
> >
> >
> >
> > ------------------------------------------------------------------------------
> > Dari: Sofyan Efendi <sofyanefendi@>
> > Kepada: belajar-access@yahoogroups.com
> > Terkirim: Sen, 18 Oktober, 2010 10:01:28
> > Judul: Re: [belajar-access] Belajar recordset
> >
> >
> >
> >
> > Kalau action query setahu saya tidak bisa dijadikan recordset, hanya select query saja (plus kriteria), mohon koreksi ya bila saya salah, ....
> >
> > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > Sofyan Efendi.
> > http://opi.110mb.com/
> > ----- Original Message -----
> > From: Bambang Mahfudin
> > To: belajar-access@yahoogroups.com
> > Sent: Monday, October 18, 2010 8:24 AM
> > Subject: [belajar-access] Belajar recordset
> >
> >
> >
> > Bapak moderator dan accessers...
> >
> > Saya baru baca2 PDF sebuah buku dg judul 'Access2003VBAProgrammersReference'
> > Pada bab 6 dibahas tentang 'DAO'. Ada penjelasan yg menarik bagi saya,
> > kalau tidak salah begini :
> >
> > Ternyata recordset bisa dijadikan kriteria sebuah query select
> >
> > Kemudian timbul pertanyaan:
> > Apakah bisa recordset dijadikan kriteria query update/append/delete
> >
> > Kalau jawabannya 'bisa' mohon referensi link/ ilustrasi coding sederhana
> >
> > Terima kasih
> > BambangMahfudin
> >
>

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

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:
belajar-access-digest@yahoogroups.com
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/