opening access from VB

[daz321]

I am trying to open access from VB, as i need to run some queries/macros to manipulate the data before i use it within VB. I am using the following code to test open the database.

Private Sub Form_Load()
Dim LetterType As String
Dim AccessApp As Access.Application
Dim DBPath As String

DBPath = "C:\My Documents\darryl.mdb"
Set AccessApp = New Access.Application
With AccessApp
.openCurrentDatabase DBPath
.DoCmd.OpenTable "R01"
End With
AccessApp.quit

However it doesn't seem to like the
Dim AccessApp as Access.Application
line. I comes back with a user type not defined error.

 

[Foada]

Did you add the reference to the Access Object Library? Anything is possible, the problem is I only have one lifetime.

 

[daz321]

Not that i know of.

 

[DonQuichote]

You must either add a reference to MS-Access (like foada suggested) or use the createObject function. The reference is created with the project -> references menu. If the autocomplete works for MS-Access objects, the reference is working.

Best regards

 

[daz321]

i have added the access object library and the error has gone, but the database isn't opening. i think the code is correct but i could (and have been) be wrong

Dim AccessApp As Access.Application
Dim DBPath As String

DBPath = "C:\My Documents\darryl.mdb"
Set AccessApp = New Access.Application
With AccessApp
.openCurrentDatabase DBPath
.DoCmd.OpenTable "R01"
End With

 

[RollingMoose]

Perhaps try making the AccessApp visible....??? I've opened Access reports and discovered that I needed to make the access object visible to see the reports.