表单按钮以使用表验证保存记录冲突

Question

我有一个用于数据输入的表格，以及一个（应该）将记录保存到数据表（即转到下一个空白记录）的按钮，带有一个消息框，显示“您的记录已成功保存”。

但是，我在表单上有必填字段，其中数据表中的验证设置为“不是空”，因此我可以定义出现的错误消息。 然后，在“保存记录”按钮上单击，导致第一：出现一个消息框，告诉我它已成功保存，然后在数据表中设置了“验证错误”消息，然后是“您不能转到指定记录” ，然后是“宏单步”窗口，提示我“停止所有宏”，如果验证规则（在数据表中设置）失败，如何停止运行宏？ -我想这会在宏生成器的第一个事件上继续吗？

感谢您提供的任何帮助！

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