相対パスで別MDBファイルを開きたい

Accessでフォームにボタンを作り、別のmdbファイルのフォームを開く処理を書いてあります。

コードは次のような感じです。

Dim acMDB As Object
Dim isOK
isOK = Shell("MSACCESS.exe \\コンピュータ名\フォルダ名\ファイル名.mdb",vbMaximizedFocus)
set acMDB = GetObject("\\コンピュータ名\フォルダ名\ファイル名.mdb")

この度ファイルを他の人へ配布することになったのですが、パス名を相対パスで書くことは出来ないのでしょうか？
他の人のコンピュータ名も分からない為、
出来たら元ファイルと同じフォルダにある…というような指定が出来れば助かるのですが…。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2010/03/06 00:00

Currentproject.Path

で、現在の MDB のフォルダが取得できます。

この回答へのお礼

ありがとうございました。
なんとかうまくいきました。

お礼日時：2010/03/09 20:06