こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Access VBA にて on error goto がたまに機能し

Access VBA にて on error goto がたまに機能しないPCがあるます。
具体的には、on error gotoのコーディングを無視して、エラーのポップアップが表示される
何か対応する方法は、ありますか?

環境 ネットーワークにあるmdbをドライブに接続して、Accessを起動しています。
  Windows2000(sp4)+Access2000(sp3)
他のPCでは、問題ありません。PCは、イメージをクローンして作成していますので、同一です。

※コーディングイメージ
Private Sub 稼働時間_AfterUpdate()
on error goto ERR_稼働時間
Dim errcnt as integer

errcnt = 0

DoCmd.GotoRecord A_FORM,"時間入力",A_NEXT <----- エラーのポップアップが表示される

if errcnt = 1 Then
DoCmd.GotoRecord A_FORM,"時間入力",A_PREVIOUS
end if

exit sub

ERR_稼働時間:
errcnt = errcnt + 1
resume next
end sub

投稿日時 - 2010-05-13 08:50:50

QNo.5891615

困ってます

質問者が選んだベストアンサー

問題のPCで
VBE の [ツール] - [オプション] - [全般]タブ で
「エラートラップ」 が 「エラー発生時に中断」になっていませんか?

投稿日時 - 2010-05-13 09:36:42

お礼

5891615さん

早速ためして見ました
まさに、コレでした。
本当にありがとうございました

投稿日時 - 2010-05-14 08:20:05

ANo.2

このQ&Aは役に立ちましたか?

9人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

DoCmd でやっている "時間入力" の処理内容と、
ポップアップされるエラーメッセージの内容をみて
判断することかと思いますが ・・・

投稿日時 - 2010-05-13 09:27:46

あなたにオススメの質問