Check That Mandatory TextBoxes Have Filled

assafh21 · Aug 29th 2011

Hi,
I created userform and with many textboxs (about 20)
There all must fill textboxs
How can I check whether they all been filled and I want to use message box with list of which textbox were not been filled?
Thanks
Assaf

junho lee · Aug 29th 2011

Re: Check That Mandatory TextBoxes Have Filled

Hi Assaf,
Have a look at
http://www.ozgrid.com/VBA/control-loop.htm
Regards, junho

ADDED BY ADMIN

Code

Private Sub CommandButton1_Click()


Dim cCont As Control


    For Each cCont In Me.Controls
        If TypeName(cCont) = "TextBox" And cCont = vbNullString Then
            MsgBox cCont.Name & " has not been filled in."
            cCont.SetFocus
            Exit For
        End If
     Next cCont
     
    'YOUR CODE HERE
End Sub

Display More

assafh21 · Aug 29th 2011

Re: Check That Mandatory TextBoxes Have Filled

Hi,
Not exactly
I have a form which I want to add a check if there fields are not been fulfilled than to give one message with the details of which fields need be filled
Thanks
Assaf

AAE · Aug 30th 2011

Re: Check That Mandatory TextBoxes Have Filled

Why not keep the other controls locked/disabled and progressively unlock/enable them as preceding controls have data entered?
As well, you could provide visual ques by changing the backcolor as text boxes are filled in to provide visual alert to the user.

assafh21 · Aug 30th 2011

Re: Check That Mandatory TextBoxes Have Filled

Hi,
there is not order in filling in my form, so changing color of backcolor won't help nor disable control
I just want to make sure that all the textboxs were filled and if not to send a message with list of which textbox are not been filled
I seen it in many websites when I need to register and I miss fields which are must fill fileds, and I do want to do this here.
Thanks
Assaf

Dave Hawley · Aug 30th 2011

Re: Check That Mandatory TextBoxes Have Filled

From the page Juhno linked to. For example;

Code

Private Sub CommandButton1_Click()


Dim cCont As Control


    For Each cCont In Me.Controls
        If TypeName(cCont) = "TextBox" And cCont = vbNullString Then
            MsgBox cCont.Name & " has not been filled in."
            cCont.SetFocus
            Exit For
        End If
     Next cCont
     
    'YOUR CODE HERE
End Sub

Display More

assafh21 · Aug 30th 2011

Re: Check That Mandatory TextBoxes Have Filled

Hi,It didn't work, but I manage to do a check with many ifs :)Thank anyhow.Assaf

Check That Mandatory TextBoxes Have Filled

Participate now!

Share