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

Question

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

Answer 1

考虑3个文本框。如果它们都不包含值，则每个值IsNull()都为True。因此，您可以测试If ... Then条件以确定它们何时都为空。

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

您可以在表单的Before Update事件中使用它，并设置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个。