如何在重要输入文本框为空时产生错误

Question

我正在创建一个计算载荷（e.g.pipeloads、风载荷等）的数据输入用户表单。有一些重要的文本框不能空着。如果用户单击命令 "Add Input" 并且有一些文本框未填写，我希望生成一个错误以强制用户输入一个值。

我已经知道为一个文本框生成错误了。当您尝试离开文本框而不先填充它时，此代码将触发错误警报。

    Private Sub txtdist_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Trim(txtdist.Value) = "" And Me.Visible Then
    MsgBox "Required Entry!", vbCritical, "Error"
    Cancel = True
    txtdist.BackColor = vbRed
    Else
    txtdist.BackColor = &HC0FFFF
    End If
    End Sub

我想要实现的是，当我单击 "Continue" 命令按钮时，程序将查看是否有任何文本框或组合框留空以强制用户输入值。（类似于当您尝试使用信用卡在线购买时，如果没有姓名或信用卡号码等，页面将不会提交...）。谢谢。

Answer 1

由于您希望代码在您单击 "Continue" Command Button 时检查空文本框，因此您应该在 Sub.

中添加检查代码

这是一个关于如何做到这一点的例子：

Sub Continue_click()
    '...

    If Trim(txtdist.Value) = "" Then
        MsgBox "Please fill out all required information", vbInformation
        Exit Sub
    End If

    '...
End Sub

希望对您有所帮助。

Answer 2

也许你可以试试这个

Private Sub Continue_click()

Dim c as Control

    For Each c In Me.Controls
        If TypeName(c) = "TextBox" Then

            If Trim(c.Value) = "" Then
              MsgBox "Please fill out all required information", vbInformation
            Exit Sub
            End If

        End If
    Next c
End Sub

如何在重要输入文本框为空时产生错误

How to generate an error when important input text boxes are empty

excel

vba

userform