Как открыть базу данных доступа из VBA в макросе Word

Question

Все объясняется в заголовке.

Мне нужно иметь возможность запустить макрос в слове, который открывает базу данных доступа.

Answer 1

Если вы хотите открыть объект Access и манипулировать им, подумайте:

Public Sub OpenDB()
Dim db As Access.Application
Set db = New Access.Application
db.OpenCurrentDatabase "C:\My Documents\db2.mdb"
db.Application.Visible = True 'optional
'code to manipulate Access
End Sub

Если вы просто хотите открыть файл Access и затем позволить пользователю взаимодействовать в обычном режиме, у меня работает следующее:

'Shell function requires literal quote marks in the target filename string argument, apostrophe delimiters fail, hence the quadrupled quote marks
Shell SysCmd(acSysCmdAccessDir) & "MSAccess.exe " & """" & "C:\My Documents\dbname.accdb" & """", vbNormalFocus