Nothing Works for Recordset in VBA

[vetabz]

I have this query below (and it's working, obviously nothing so complicated)




unfortunately nothing of the 3 works in VBA

Sub test()
Dim oDB As DAO.Database
Dim oRS As DAO.Recordset


Set oDB = CurrentDb
Set oRS = oDB.OpenRecordset("backup_base_staff", dbOpenDynaset) 'does not work
Set oRS = oDB.OpenRecordset("backup_base_staff", dbOpenTable) 'does not work
Set oRS = oDB.OpenRecordset("backup_base_staff", dbOpenSnapshot) 'does not work
End Sub

and I am getting this same error for all three, what am I doing wrong?

[CJ_London]

you are trying to open a recordset which is an append (i.e. an action) query

use

oDB.execute "backup_base_staff",dbfailonerror

instead

edit: removed brackets

[NTC]

I believe a simpler code line should fire that saved query object:

docmd.openquery "query name"

[CJ_London]

it will, but the .execute method enables error report on the sql and access to the recordsaffected property