excel - 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

IsEmptyVarianttype の変数に特別な値が含まれているかどうかを調べますEmpty。

あなたがおそらく意味したのは、文字列が空の文字列かどうかをチェックすることです:

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