On ErrorでエラーをトラップしてエラーNOとエラー内容をダイアログに表示させています。
Private Sub pv_sample()
Dim errno as Long
On Error GoTo ERR_END
' 処理内容略
Exit Sub
ERR_END:
errno = Err.Number
MsgBox "システムエラー エラーＮＯ(" & errno & ") 内容(" & Err.Description & ")"
End Sub
エラーが発生した場合はErr.Numberには0以外がセットされるはずですが
「システムエラー エラーＮＯ(0) 内容()」
というメッセージが表示されることがあります。
On Eroorで飛んできたときにエラーNoが0になってしまうことはありえるのでしょうか。
