ACCESSでファイル指定のダイアログを表示し、指定されたアドレスをテ

前回、コードの変更をとアクセスしたらすでに 解決済みとなっていたので一応以下ので確認 してください。プログラムの一部を訂正して います。 (1) テーブル1のフィールドにHPアドレス、リンクアドレスの 二つのフィールドを設定します。したがって、テーブルの フィールドは以下のようになります。 A B C HPアドレス 　　　　ハイパー型 リンクアドレス 　文字列型 他のフィールドの名前を変更する場合は プログラムの中も変更する必要があります。 (2) コードを以下に変更してください。 Private Sub コマンド0_Click() Dim rs As Recordset Dim strHPPath As String Dim strPath As String Set rs = Me.RecordsetClone 'テーブルに入れるデータの調整 Let strHPPath = Me!C & "#" & "D:\" & Me!A & "\" & Me!B & "_" & Me!C & "#" Let strPath = "D:\" & Me!A & "\" & Me!B & "_" & Me!C 'フォームのカレントレコードとテーブルのレコードを一致させる rs.Bookmark = Me.Bookmark 'テーブルへの書き込み rs.Edit rs!HPアドレス = strHPPath rs!リンクアドレス = strPath rs.Update rs.Close Set rs = Nothing End Sub これで、HPアドレスのフィールドにはファイル名 が入ったハイパーリンクが設定され、これをクリック するとファイルが立ち上がります。 リンクアドレスのフィールドには D:\ABCDE\12345_得意先名 のような文字列が格納されます。テーブルにハイパーリンク を設定すると基本的にはこのようになります。