フォーム (KB 206175) の OnError プロパティで特定の ODBC エラーをトラップすることはできません。

注: 最新のヘルプコンテンツをできるだけ早く、お客様がお使いの言語で提供したいと考えております。このページは、自動翻訳によって翻訳されているため、文章校正のエラーや不正確な情報が含まれている可能性があります。私たちの目的は、このコンテンツがお客様の役に立つようにすることです。お客様にとって役立つ情報であったかどうかを、このページの下部でお知らせください。簡単に参照できるように、こちらに英語の記事があります。

イベントプロシージャに OnError Access フォームのプロパティを設定した場合にその手順については、ODBC エラーの説明を取得することはできずも、特定の ODBC エラーをトラップことはできません。ODBC エラーが発生した場合、エラーのイベントプロシージャに渡される情報は、エラーメッセージに対応するように一般的なエラー、3146 などの数を: ODBC 呼び出しが失敗します。

原因

ODBC エラーメッセージは通常、2 つのコンポーネントで構成されます。最初のコンポーネントは、エラー 3146、説明します。

ODBC 呼び出しが失敗しました。

エラー番号となど、説明を取得できる、2 番目のコンポーネントで、サーバーに固有のエラー情報が含まれています。

[Microsoft][ODBC SQL Server ドライバー][SQL Server] < サーバー固有のエラーメッセージ > (#< エラー番号 >)

イベントプロシージャにフォームのOnErrorプロパティを設定した場合、エラーの最初のコンポーネントの数をトラップすることができますが、2 番目のコンポーネントの数をトラップすることはできません。ODBC エラーの 2 番目の部分でサーバーに固有の情報が表示されます画面に完了した後、コードを実行して指定しない限り、次の行で [イベントプロシージャ。

応答 = acDataErrContinue

解決策

注: Microsoft は、黙示保証するだけでプログラミングの例を示します。これが含まれているが、商品や特定の目的の責任に限定されます。この記事では、例示されているプログラミング言語とを作成して、プロシージャをデバッグするために使用するツールに精通していることを前提としています。Microsoft サポートエンジニアが、特定のプロシージャの機能を説明することができますが、機能の追加や、特定の要件を満たしているプロシージャを作成する次の例は変更されません。

アプリケーション手順については、フォームに基づくRecordsetCloneを更新するデータアクセスオブジェクト (DAO) を使用している Microsoft Visual Basic を作成することができます。これにより、表示されるエラーメッセージをトラップすることができます。

DAO には、ODBC エラーの 2 番目の部分でサーバーに固有の情報をトラップするために使用できるエラーのコレクションにはが含まれています。ODBC エラーが発生して、エラーコレクションの最初の要素の最初のコンポーネントが保存されている 2 番目の要素の 2 番目のコンポーネントが保存されています。

この記事の例では、ODBC の特定のエラーをトラップするのにエラーイベントではなくただしイベントを使用します。フォームのただしイベントが発生したときに、特定の ODBC エラーをトラップする関数を作成するには、次の手順を実行します。

空のデスクトップデータベースを作成します。
Microsoft SQL Server で AdventureWorks サンプルデータベースの dbo_Accounts テーブルへのリンクです。
単票形式のレイアウト、[アカウント] テーブルに基づく新しいフォームを作成するのには、フォームウィザードを使用します。
フォームを frmAccounts として保存します。
新しいモジュールを作成し、その行がない場合に宣言] セクションで、次の行を入力します。

Option Explicit

入力するか、モジュール、次の手順に貼り付けます。

Public Function SaveRecODBC(SRO_form As Form) As Boolean
' ***************************************************************
' Function: SaveRecODBC
' Purpose: Updates a form based on a linked ODBC table
' and traps any ODBC errors.
' Arguments: SRO_Form, which refers to the form.
' Returns: True if successful or False if an error occurs.
' ***************************************************************
On Error GoTo SaveRecODBCErr
Dim fld As Field, ctl As Control
Dim errStored As Error
Dim rc As DAO.Recordset

' Check to see if the record has changed.
If SRO_form.Dirty Then
    Set rc = SRO_form.Recordset.Clone
    If SRO_form.NewRecord Then
        rc.AddNew
        For Each ctl In SRO_form.Controls
            ' Check to see if it is the type of control
            ' that has a ControlSource.
            If ctl.ControlType = acTextBox Or _
                ctl.ControlType = acComboBox Or _
                ctl.ControlType = acListBox Or _
                ctl.ControlType = acCheckBox Then
                ' Verify that a value exists in the ControlSource.
                If ctl.Properties("ControlSource") <> "" Then
                    ' Loop through the fields collection in the
                    ' RecordsetClone. If you find a field name
                    ' that matches the ControlSource, update the
                    ' field. If not, skip the field. This is
                    ' necessary to account for calculated controls.
                    For Each fld In rc.Fields
                        ' Find the field and verify
                        ' that it is not Null.
                        ' If it is Null, don't add it.
                        If fld.Name = ctl.Properties("ControlSource") _
                        And Not IsNull(ctl) Then
                            fld.Value = ctl
                            ' Exit the For loop
                            ' if you have a match.
                            Exit For
                        End If
                    Next fld
                End If ' End If ctl.Properties("ControlSource")
            End If ' End If ctl.controltype
        Next ctl
        rc.Update
    Else
        ' This is not a new record.
        ' Set the bookmark to synchronize the record in the
        ' RecordsetClone with the record in the form.
        rc.Bookmark = SRO_form.Bookmark
        rc.Edit
        For Each ctl In SRO_form.Controls
            ' Check to see if it is the type of control
            ' that has a ControlSource.
            If ctl.ControlType = acTextBox Or _
                ctl.ControlType = acComboBox Or _
                ctl.ControlType = acListBox Or _
                ctl.ControlType = acCheckBox Then
                ' Verify that a value exists in the
                ' ControlSource.
                If ctl.Properties("ControlSource") <> "" Then
                    ' Loop through the fields collection in the
                    ' RecordsetClone. If you find a field name
                    ' that matches the ControlSource, update the
                    ' field. If not, skip the field. This is
                    ' necessary to account for calcualted controls.
                    For Each fld In rc.Fields
                        ' Find the field and make sure that the
                        ' value has changed. If it has not
                        ' changed, do not perform the update.
                        If fld.Name = ctl.Properties("ControlSource") _
                            And fld.Value <> ctl And _
                            Not IsNull(fld.Value <> ctl) Then
                            fld.Value = ctl
                            ' Exit the For loop if you have a match.
                            Exit For
                        End If
                    Next fld
                End If ' End If ctl.Properties("ControlSource")
            End If ' End If ctl.controltype
        Next ctl
        rc.Update
    End If ' End If SRO_form.NewRecord
End If ' End If SRO_form.Dirty
' If function has executed successfully to this point then
' set its value to True and exit.
SaveRecODBC = True

Exit_SaveRecODBCErr:
    Exit Function

SaveRecODBCErr:
' The function failed because of an ODBC error.
' Below are a list of some of the known error numbers.
' If you are not receiving an error in this list,
' add that error to the Select Case statement.
For Each errStored In DBEngine.Errors
    Select Case errStored.Number
        Case 3146 ' No action -- standard ODBC--Call failed error.
        Case 2627 ' Error caused by duplicate value in primary key.
            MsgBox "You tried to enter a duplicate value in the Primary Key."
        Case 3621 ' No action -- standard ODBC command aborted error.
        Case 547 ' Foreign key constraint error.
            MsgBox "You violated a foreign key constraint."
        Case Else ' An error not accounted for in the Select Case ' statement.
            On Error GoTo 0
            Resume
    End Select
Next errStored
SaveRecODBC = False
Resume Exit_SaveRecODBCErr

End Function

一意の名前を付けてモジュールを保存して、モジュールウィンドウを閉じます。

次のイベントプロシージャをただしfrmAccounts フォームのプロパティを設定します。

Private Sub Form_BeforeUpdate(Cancel As Integer)
' If you can save the changes to the record undo the changes on the form.
If SaveRecODBC(Me) Then Me.Undo
' If this is a new record go to the last record on the form.
If Me.NewRecord Then
    RunCommand acCmdRecordsGoToLast
Else
    ' If you can't update the record, cancel the BeforeUpdate event.
    Cancel = -1
End If
End Sub

[デバッグ] メニューの [ < データベース名 > のコンパイル] をクリックします
エラーが発生しない場合は、フォームを保存します。
FrmAccounts フォームを開いて新しいレコードを追加するか、レコードを編集します。

レコードを変更すると、別のレコードに移動するときにレコードを保存します。サーバーに固有のエラーを基にしたユーザー設定のメッセージが表示 ODBC エラーが発生する場合や、一般的な"ODBC--呼び出しに失敗しました"メッセージをトラップします。

フォーム (KB 206175) の OnError プロパティで特定の ODBC エラーをトラップすることはできません。

原因

解決策

ヘルプを表示

その他のオプションが必要ですか?

この情報は役に立ちましたか?

フィードバックをいただき、ありがとうございます。