次の方法で共有

LastDLLError プロパティ

  • [アーティクル]

ダイナミック リンク ライブラリ (DLL) の呼び出しで生成されたシステム エラー コードを返します。 読み取り専用です。 LastDLLError は 常に Macintosh で 0 を返します。

注釈

LastDLLError プロパティは、Visual Basic コードから行われた DLL 呼び出しにのみ適用されます。 これらの呼び出しが行われると、通常は呼び出された関数から成功か失敗かを示すコードが返され、LastDLLError プロパティの値が設定されます。

戻り値が成功と失敗のどちらを示しているかを確認するには、DLL の関数のドキュメントを参照してください。 失敗を示すコードが返されると、Visual Basic アプリケーションはすぐに LastDLLError プロパティを確認します。 LastDLLError プロパティを設定した場合、例外は発生しません。

例

UserForm モジュールに貼り付けると、次のコードによって DLL 関数の呼び出しが試行されます。 渡された引数 (null ポインター) によってエラーが生成されるため、呼び出しは失敗します。また、SQL が実行されていない場合は、SQL を取り消すことはできません。

呼び出しに続くコードは、呼び出しのリターンをチェックし、Err オブジェクトの LastDLLError プロパティで出力してエラー コードを表示します。 DLL のないシステムでは、 LastDLLError は 常に 0 を返します。

Private Declare Function SQLCancel Lib "ODBC32.dll" _
 (ByVal hstmt As Long) As Integer

Private Sub UserForm_Click()
    Dim RetVal
    ' Call with invalid argument.
    RetVal = SQLCancel(myhandle&)
    ' Check for SQL error code.    
    If RetVal = -2 Then
        'Display the information code.
        MsgBox "Error code is :" & Err. LastDllError 
    End If
End Sub

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。