Error 2501 OpenQuery cancelled

Question

I am running an access query from VBA in excel.

**Set appAccess = New Access.Application** 

**With appAccess** 

    **Application.DisplayAlerts = False** 

    **.OpenCurrentDatabase strDatabasePath** 

     **.DoCmd.OpenQuery "qryCapacityFru2"** 

    **.Quit** 

**End With** 

**Set appAccess = Nothing** 

I have just had a new PC and the code now throws a 2501 error at the line

     **.DoCmd.OpenQuery "qryCapacityFru2"** 

The code still works fine on my old PC and other PCs.

Any suggestions please.

Answer 1

Judith,

When you open the database on the new PC there migh be the yellow bar with the button “Enable Content”.

If so, then click this button and close the database.

After that run your code from within Excel.

There is a chance the problem is gone.

Jan

Answer 2

I have already set access to run all macros so all content is already enabled and no yellow bar. Accessing the macro is fine and other commands in the procedure work just fine too. It opens the database as I can see the lock file engaging on the data, it just doesn't like running the query. Which is strange as the code works on other PCs so it must be something not triggered in the new setup.