On ErrorでエラーをトラップしてエラーNOとエラー内容をダイアログに表示させています。
Private Sub pv_sample()
Dim errno as Long
On Error GoTo ERR_END
' 処理内容略
Exit Sub
ERR_END:
errno = Err.Number
MsgBox "システムエラー エラーNO(" & errno & ") 内容(" & Err.Description & ")"
End Sub
エラーが発生した場合はErr.Numberには0以外がセットされるはずですが
「システムエラー エラーNO(0) 内容()」
というメッセージが表示されることがあります。
On Eroorで飛んできたときにエラーNoが0になってしまうことはありえるのでしょうか。
No.3ベストアンサー
- 回答日時:
プロシージャ内のエラー時にエラートラップ(On Error goto)によってでERR_END:に飛んでいれば、Err.Number には必ずエラー番号が入ってくるはずです。
ですので以下は省略されている部分の推測です。
このプロシージャから呼び出しているプロシージャ(以下サブプロ)があるとして、そのサブプロでエラーが発生した場合、
(1)そのサブプロでエラートラップがされていなければ、このプロシージャのエラートラップ(On Error goto)に引っかかり、ERR_END:に飛んできます。その際はErr.Numberにはエラー番号が格納されています。
(2)そのサブプロでエラートラップしている場合、エラー処理後戻ってくるので、このプロシージャのエラートラップには引っかかりません。その際はErr.Numberにはエラー番号が格納されていません(0)。
(2)の場合で、ERR_END:に飛ぶような記述をしていれば、今回のような現象が起きます。確認してみてください。
上記の内容が参考になればと思います。
回答ありがとうございます。
問題のプロシージャからは他のプロシージャは
呼んでいませんでした。
また、他にgoto ERR_ENDもないのでOn Error goto以外でERR_END:に飛ぶことはないと思います。
No.2
- 回答日時:
質問にお書きになったソースからすると関係なさそう
ですが、Exit Subの書き忘れのせいでエラーでは
ないのにエラー処理部分にまわってしまうことが
ありえます。一応お確かめになると良いかと思います。
No.1
- 回答日時:
通常ないとおもうんですが、未定義の場合、大きな数字になりますよね。
Erlで、エラーの起こった行を見れませんか?
たぶん、サブルーチンとかでエラーになった場合、処理方法によっては、エラーNoは確定出来ないかも?
なんか、以前 0 になった記憶はあるんですが、原因が思い出せません。
頻繁に出るようで有れば、デバックモードで追跡するしかないですね...
回答ありがとうございます。
書き忘れましたがVB6なのでErlは使えませんでした。
エラー箇所が特定できればよいのですが開発環境では
発生しないため難しい状態です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) Worksheets メソッドは失敗しました。のエラー処理のやり方 4 2022/05/29 21:29
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- その他(パソコン・周辺機器) dvd書き込めない 5 2022/03/22 19:06
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- 画像編集・動画編集・音楽編集 DVD Styler トラブル解決方法 6 2022/10/29 16:00
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
-
4
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
5
「RunSQL」と「Execute」の違い
Access(アクセス)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
VBAのエラー発生場所をメッセージBOXに表示
Visual Basic(VBA)
-
8
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
9
Access サブフォームでの選択行の取得
その他(データベース)
-
10
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
15
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
-
16
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
17
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
18
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
19
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
20
エクセルでエラーが出て困っています。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
String""から型'Double'への変...
-
UserForm1.Showでエラーになり...
-
エクセルVBA 「On Error GoTo...
-
【VBA】ワークブックを開く時に...
-
お助けください!VBAのファイル...
-
VBAでfunctionを利用しようとし...
-
On ErrorでエラーNoが0
-
VB.net 重複チェックがしたいです
-
VBでSQL文のUPDATE構文を使った...
-
ACCESSで値を代入できないとは?
-
「実行時エラー '3167' レコー...
-
マクロで"#N/A"のエラー行を削...
-
実行時エラー'-2147467259(8000...
-
実行したSQLの結果を返す方法
-
インポート時のエラー「データ...
-
【VB.NET】 パワポ操作を非表示で
-
VBA処理中に途中で止まってしま...
-
マクロの「SaveAs」でエラーが...
-
VB6とVB.NETでNullの扱いが違う?
-
【VBAエラー】Nextに対するFor...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
On ErrorでエラーNoが0
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
VBA データ(特定値)のある最...
-
実行時エラー 438 の解決策をお...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
エクセルVBA 「On Error GoTo...
-
【VBA】ワークブックを開く時に...
-
マクロの「SaveAs」でエラーが...
-
ACCESSで値を代入できないとは?
-
実行時エラー'-2147467259(8000...
-
インポート時のエラー「データ...
-
【VB.NET】 パワポ操作を非表示で
-
Filter関数を用いた結果、何も...
-
UBoundに配列がありませんとエ...
-
Excel vbaについての質問
-
メールの件名のセットでエラー...
おすすめ情報