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@yahoo.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Sen, 18 Oktober, 2010 10:53:19
Judul: Bls: [belajar-access] Belajar recordset
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
Erwin Sugiawan
Dari: Erwin Sugiawan <esugiawan@yahoo.com>
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
Erwin Sugiawan
Dari: Sofyan Efendi <sofyanefendi@gmail.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Sen, 18 Oktober, 2010 10:01:28
Judul: Re: [belajar-access] Belajar 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 regardset qrytest =db.querydefs("qryabc")
qrytest.paramter(0)=me.txt1
set rst=qrytest.openrecordsett(dbOpenSnapshot, dbReadOnly, dbReadOnly)
Erwin Sugiawan
Dari: Sofyan Efendi <sofyanefendi@gmail.com>
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, ....
----- Original Message -----From: Bambang MahfudinSent: Monday, October 18, 2010 8:24 AMSubject: [belajar-access] Belajar recordsetBapak 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
__._,_.___
No comments:
Post a Comment