MS ACCESSのVBA-ファイルの相対アドレス

質問

MS ACCESS(2013）で、フォームの画像フィールドにVBAで画像ファイルを指定して表示するようにしています。ただ、現在は絶対アドレス指定をしていますが、相対アドレス指定をこころみましたが、失敗しています。相対アドレス指定のやりかたが間違えているのかもしれません。方法をお教えください。(同じドライブの同じフォルダ内のサブフォルダ内に画像がありますが、データベースごと(その関連のフォルダごと）USBなどの外部ｆデバイスに移そうとしています。)

絶対アドレスのＶＢＡ
Private Sub PlayerPicture_Set() '----画像表示(共通)
On Error GoTo Err_PlayerPicture_Set
If Me.PicTrue > 5 Then
Me.PicTrue = 9
Me.IMG.Picture = "E:\My\DataBase\Music\Pic\小熊003.bmp"
End If
If Me.PicTrue = 1 Then
Me.IMG.Picture = "E:\My\DataBase\Music\Pic\Player\" & Player & ".bmp"
End If

If Me.PicTrue = 2 Then
Me.IMG.Picture = "E:\My\DataBase\Music\Pic\Player\" & Orchestra & ".bmp"
End If

変更例
If Me.PicTrue = 1 Then
Me.IMG.Picture = "E:\My\DataBase\Music\Pic\Player\" & Player & ".bmp"
End If

--->

If Me.PicTrue = 1 Then
Me.IMG.Picture = "..\Pic\Player\" & Player & ".bmp"
End If

相対アドレス化するために　..(コロン、コロン）で上位にいってましたが、もしかすると、間違いかと思い、..(上位もどり)を排除　"\Pic\Player\" & Player & ".bmp" してみましたが、それでもエラーでした。

なお、Ｍｕｓｉｃ．ｍｄｂ（ＡｃｃｅｓｓＤＢ）は　E:\My\DataBase\Music　　の直下にあります。

以下省略。

回答No.3

hatena1989 · ベストアンサー

前の回答、文字化けしていますので、訂正です。

誤）
Asusutasisiのプロパティでは相対アドレスは認識出来ません。

正）
Accessのプロパティでは相対アドレスは認識出来ません。

お礼

了解しました
MS OfficeはカレントディレクトリがWeb対応されていないと読めました。
要するに、以下のような処理が必要かと。

Dim lnkPath As String
lnkPath = CurrentProject.Path

・・・・
If Me.PicTrue = 2 Then
Me.IMG.Picture = lnkPath & "\Pic\Player\" & ComposerName & ".bmp"
End If

(以下省略)
なお、投稿時点では\=円マークでしたが、フォント設定かバックスラッシュに文字化けしてます。
Excelでは、Projectではなく,WorkSheetに該当するのでしょうが、MSの構成からいって、原則、マイドキュメントやTempのデフォルトディレクトリを指し示すようですね。
上記構文でエラーなく対応できました。
最近、MS Access Clubがどういう理由か閉鎖されてしまい、サポートに不満もありますが、素人には皆様の知見を収集するしか対策なしです。
今後とも、恥ずかしい質問をご披露すること、お許しください。

回答No.2

hatena1989

Asusutasisiのプロパティでは相対アドレスは認識出来ません。

CurrentProject.Path でデータベースファイルのあるフォルダーのパスを取得出来ますので、
それを使えばいいでしょう。

If Me.PicTrue = 1 Then
Me.IMG.Picture = CurrentProject.Path & "\Pic\Player\" & Player & ".bmp"
End If

回答No.1

papapa0427

＞Me.IMG.Picture = "..\Pic\Player\" & Player & ".bmp"
を
Me.IMG.Picture = "E:..\Pic\Player\" & Player & ".bmp"
で駄目でしょうか？