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]> ] On Behalf Of Eko Puji Santoso
Sent: Saturday, August 29, 2009 1:59 PM
To: [email protected]
Subject: [belajar-access] OpenRecordset Type mismatch ??
sy sudah coba
Set rst = dbs.Open("Tran_D", , adOpenStatic, adLockOptimistic)
tp eror spt ini :
<http://mail.google.com/mail/?ui=2&ik=6d9c93d754&view=att&th=1236504a99e
33c6a&attid=0.1&disp=emb&zw>
sy ganti dgn :
Set rst = dbs.OpenRecordset("Tran_D", , adOpenStatic,
adLockOptimistic)
hasilnya spt ini
<http://mail.google.com/mail/?ui=2&ik=6d9c93d754&view=att&th=1236504a99e
33c6a&attid=0.2&disp=emb&zw>
mohon solusinya.
Terima kasih.
Salam,
Eko PS
2009/8/29 HENDRA <[email protected]>
Coba ubah menjadi
Set rst = dbs.open("tblpenj" , , adOpenStatic, adLockOptimistic)
Semoga membantu
