ハイパーリンク型フィールドからファイルを開く

質問

ACCESS2007を使用しています。

まず、ハイパーリンク型のフィールドをひとつ持つテーブルAがあります。

そのフィールドには、例えば　C:\My Documents\workbook1.xis というリンクが格納されています。

フォームからの条件入力により、テーブルAよりレコードが抽出されるクエリBを作りました。

そのクエリBに含まれる、レコードのハイパーリンク先のファイルを一括で開くVBAを作ろうとしたのですが、まったく方法が思いつきません。

どなたか、ご教授願えないでしょうか？

回答No.1

mitarashi · ベストアンサー

Access2010でやってみましたが、2007でも、それ以前でも動くと思います。ご参考まで。
前提：Q_Hyperlinkというクエリに、Hyperlinkという名前のフィールドがあるとします。
（紛らわしいですね．．．）
ただし、エクセルのファイルを、マクロ有効無効に煩わされずに開きたいといった場合は、
さらに工夫が必要となります。

Sub test()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Q_Hyperlink", dbOpenSnapshot)
Do Until rs.EOF
Application.FollowHyperlink (rs!Hyperlink)
rs.MoveNext
Loop
Set db = Nothing
Set rs = Nothing
End Sub

'当方の使い慣れたADOの場合、Ac2010では参照設定する必要があります。
Sub test2()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "Q_Hyperlink", cn, adOpenForwardOnly, adLockReadOnly
Do Until rs.EOF
Application.FollowHyperlink (rs!Hyperlink)
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

'

お礼

ＷＥＢを検索しまくった結果、クエリーの抽出条件がフォームのテキストボックスを参照していた場合、パラメーターの設定が必要とのことで、QueryDefを使ってなんとか自己解決できました。

ご協力ありがとうございました。<(_ _*)>

補足

丁寧なご回答ありがとうございます。

早速、使ってみたのですがDAOの場合「パラメータが少なすぎます。1を指定してください。」

ADOの場合、「SQLステートメントが正しくありません。'DELETE','INSERT','PRCEDURE','SELECT',または'UPDATE'を使用してください。」

とエラーが返ります。どうしたら良いでしょうか？