0

我想知道是否有人能够告诉我如何检查表单中的多个字段是否有效。基本上我想为我的最后一个字段设置一个验证规则来检查所有以前的字段是否都是空白的。

我已经尝试过这个:

IsNull([FieldName])

我知道这仅适用于一个领域,但我什至无法让它发挥作用。我对访问非常陌生,因此非常感谢任何帮助。谢谢!

4

1 回答 1

1

我要做的是在您要验证的每个控件的标记属性中,在其中输入一个您可以检查的单词(例如 - 为您要检查的每个控件输入“VALIDATE”)。要查找标签属性:查看每个控件的属性表,在“其他”选项卡中,列出的最后一个字段 = 标签)。

然后作为最后一个控件的 afterupdate 事件中的代码,选择 EVENT PROCEDURE 并输入此代码:

Dim ctl As Control

For Each ctl In Forms!YourFormName
If ctl.Tag = "validate" Then
    If IsNull(ctl.Value) Then
        ctl.SetFocus
        MsgBox "You must complete the " & ctl.Name & " field.", vbOKOnly, "Required Field Missing"
        GoTo exitsub
    End If 
End If
Next

exitsub:
Exit Sub

如果找到并为空字段,它将移回该字段(设置焦点)并显示一个消息框,指出他们必须输入一个值。

于 2013-06-03T21:39:52.740 回答