Question

在我的数据库中，我有一个“事件日志”表单，用户可以在其中填写信息并保存记录。表单在保存时关闭。我有3个必填字段，其余均为可选字段。在一段时间内，如果将任何必填字段留空，用户将看到一条错误消息，告诉他们缺少了什么，然后提示您返回到表单并进行更改或关闭而不保存。填写所有必填字段后，用户将单击“保存”，并且记录将在关闭表单时保存。

无论出于何种原因，现在生成的错误消息都存在问题。如果用户未能填写一个或多个字段，将显示正确的错误消息，但随后将出现一个空白的“访问”对话框，其中没有文本，只有一个“确定”按钮。如果用户单击此按钮，它将循环返回所有错误消息，然后关闭表单，而不提示您进行编辑。我需要使表单检查必填字段，显示错误消息，然后提示用户关闭而不保存或返回并进行编辑。我应该提到“保存”按钮在宏[Click Macro]中，它是标准生成的带有关闭表格的“保存记录”按钮。我最初在VBA中遇到了一些问题下面是我的代码：

Private Sub Tags_AfterUpdate()
    Me.Tags.Requery
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

    Cancel=False

If IsNull(Me.EventArea) Then
    MsgBox "Must add event area", vbcritical, "Required Field"
    Me.EventArea.BorderColor = vbRed

    Cancel = True
End If

If IsNull(Me.EventTitle) Then
    MsgBox "Must add Title", vbcritical, "Required Field"
    Me.EventTitle.BorderColor = vbRed

    Cancel = True
End If

If IsNull(Me.EventDesc) Then
    MsgBox "Must add description", vbcritical, "Required Field"
    Me.EventDesc.BorderColor = vbRed

    Cancel = True
End If

End Sub

Private Sub Form_Current()
    Me.EventCity.Requery
    Me.EventRegion.Requery
End Sub

保存记录表MS Access中的空白错误消息

0 个答案: