レコードを保存するためのフォームボタンテーブルの妥当性チェック

Question

データ入力用のフォームと、データテーブルにレコードをデータテーブルに保存する（つまり、次の空白のレコードに移動する）ボタンがあります。 「あなたのレコードは正常に保存されました」と表示されます。

ただし、フォームに必須のフィールドがあります。このフィールドでは、データテーブルに 'Is Not Null'が設定されているため、表示されるエラーメッセージを定義できます。 これは、[レコードを保存]ボタンをクリックすると、1番目にメッセージボックスが表示され、正常に保存されたことを示し、続いてデータテーブルに設定された検証エラーメッセージが表示され、続いて「指定されたレコードマクロのシングルステップウィンドウが表示され、「すべてのマクロを停止する」メッセージが表示される 検証ルール（データテーブルに設定されている）が失敗した場合、マクロの実行を停止するにはどうすればよいですか？ - これはマクロビルダの最初のイベントになると思いますか？

ありがとうございました！

Answer 1

このようなことができますが、このコードをボタンのイベントプロシージャとして使用できます。

Private Sub cmdSaveRecord_Click() 

    ' Try to save the record, skip error 
    On Error Resume Next 
    DoCmd.RunCommand acCmdSaveRecord 
    ' If not successful, display error and exit 
    If Err.Number <> 0 Then 
     ' Err.Description contains the field validation rule message 
     MsgBox Err.Description, vbExclamation, "Error on saving" 
     Exit Sub 
    End If 

    On Error GoTo 0 

    MsgBox "Your record has been saved successfully", vbInformation 
    ' new record 
    DoCmd.GoToRecord acActiveDataObject, , acNewRec 
    ' goto first control on new record, instead of cmdSaveRecord 
    Me.Text1.SetFocus 

End Sub