dbOpenDynaset wont allow Addnew method 2

[Frank72]

hows it going

further to the thread i last posted answered by mossoft(thanks), i tried using the opendynaset before and opentable(if it is a jet workspace) but opentable is not allowed as the recordset object and the dynaset object is returning an err saying the addnew method is not allowed, does this look like a syntax thing or something else that might be affecting the recordest? i know dynaset is supposed to support addnew so what's the problem? here's the code

Dim DefaultDate As Date
Dim Dbase As Database
Dim RstLog, RstCtl, Rst3 As Recordset

Set Dbase = DBEngine.Workspaces(0).Databases(0)
Set RstCtl = Dbase.OpenRecordset("KHPRDDTA_TBLXFERCTL", dbOpenSnapshot)
Set RstLog = Dbase.OpenRecordset("KHPRDDTA_TBLXFERLOG", dbOpenDynamic)
Set Rst3 = Dbase.OpenRecordset("khprddta_tblvehicle", dbOpenSnapshot)

*
*
*
with rstlog
.addnew **err msg here**
.etc etc
thanks alot

frank

 

[Ed2020]

I think it's becase rstLog isn't a recordset - it's a variant. You need to declare your variables like this:

Dim DefaultDate As Date
Dim Dbase As Database
Dim RstLog As Recordset, RstCtl As Recordset, Rst3 As Recordset

Otherwise both RstLog and RstCtl will both be variant variables.

HTH.

Ed Metcalfe
ed_metcalfe@hotmail.com

 

[Ed2020]

Also use:

Set Dbase = CurrentDB

Rather than:

Set Dbase = DBEngine.Workspaces(0).Databases(0)

Better practice. )

Ed Metcalfe
ed_metcalfe@hotmail.com

 

[Ed2020]

Spotted a mistake in my advice:

Dim DefaultDate As Date
Dim Dbase As DAO.Database
Dim RstLog As DAO.Recordset, RstCtl As DAO.Recordset, Rst3 As DAO.Recordset