Access ODBC 呼び出しが失敗しましたの詳細が取れない

Question

お世話になっております。

現在、SQLを実行する処理において
「呼び出しが失敗しました」というエラーが出ております。
ですので、その部分をの直下でラベルを設定し、以下のソースでエラーの詳細を検出しようとしていますが、取得できません。

'// エラー時の処理のみ記載
Err_Handler:
    Dim lsMsg As String
    Dim DbErr As Error
  
    If DBEngine.Errors.Count > 0 Then
        For Each DbErr In DBEngine.Errors
            lsMsg = lsMsg & DbErr.Description & vbCrLf
        Next DbErr
    End If
    If lsMsg <> "" Then
        MsgBox lsMsg, vbExclamation
    Else
        MsgBox "空です", vbExclamation
    End If
    Exit Sub

ここに飛んではくるのですが、「空です」が表示されてしまいます。どのようにすればエラーの詳細を確認できますでしょうか？？

Answer 1

デバッグの際に、変数の中身まで確認しましょう。
ループの前で以下の様な初期化を行って下さい。

 lsMsg = ""

Comments

[Chandler_Bing]

回答ありがとうございます！
lsMsg = ""
実行してみます！！！

[Chandler_Bing]

初期化を実行しましたが
初期化が原因ではなさそうでした、、、。

DBEngine.Errors.Countの値が0になっています。

これはなぜだかお分かりになりますでしょうか？？

[sazi]

エラーが起きた直後じゃないとカウントは0だと思いますけど？
そもそも、「Err_Handler」ラベルにエラーの時だけ到達するような処理になっていますか？
デバッグしていないのであれば、デバッグしてみてください。