MS AccessフォームデータベースでエラーコードSQLをどのように管理できますか？

Question

私は、SQLサーバーのアクセスVBAで

Answer 1

からのアクセスフォーム サンプル重複エラーでSQLサーバーのエラー・コードを管理したい、あなたが使用する必要があります。

On Error GoTo Error_Handler 
' YOUR CODE HERE 
. 
. 
. 
Return_Label: 
Exit Function 

Error_Handler: 
'What goes here depends on the data access model 
Resume Return_Label 

Answer 2

あなたが取得する必要がありエラーエラーオブジェクトのコレクションhereのコレクション。

はこのサンプルコードを示す：

Sub DescriptionX() 

    Dim dbsTest As Database 

    On Error GoTo ErrorHandler 

    ' Intentionally trigger an error. 
    Set dbsTest = OpenDatabase("NoDatabase") 

    Exit Sub 

ErrorHandler: 
    Dim strError As String 
    Dim errLoop As Error 

    ' Enumerate Errors collection and display properties of 
    ' each Error object. 
    For Each errLoop In Errors 
     With errLoop 
     strError = _ 
      "Error #" & .Number & vbCr 
     strError = strError & _ 
      " " & .Description & vbCr 
     strError = strError & _ 
      " (Source: " & .Source & ")" & vbCr 
     strError = strError & _ 
      "Press F1 to see topic " & .HelpContext & vbCr 
     strError = strError & _ 
      " in the file " & .HelpFile & "." 
     End With 
     MsgBox strError 
    Next 

    Resume Next 

End Sub