VBA验证无法正常工作

Question

如果单击提交按钮后cbo_moduleName字段为空，我尝试返回错误消息，但没有发生任何事情。

Private Sub btnSubmit_Click()

    If IsEmpty(cbo_moduleName.Value) Then
        MsgBox ("Module Name field empty!")
        Exit Sub
    End If

End Sub

知道我在哪里弄错了吗？

Answer 1

IsEmpty检查Variant类型的变量是否包含特殊值Empty。

你可能想要检查字符串是否为空字符串：

If Len(cbo_moduleName.Value) = 0 Then
    ...
End If