让用户在提交前将信息输入文本框

Question

我在一个表单中创建了 5 个文本框，我正在寻找一些 VBA 代码来提示用户至少在 5 个框中的其中一个中输入值。我想出了一个代码让用户将数据放入指定的文本框，但我希望一次验证所有五个。

Answer 1

考虑 3 个文本框。当 none 个包含一个值时，IsNull() 对每个都为 True。因此，您可以测试 If ... Then 条件以确定它们何时全部为 Null。

If IsNull(Me.Text1) And IsNull(Me.Text2) And IsNull(Me.Text3) Then
    MsgBox "Please enter a value in at least one text box."
End If

您可以在表单的更新前事件中使用它，并设置 Cancel=True 以在所有内容均为 Null 时取消更新：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If IsNull(Me.Text1) And IsNull(Me.Text2) And IsNull(Me.Text3) Then
        MsgBox "Please enter a value in at least one text box."
        Cancel = True
    End If
End Sub

如果此建议有用，您只需将其从 3 个文本框扩展到 5 个即可。

让用户在提交前将信息输入文本框

Making User Enter Information Into Textboxes before Submitting

ms-access

vba

textbox