プロが教える店舗&オフィスのセキュリティ対策術

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

A 回答 (2件)

DoCmd でやっている "時間入力" の処理内容と、


ポップアップされるエラーメッセージの内容をみて
判断することかと思いますが ・・・
    • good
    • 0

問題のPCで


VBE の [ツール] - [オプション] - [全般]タブ で
「エラートラップ」 が 「エラー発生時に中断」になっていませんか?
    • good
    • 0
この回答へのお礼

5891615さん

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

お礼日時:2010/05/14 08:20

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!