AccessObject from VB 1

[UncleHuckleberry]

I'm trying to reference the access object library from vb and I need to use AccessObject to reference the dependencies for a query. This code is producing errors, any ideas why?

Dim ObjAccess As access.Application
Dim objParent As access.AccessObject

Set ObjAccess = New access.Application
Set objParent = ObjAccess.CurrentData.AllQueries.Item("queryname")

"When the going gets wierd, the wierd turn pro" - R. Duke

 

[ClulessChris]

Have you referenced the Microsoft Access Object Library, via Project > References?

Everybody body is somebodys Nutter.

 

[UncleHuckleberry]

Yep, all references present and correct

"When the going gets wierd, the wierd turn pro" - R. Duke

 

[ClulessChris]

I notice that your code opens a new access database, do you then reference the database with your Queries?
If you open a new Database there will be no Queries and your code will crash at the line:

   Set objParent = ObjAccess.CurrentData.AllQueries.Item("queryname")

Are you trying to run a pre-created query?, Create a new query?

Everybody body is somebodys Nutter.