ACCESS VBA ハイパーリンクを作成し、テーブルにセットしたい。

質問

ACCESS VBA ハイパーリンクを作成し、テーブルにセットしたい。
リンク先は、ｆｏｒｍ情報より取得したい。

状況
ファームを閉じる時に、ボタンクリック（閉じる）で、フォーム上のデータを利用し、リンク先を設定したい

フォーム（テーブル）の情報

Ａ：ABCDE
B:１２３４５
C:得意先名

リンクアドレスを D:\ABCDE\12345_得意先名

セットしたいのですが。。。
アドバイスよろしくお願いします。

回答No.1

piroin654 · ベストアンサー

質問の意味をとり間違えていなければ以下だと
思いますが。

フォーム上のテキストボックスの名前をA、B、C　とします。
フォームのレコードソースをテーブルとします。
これらのテキストボックスはフォームのレコード
ソースに連結しているものとします。
テーブルにHFというハイパーリンクを設定した
フィールドがあるとします。

Private Sub コマンド0_Click()
Dim rsf As Recordset
Dim strPath As String

Set rsf = Me.RecordsetClone

Let strPath = "D:\" & Me!A & "\" & Me!B & "_" & Me!C
rsf.Bookmark = Me.Bookmark

rsf.Edit
rsf!HF = strPath
rsf.Update

rsf.Close
Set rsf = Nothing
DoCmd.Close acForm, Me.Name
End Sub

これでフォーム上のデータをつなぎ合わせた
データをテーブルのフィールドに書き込み、
フォームを閉じます。

回答No.4

piroin654

見落としがありました。
>ハイパーリンクを作成し、テーブルにセットしたい。
でしたら、あらかじめテーブルの書き込むフィールドに設定して
おきます。コードは変わりません。

お礼

piroin654さん
助かりました、ありがとうございます。
初心者で、コードの意味はわかりませんが
早速、まねして書いてみます。
また、教えを請う事になるかもしれませんが、頑張ってみます。
では、ひとまずお礼まで　m(__)m

補足

ありがとうございました。何とか
フィールドにリンク先のアドレスは、セット出来たのですが。。。開けない
フィールドの設定は、ハイパーリンクにしてあるのですが
ハイパーリンクを含むテーブルを基にフォームを作成し
クリックするのですが、開きませんなぜでしょう？？？

回答No.3

piroin654

すみません。テーブル1のHFフィールドに
ハイパーリンクを設定しておく必要は
ありません。リンクアドレスの書き込み
だけでしたね。

回答No.2

piroin654

なお、Recordsetを利用しているので
コード表のツール→参照設定でDAOをチェックしておいてください。