pastikan reference dao sudah dicentang, bisa diurutkan lebih dulu dari
ado, atau modifikasi deklarasi menjadi:
Dim dbs As *DAO.*Database
Dim rst As *DAO.*Recordset
aksan kurdin
Eko Puji Santoso wrote:
------------------------------------------------------------------------
*From:* Eko Puji Santoso
*Sent:* Saturday, August 29, 2009 4:44 PM
*To:* '[email protected]'
*Subject:* RE : OpenRecordset Type mismatch ??
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Tran_D", , adOpenStatic,
adLockOptimistic)
Mohon pencerahan..
terima kasih
2009/8/29 HENDRA <[email protected]>
Kl boleh tahu
Anda deklarasi kan rst sebagai apa, dan dbs sebagai apa?
*From:* [email protected]
<mailto:[email protected]>
[mailto:[email protected]
<mailto:[email protected]>] *On Behalf Of *Eko Puji
Santoso
*Sent:* Saturday, August 29, 2009 1:59 PM
*To:* [email protected]
<mailto:[email protected]>
*Subject:* [belajar-access] OpenRecordset Type mismatch ??
sy sudah coba
Set rst = dbs.Open("Tran_D", , adOpenStatic, adLockOptimistic)
tp eror spt ini :
sy ganti dgn :
Set rst = dbs.OpenRecordset("Tran_D", , adOpenStatic,
adLockOptimistic)
hasilnya spt ini
mohon solusinya.
Terima kasih.
Salam,
Eko PS
2009/8/29 HENDRA <[email protected]
<mailto:[email protected]>>
Coba ubah menjadi
Set rst = dbs.open("tblpenj" , , adOpenStatic, adLockOptimistic)
Semoga membantu
