Userform problem

[Roccafelie]

Hello Everyone

I am looking for a macro or code that if a field not filled or choosen in userform, there will be a error message says "cant continue, please make sure all fields are filled etc..)

I believe it s asked before, but I cant find the relevant thread.

I ll be hapy, if you could give me a hand with that

Thanks

 

[Andrew Poulsom]

Example:

Private Sub CommandButton1_Click()
    If TextBox1.Text = "" Then
        MsgBox "Please complete TextBox1"
        TextBox1.SetFocus
    Else
'       Code if all OK
    End If
End Sub

 

[Roccafelie]

Thanks andrew

 

[Roccafelie]

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
MsgBox "Please complete TextBox1"
TextBox1.SetFocus
Else
' Code if all OK
End If
End Sub


but this is only for textbox1 ot filled, what if there are more than 1 text boxes, will it be like this ?

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
MsgBox "Please complete TextBox1"
TextBox1.SetFocus
If TextBox2.text = "" Then
MsgBox "Please complete TextBox2"
TextBox1.SetFocus
Else
' Code if all OK
End If
End Sub

?

 

[Andrew Poulsom]

Like this:

Private Sub CommandButton1_Click()
    If TextBox1.Text = "" Then
        MsgBox "Please complete TextBox1"
        TextBox1.SetFocus
    ElseIf TextBox2.Text = "" Then
        MsgBox "Please complete TextBox2"
        TextBox2.SetFocus
    Else
'       Code if all OK
    End If
End Sub

 

[Roccafelie]

Thanks Andrew

 

[Roccafelie]

what if an optionbutton not choosen ?

 

[Andrew Poulsom]

If an OptionButton is not checked its value is False. Example:

Private Sub CommandButton1_Click()
    If OptionButton1.Value = False Then
        If OptionButton2.Value = False Then
            If OptionButton3.Value = False Then
                MsgBox "Please choose an option"
                Exit Sub
            End If
        End If
    End If
'   Code if one OptionButton checked
End Sub

 

[Roccafelie]

I coulnt adjust this macro to the one above

I need to use "else if" function

 

[Roccafelie]

maybe writing a new macro considering their Groupname
e.g if none of the option buttons belongs to Group1 are not chosen then MsgBox "Please choose an option"