Access2010で入力した住所地をGoogle Mapsで表示させ

Access2010で入力した住所地をGoogle Mapsで表示させる方法

下記の回答を参考にさせて頂いています。
http://detail.chiebukuro.yahoo.co.jp/qa/question …

うまくいくのですが、もしＰＣがネットに接続されていない時のエラー処理を教えてください

On Error GoTo エラー
～
～上記回答のコード
～
Exit Function
エラー:
MsgBox "ネット接続を確認して下さい。" & Chr(13) & _
"エラーナンバー：" & Err.Number & Chr(13) & _
"エラー内容：" & Err.Description, vbOKOnly
End

としたのですが、エラー処理から戻ってくると、グローバルな変数がクリアされてしまいます。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2010/09/14 23:59

最後の End ステートメント で グローバル変数がクリアされます。

VBA では、End ステートメント の出番はほぼありません。

On Error GoTo エラー
～
～上記回答のコード
～

出口:
　Exit Function
エラー:
　MsgBox "ネット接続を確認して下さい。" & Chr(13) & _
　"エラーナンバー：" & Err.Number & Chr(13) & _
　"エラー内容：" & Err.Description, vbOKOnly
　Resume 出口
End Function

こんな感じのコードで、エラーもクリアされます。

この回答へのお礼

>End ステートメント の出番はほぼありません

了解しました。Resumeを使わないとダメなんですね。
ありがとうございました。

お礼日時：2010/09/15 02:57