ник: Alexx2
Вот сочинил пример.
Два Mdb в папке C:\Test:
C:\Test\Test1.mdb
C:\Test\Test2.mdb
---
Test1.mdb:
---
'Запускается через макрос Autoexec
Public Function Autoexec()
Do While True
Dim appAccess As New Access.Application
appAccess.OpenCurrentDatabase "C:\Test\Test2.mdb"
appAccess.Run "Plugin"
appAccess.CloseCurrentDatabase
Loop
End Function
---
Test2.mdb:
---
Public Sub Plugin()
End Sub
-------------
Запускаем Test1.mdb и наблюдаем дёргающееся в конвульсиях окно второго Access'а