アクセスからアクセスファイルを開くには？

質問

アクセスからアクセスファイルを開きたいのですがうまく出来ないので教えてください。

Option Compare Database
Option Explicit
Sub test()
Dim App As Access.Application
Dim MyFileName As String

Set App = CreateObject("Access.Application")

MyFileName = CurrentProject.Path & "\アクセスファイル名.mdb"

With App
.Visible = True
End With

Set App = Nothing
End Sub
で、
.Visible = True
でアプリケーションは開きますが
Set App = Nothing
を通過すると開いたアプリケーションが閉じてしまいます。

それにアプリケーションが開くだけで肝心のファイルが開かれません。

なので「.ファイルを開くVBAコード」が必要だと思うのですがそのコードがわかりません。

回答No.2

m3_maki · ベストアンサー

開くだけなら、ハイパーリンクが簡単です。

Sub test()
　　Dim App As Access.Application
　　Dim MyFileName As String

　　MyFileName = CurrentProject.Path & "\アクセスファイル名.mdb"

　　Application.FollowHyperlink MyFileName

End Sub

他の処理も行うなら

Sub test2()
　　Dim App As Access.Application
　　Dim MyFileName As String

　　MyFileName = CurrentProject.Path & "\アクセスファイル名.mdb"

　　Application.FollowHyperlink MyFileName

　　Set App = GetObject(MyFileName, "Access.Application")

　　With App
　　　　' いろいろな処理
　　End With

　　Set App = Nothing
End Sub

とか。

お礼

ハイパーリンクで開けました。
ハイパーリンクで開けるとは知りませんでした。

ハイパーリンクで開いた後に、GetObjectでAppに格納してしまうのですね。

回答No.1

mitarashi

下記をご参照下さい。
http://www.happy2-island.com/vbs/cafe02/capter00503.shtml

しかしながら、Accessから別のAccessでデータベースを開いて何をなさりたいのでしょうか？
例えば別mdbのテーブルのデータを使いたいだけなら、リンクテーブルにすれば、このような面倒は不要です。
実際になさりたい事を開示いただければ、正解は他にあるような気がします。

お礼

Sub test()
Dim objAccess
Set objAccess = CreateObject("Access.Application")
objAccess.Visible = True
objAccess.OpenCurrentDatabase ("D:\My Documents\test mdb")
Set objAccess = Nothing
End Sub
でできました。

えーっと、
今あるファイルから別ファイルを開きたいだけなのですが、おかしい動作なのでしょうか？
頂いたご回答で十分正解だと思っています。