Re: Bls: [belajar-access] Belajar recordset

selain itu, ada yg saya kurang paham juga, biasanya syntaq sql query diakhiri dengan tanda ;, apakah sudah ditambahkan di rsTable![kriteria] ? coba kalau belum ditambahkan saja dikodenya:

... "HAVING Sale.month = " & rsTable![kriteria] & ";"

--- In belajar-access@yahoogroups.com, "opi" <sofyanefendi@...> wrote:
>
> 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/