Private Sub RunAccessSub()
Dim ot As String
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "C:\Program Files\Microsoft Office\Office10\библиотека.mde", False
'MsgBox appAccess.Run "библиотека.НаличиеЗапроса", "Q1"
appAccess.Run "библиотека.НаличиеЗапроса", ""
appAccess.Run "библиотека.Пропись", "23"
Set appAccess = Nothing
End Sub
|