Accessからエクスプローラでイントラネット

質問

Accessのコントロールに設定されたハイパーリンクをクリックしてエクスプローラでイントラネットに入ろうとすると「ハイパーリンクにはコンピュータやデータに問題を起こす可能性が....」というメッセージが出ます。これを出さないように設定（またはVBAプログラム）できますか？

回答No.2

nicotinism · ベストアンサー

Office 2003 でハイパーリンク警告メッセージを無効にする方法
http://support.microsoft.com/kb/829072/ja

FQDN または IP アドレスを使用すると、イントラネット サイトがインターネット サイトとして識別される
http://support.microsoft.com/default.aspx?scid=kb;ja;303650

この辺でしょうか？
当方Access2002

回答No.1

chie65536

警告の抑止は
DoCmd.SetWarnings False
です。

このままでは、保存せずにいきなりウィンドゥ右上の[X]で閉じた場合にも無警告に変更を破棄して閉じてしまうので、必ず
DoCmd.SetWarnings True
で元に戻して下さい。

また、エラーが出てモジュールの実行が停止すると、警告が抑止されたままになるので、必ずエラーハンドリングをする必要があります。

Public Sub xxx()
On Error GoTo xxx_err
　　DoCmd.SetWarnings False

　　ここで警告が出る可能性のある処理をする

　　DoCmd.SetWarnings True
　　Exit Sub
xxx_err:
　　DoCmd.SetWarnings True
　　エラー表示する場合はここでMsgBox
End Sub

なお、この警告の設定はAccessが警告を行っているもののみ有効です。ActiveXコンポーネントの内部でAccessとは無関係に警告を出す場合には通用しません。

お礼

ありがとうございました。