Dim dbs As Database
Dim rst As Recordset
Dim NoTrans As String
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Tran_D", , adOpenStatic, adLockOptimistic)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]] *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 : > > > > > > 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]> > > > > Coba ubah menjadi > > Set rst = dbs.open(“tblpenj” , , adOpenStatic, adLockOptimistic) > > Semoga membantu > > > > >
<<image001.jpg>>
<<image002.jpg>>
