Text Box functions

[sivdin]

Hi Experts,

I have set of four text boxes in an userform,along with it, I have combo box and checkboxes.
I have customized the form such that the submit button will not execute unless until all the required fields are filled b the user.Now I have four textboxes, either in one something to be filled.
To expalin in detail, If all the four text boxes are not filled then if I click submit button, it should come with a msg, otherwise if atleast one text box is filled out of four,then submit button should be OK

I have tried the following code, it did'nt work for me.Please excuse if it is silly

If Len(TextBox5.Value) And Len(TextBox6.Value) And Len(TextBox7.Value) And Len(TextBox9.Value) = Empty Then
        MsgBox "Enter number of Defects", vbExclamation
        TextBox5.SetFocus
        Exit Sub
    End If

[FRIEL]

try this

If Len(TextBox5.Value) = Empty And Len(TextBox6.Value) = Empty And Len(TextBox7.Value) = Empty And Len(TextBox9.Value) = Empty Then
        MsgBox "Enter number of Defects", vbExclamation
        TextBox5.SetFocus
        Exit Sub
    End If

the "and" operator needs arguements for each one

[FRIEL]

sorry also the LEN isnt neccerry
as you are checking if thr box is empty

so

If TextBox5.Value = Empty And TextBox6.Value = Empty And TextBox7.Value = Empty And TextBox9.Value = Empty Then
        MsgBox "Enter number of Defects", vbExclamation
        TextBox5.SetFocus
        Exit Sub
    End If

[sivdin]

That's great.. Thanks very much..Its working fine