Open Access Database with VBA

B

Bubba

I want to open a specific Access DB from and Excel button. I tried a
previous sugestion in this forum and It would bring up access but not the
file. Here is what I have: (I'm so colse to being happy!)


Sub test()
On Error Resume Next
Set ac = GetObject(, "Access.Application")
If ac Is Nothing Then
Set ac = GetObject("", "Access.Application")
ac.OpenCurrentDatabase "c:\data\temp\temp.mdb"
ac.UserControl = True
End If
AppActivate "Microsoft Access"
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Working outlook via vba code with xlsx - error 0
Export access table to notepad 4
Make table query 0
Import query from access into excel via vba, but will not refresh 0
Using GetObject to access a Project file but getting Error 70:Permission Denied 0
Ending an automation session between Excel and Access 6
Execute Procedure on a remote Access Db file 17
Running an Access function (with parameters) from Excel 6

Top