#177
「Shell」関数を使って、もう１つのAccessデータベースを開くサンプルコードです。
Dim strAppPath As String
Dim strDBPath As String
'Accessのパスを設定
strAppPath = "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"
'データベースファイルのパスを設定
'(My Documentsは真中にスペースがあるので " でくくる)
strDBPath = """C:\My Documents\db1.MDB"""
'Accessを最大化で起動してデータベースを開きます
Shell strAppPath & " " & strDBPath, vbMaximizedFocus
Dim strDBPath As String
'Accessのパスを設定
strAppPath = "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"
'データベースファイルのパスを設定
'(My Documentsは真中にスペースがあるので " でくくる)
strDBPath = """C:\My Documents\db1.MDB"""
'Accessを最大化で起動してデータベースを開きます
Shell strAppPath & " " & strDBPath, vbMaximizedFocus
この方法は、コードとして非常にシンプルにできるのは良いのですが、
- Access本体のEXEファイルのフルパスを管理する必要がある
※ユーザーによって異なるフォルダにAccessをインストールしている可能性もあるため、汎用的な配布アプリケーションには不向き。オプション設定画面などを用意し、各ユーザーごとにAccessのフルパスを設定させる方法もあるが.....。 - データベースは開きっ放しの状態で、こちらでコントロールすることはできない
