ник: Serge Gavrilov
Установил на VM Access Runtime 2007.
Вы правы, указанный код приводит к ошибке.
Но достаточно немного подкорректировать и все работает:
Public Function MyCopyTable()
On Error GoTo Err_MyCopyTable
Dim appAccess As Object
Shell """" & Application.SysCmd(acSysCmdAccessDir) & "msaccess.exe"" ""D:\Мои документы\db2.mdb"""
Set appAccess = GetObject("D:\Мои документы\db2.mdb")
appAccess.DoCmd.CopyObject "D:\Мои документы\db1.mdb", , acTable, "blWare"
appAccess.Quit
Set appAccess = Nothing
Exit_MyCopyTable:
Exit Function
Err_MyCopyTable:
MsgBox Err & ": " & Error$
Resume Exit_MyCopyTable
End Function
|
Для того, чтобы избежать Security Warning создал Trusted Location для каталога с базами