他のデータベースTest.mdb に以下のモジュールがあったとします。
Public Sub module B()
msgbox “message”
End Sub
このモジュールを別のデータベースに書いた以下のモジュールで動かすことができます。
Sub module A()
Dim acApp As Access.Application
Set acApp = New Access.Application
With acApp
.OpenCurrentDatabase CurrentProject.Path & “\Test.mdb”
.Visible = True ‘念のため
.Application.Run “module B”
.Quit
End With
Set acApp = Nothing
End Sub
