ブール演算子を数えよう

Question

いくつかのフィールドが必要なところで私はuserformを作成しました。彼らの名前は簡単に識別するために "R"で終わります。しかし、私はどのようにブール値のフィールドでフラグが立てられた空白のフィールドの数を数えるのか分かりません。 "True"フラグの数が0より大きい場合は、エラーメッセージを表示します。

For Each ctl In NewAsset.Controls 
If Right(ctl.Name, 1) = "R" Then 
    If ctl.Value = "" Then 
     flag = True 
    End If 

    If ctl.Value <> "" Then 
     flag = False 
    End If 
End If 
Next 

Answer 1

Dim n As Long 
For Each ctl In NewAsset.Controls 
    If Right(ctl.Name, 1) = "R" And ctl.Value = "" Then 
     n = n + 1 
    End If 
Next 
If n > 0 Then MsgBox n & " required fields are not filled!"