opening access

[t406jaw]

how do i open an access database from word.

 

[Mudface]

In code? Like this-

Dim appAccess As Access.Application

Sub OpenDatabase()

Set appAccess = New Access.Application

With appAccess
    .OpenCurrentDatabase "C:\My Documents\db1.mdb"
    .Visible = True
End With

End Sub

Note you must declare appAccess as a module level variable.

 

[t406jaw]

what changes are needed so that it will run from a command button. ray:

 

[WillR]

None... just assign Mudface's code to your command button click event

 

[t406jaw]

ADVERTISEMENT

having difficulty declaring appAccess

 

[WillR]

Oh... errrm

Have you set a reference to the Access object library?

To get Office programs talking to eachother you need to set a reference to each application's object library in the relevant program's VBE (Visual Basic Editor)

So, in your Word VBE - goto Tools|References and scroll down the listbox until you get to Microsoft Access x.0 Object Library (where x is the version i.e 9.0 for Office 2000)

Check the box & you shouldn't get the error message..

Hope this helps,

 

[t406jaw]

that's great thanks