VBA - can't acces a .DAO database

[nicholas_provo]

Dear all

We are working with some custom VBA code that uses an Acces database.

To acces the database we use the next lines:

Since this weekend the code stopped working on the following line: "Set ws = DBEngine.Workspaces(0)" and Inventor is stuck in a loop. My collegues also can't get it to run and we use this application daily.

After some testing we descided to run the code in Excel VBA.

The code works fine in Excel, so it seems it has to do something with Inventor VBA.

References for the project seems to be in order:

We use Inventor 2021 with the latest updates.

I know this is aspecific question but after a day day searching for answer we ended up nothing.

Does anyone have an idea?

Many thanks.

Nicholas

[bradeneuropeArthur]

Could you upload the complete code here?

[nicholas_provo · Accepted solution]

Arthur

if you use the following lines:

Dim ws as DAO.workspace

set ws = DBEngine.workspaces(0)

it gets stuck.

I also found the solution this morning.

Seems like the reference "Microsoft Office 16.0 Acces database engine Object" was the main cause of the issue.

Most likey this happend due to Windows updates.

Reinstalling/repair in config. >> Programs >> "Microsoft Acces database engine 2016 (English)"

Fixed the issue. Should anyone have any trouble with this.