如何编码“如果文本框不为空，则消息框“无效”

问题描述

我需要帮助编写代码

"如果文本框不为空则 MsgBox "无效"

我知道空是“”但我怎么写不为空？ 谢谢！

解决方法

非常基本的问题。试试TEXTBOX<>""。

Private Sub CommandButton1_Click()
    If Me.TextBox1 <> "" Then
        MsgBox "Invalid"
    End If
End Sub

您也可以使用 LEN() 函数。

If Len(Me.TextBox1) > 0 Then
    MsgBox "Invalid"
End If