表單按鈕以使用表驗證保存記錄沖突

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