アクセスから.tifファイルを開く
私はAccessとVBAを初めて使用するので、理解が少し遅い場合はご容赦ください.
街区のtableがあります. 「Address」フィールドは通りの名前であり、「From」フィールドと「To」フィールドは通り(住所)セグメントの開始点と終了点です.このtableには、ファイル名のフィールドと、.tifファイルが配置されている場所へのハイパーリンクパスもあります..tifファイルは、街区/交差点を示しています.ハイパーリンクはtableビューで機能するので、リンクが適切であることがわかります.
アクセスで検索フォームを作成しました.これにより、アドレスフィールドを検索でき、そのアドレスを持つtable内のエントリのみが表示されます.
クリックしたエントリに関連付けられている.tifファイルをボタンで開いてもらいたいのですが.
このようなことは可能ですか?理解できないようです.
以下のスクリーンショットをご覧ください:
[アドレス検索]ボックスに33番目と入力すると、名前に33番目が含まれているものだけが表示されます.この場合は3つのエントリ.
最初のエントリをクリックすると、ファイル名が[画像名]ボックスに表示されます.
[画像に移動]ボタンをクリックすると、ハイパーリンクされたパスに移動するか、その特定のファイルが開くように、機能させたいのです.
これが私がこれまでに持っていたボタンの内容です:
プライベートサブButtonImage_Click()
シェル"Acrobat.exeC:\PARRS\CARDS\00000001.tif"、vbNormalFocus
サブの終了
よろしくお願いします!
返信リスト(回答:5)
アドレスはリストボックスに表示されていますか?もしそうなら:
プライベートサブButtonImage_Click()
If Me.ListBox1.ListIndex-1 Then
Application.FollowHyperlink Me.ListBox1.Column(3)
Ifを終了
サブの終了
応答5# ->にスキップ3 #JRine以下は、リストボックスと検索ボックス用に私が持っているものです
オプション比較データベース
プライベートサブButtonImage_Click()
シェル"Acrobat.exe
C:\PARRS\CARDS\00000001.tif"、vbNormalFocus
サブの終了
プライベートサブSearchBox_AfterUpdate()
SearchList.Requery
サブの終了
プライベートサブSearchList_Click()
ImagePathBox.Value= SearchList.Column(4)
サブの終了
応答3# ->にスキップ4 #HansVMVどうですか
プライベートサブButtonImage_Click()
If Me.SearchList.ListIndex-1 Then
Application.FollowHyperlink Me.SearchList.Column(4)
Ifを終了
サブの終了
応答4# ->にスキップ2 #JRineHansV、
これまでお役に立ててありがとうございます.素晴らしかったです!最後のコードブロックで、このエラーメッセージが表示されました.
実行時エラー「7971」:
MicrosoftAccessはハイパーリンクをたどることができません
'#file:///
C:\PARRS\CARDS\00002618.tif
#1'.
応答2# ->にスキップ1 #HansVMVこれは機能しますか?
Private Sub ButtonImage_Click()
If Me.SearchList.ListIndex-1 Then
Application.FollowHyperlink Split(Me.SearchList.Column(4)、 "#")(1)
終了する場合
サブの終了