他の MDB のモジュールをコンパイルする方法

対象バージョン :  97, 2000, 2002, 2003
最終更新日 : 2005/04/25 （オリジナル作成日 : 1999/12/07）

概　要　

現在開いている MDB から、他の MDB に含まれるモジュールをコンパイルする方法です。

解　説

Dim objAcc As Access.Application
Dim strModName As String
Set objAcc = GetObject("対象の mdb のフルパス名")　
strModName = objAcc.CurrentDb.Containers!Modules(0).Name
objAcc.DoCmd.OpenModule strModName
objAcc.RunCommand acCmdCompileAndSaveAllModules
objAcc.DoCmd.Close acModule, strModName
objAcc.Quit
Set objAcc = Nothing

補　足

複数のバージョンの Access が導入されているマシンでは、古いバージョンで処理を行いたい場合 GetObject で明示的に対象バージョンのクラスを指定する必要があります。
【例】

Set objAcc = GetObject("対象の mdb のフルパス名", "Access.Application.8") 'Access 97 の場合

目次へ戻る