Userform VBA Check if All or None of Textboxes are Filled

[tryingmybest418]

Hi all,

I have a userform with a group of 9 text boxes that I would like to check.

If the user has left them all blank or filled them all, they should be able to click "OK" and complete the form.
If the user has only filled in 1-8 of the textboxes, I'd like a message box to display telling them they must clear all the fields or complete all the fields.

Is there a way I could check this?

Let me know if my explanation is unclear!

Thanks!

 

[crazydragon84]

something like this

For Each cCont In Me.Controls
    If TypeName(cCont) = "TextBox" and cCont.value = vbNullString then msgbox "Please fill " & ccont.name & " out"
Next cCont

 

[tryingmybest418]

Thanks for the reply.

I could be wrong, but this looks like it throws the message for any and all that are empty.

I'm looking for something along the lines of, "IF all 9 are empty OR all 9 are filled, THEN do nothing, ELSE message box "

 

[crazydragon84]

oh, gotcha. yes you are correct that's what its doing.

in that case you can do something like this.

i = 0

For Each cCont In Me.Controls
    If TypeName(cCont) = "TextBox" and cCont.value = vbNullString then i = i + 1
Next cCont

If i <> 0 and i <> 9 then msgbox "Please Check"