
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【教えて!goo ウォッチ 人気記事】風水師直伝!住まいに幸運を呼び込む三つのポイント
記事を読む>>
-
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
4
「RunSQL」と「Execute」の違い
Access(アクセス)
-
5
アクセス エラーを数値「0」に変換するには
Access(アクセス)
-
6
どこにもフォーカスを当てたくない
Access(アクセス)
-
7
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
8
アクセスVBAのMe!と[ ]
Access(アクセス)
-
9
Integer変数をカラにしたいのですが
Visual Basic(VBA)
-
10
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
11
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
Access サブフォームでの選択行の取得
その他(データベース)
-
14
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
15
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
16
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
17
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
18
access テキストボックスの値取得
Access(アクセス)
-
19
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
20
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
インポート時のエラー「データ...
-
5
エクセルVBA 「On Error GoTo...
-
6
VBA データ(特定値)のある最...
-
7
【VBA】ワークブックを開く時に...
-
8
ExecuteNonQueryメソッドの戻り値
-
9
マクロの「SaveAs」でエラーが...
-
10
エクセル 足し算引き算で 空...
-
11
VBでSQL文のUPDATE構文を使った...
-
12
pythonのopenpyxlについて
-
13
LaTeXのエラーについて(コンパ...
-
14
mailstorehomeのエクスポートで...
-
15
ActiveCell.FormulaR1C1の変数
-
16
Filter関数を用いた結果、何も...
-
17
実行時エラー 438 の解決策をお...
-
18
VBAのリストボックスで、横スク...
-
19
演算子が DBnull 及び integer...
-
20
.VBSだとADODBのプロバイダが見...
おすすめ情報
公式facebook
公式twitter