アクセスレポートの画像への相対パス

Question

初めてデータベースを構築したときに、遭遇した問題の解決策を共有したいと考えていました。

私の問題は、レポート内の各レコードごとに異なるイメージを表示したいということでしたが、データベースを移動できるようにしたかったのです。これは問題でした。私はすべてのフォーラムで検索し、すべての異なるソリューションは動作しませんでした。私は、唯一の方法は、画像への完全なパスを保存するか、データベースに画像を保存することだというマイクロソフトの記事を発見しました。しかし、これは、データベースが移動された場合、またはデータベースにイメージを格納すると多くのストレージスペースを占める場合に問題を引き起こします。

問題は、コードがレポート内の各レコードに対して機能しないことです。コードはレポート全体用です。したがって、バックエンドとイメージフォルダを見つけるためのコードを書くと、そのレポートのすべてのレコードの最初のイメージがレポートに表示されます。

しかし、画像の名前をテーブルに保存するだけで、時にはそれがうまくいくことがわかりました（しかし、私はパスがないので持ってはいけません）が、データベースを再起動すると停止しますワーキング。さらに調査すると、ファイルブラウザを開くたびに、ある種のメモリにパスが保存されることがわかりました。画像へのパスがメモリに保存されている限り、画像をパスにリンクすることができます。

だから私のソリューションは、レポートにアクセスするところからフォームが、開かれると...

、ファイルブラウザが開かれ、画像へのパスが（バックエンドと画像フォルダを見つけるために、コードを使用して）に貼り付けられますブラウザが閉じられます。そしてこれは、パスを使って（テーブルに格納されている）イメージ名へのリンクを作成します。そして、それぞれの異なるイメージは、レポートの異なるレコードごとにショーになります。

かなり解決策ではありません。フォームが開くたびに、ファイルブラウザのフラッシュが表示されます。しかし、それは仕事を終わらせる。負荷フォームイベントで

：

`」これは、バックエンドと画像フォルダができます：あなたはのサブフォルダに画像を移動することができます

Dim filepath As String 
Dim strBackEndPath As String 
Dim lenPath As Integer 
Dim i As Integer 
Dim j As Integer 

strBackEndPath = CurrentDb.TableDefs("yourTabeInBackend").Connect 
j = InStrRev(strBackEndPath, "=") + 1 
strBackEndPath = Mid(strBackEndPath, j) 
BackPath = Left(strBackEndPath, InStrRev(strBackEndPath, "\")) 

filepath = BackPath & "YourImageFolder\" 

'this will open the folder browser and paste in the path and close it: 

Dim f As Object 
Set f = Application.FileDialog(msoFileDialogFolderPicker) 
Dim varFile As Variant 
Dim strPath As String 
Dim fileName As String 

With f 
.InitialFileName = (filepath) 
.AllowMultiSelect = False 
SendKeys "{ESC}", True 
f.Show 

For Each varFile In .SelectedItems 
Next varFile 
End With 

`

Answer 1

をデータベースのフォルダ。その後

このような画像の名前を保存します

Picture1.jpg 
Picture2.jpg 

など

アプリケーションを実行すると、画像へのパスを取得する：次に

PictureFolder = CurrentProject.Path & "\FolderName\" 

へのパス画像は次のようになります：

PictureFolder & Me!PictureFileName.Value 

データベースを「移動」するときは、データベースファイルとそのフォルダを、画像ファイルと共に移動します。