Message Box for a Userform

[DevinSutherland]

I am having a problem with getting a message box to open and close when I need them to.

lets say text box 1, 2, 3, 4, 5, all have to have something entered in the fields when I click the Submit button. If they do not have something in the field then I want a message box to pop up saying the field needs to be completed. Then I want the Userform to stay open and when the Submit button is clicked again and all fields are completed then I want to unload the userform.


If TextBox1.Value = "" Then MsgBox ("Enter Date"), vbOkCancel

 

[Norie]

The code you posted looks fine, what exactly are you having problems with?

 

[DevinSutherland]

If TextBox57.Value = "" Then MsgBox ("Enter Date")
If ans = vbok Then Forecast.Show Else
Unload Me

well it unloads after you click ok it wont show the userform, it closes it after Ok is clicked.

 

[Norie]

Try this.

If TextBox57.Value = "" Then 
    MsgBox "Enter Date"
    Exit Sub
End If

 

[DevinSutherland]

that works, now how to you string more than one of those together?

If TextBox57.Value = "" Then
MsgBox ("Enter Date")
If TextBox59 = "" Then
MsgBox ("Enter Initials")
Exit Sub
End If
Unload Me

because that doesn't work

 

[Norie]

Try this.

If TextBox57.Value = "" Then
    MsgBox ("Enter Date")
    Exit Sub
End if
If TextBox59 = "" Then
    MsgBox ("Enter Initials")
    Exit Sub
End If

 

[DevinSutherland]

If TextBox57.Value = "" Then
MsgBox ("Enter Date")
Exit Sub
End if
If TextBox59 = "" Then
MsgBox ("Enter Initials")
Exit Sub
End If
Unload Me

The first one work perfect but when you add the second string in there it closes the form and doesn't keep it open after you click ok.

 

[DevinSutherland]

I think I got it!
If TextBox57.Value = "" Then
MsgBox ("Enter Date")
Exit Sub
End If
If TextBox59.Value = "" Then
MsgBox ("Enter Initials")
Exit Sub
End If
Unload Me

thanks for all of the help!!!

 

[Norie]

The code will not clos the userform if either TextBox57 or TextBox 59 are empty.