ハイパーリンクをコマンドボタンで開く方法

Question

Accessに関しての質問です。
パソコン内に顧客の情報を管理しているフォルダーがあります。
そのフォルダーをAccessで作成してる顧客管理フォーム内のコマンドボタンから開きたいのですが調べてもこれといった情報が見つかりませんでした。
(検索不足でしたら申し訳ありません)

そのフォルダーは顧客テーブルのフィールドにハイパーリンク型のレコードとして格納されています。

顧客管理フォームのレコードソースは顧客テーブルになっております。

また、追加の仕様としてコマンドボタンを押したときフォルダーがまだ作成されていないようだったら新しくフォルダーを作れるようにしたいです。
例えば、
"C:\Users\name\Desktop\顧客管理\1~99\佐藤 花子"
上記のパスが顧客のフォルダーとして

もし上記のようなフォルダーがない場合
"C:\Users\name\Desktop\顧客管理\1~99"
このように1つ前のフォルダーを開くようにしたいです。

説明不足かもしれませんが必要な情報などありましたら教えてください。

宜しくお願い致します。

Answer 1

FollowHyperlinkで開くことができます。
リンク先がなければエラーがでますので、エラーがでたら、一つ上のフォルダーを開くようにすればいいでしょう。
ハイパーリンク型フィールドの名前を「HL」としたら、

Private Sub コマンド0_Click()
    On Error Resume Next
    Dim link As String
    link = Me.HL.Hyperlink.Address
    Call FollowHyperlink(link)
    If Err <> 0 Then
        link = Left(link, InStrRev(link, "\") - 1)
        Call FollowHyperlink(link)
    End If
    On Error GoTo 0
End Sub

Comments

[zerobemy]

hatena様
いつも回答いただきありがとうございます。
こちらのコードをコピーし「HL」のところをこちらが設定したフィールド名を入れたのですが
「コンパイルエラー：メソッドまたはデータ メンバーが見つかりません」と出てしまいます。
青くなるのはフィールド名です。
フィールド名はコピーし貼りつけたので間違ってはいないと思うのですが・・・

すみませんがお力をお貸しください。

[hatena19]

フォーム上にハイパーリンク型フィールドと連結したテキストボックスを配置しておく必要があるようです。
ご確認ください。