Re: Bls: [belajar-access] Belajar recordset

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/