Show userform error message

[dan_pafc]

Hi

Im looking for a bit of code so that if textbox.1 from a userform is left blank when unloading the form, a msg appears with a warning, and doesn’t allow you to save unless all boxes are completed.

I have the following at the moment:

a = TextBox1.Text
If a = "" Then
MsgBox "You must enter your name"
End If
Range("D5").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = a

Kind Regards,

Dan.

 

[xld]

Put the test in the userform unload routine and don't unload it if it is not completed.

 

[dan_pafc]

Put the test in the userform unload routine and don't unload it if it is not completed.

Thanks xld, any chance you could post an example?

 

[xld]

Yeah, assuming that you have OK and Cancel buttons, then something like

Private Sub cmdCancel_Click()
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    If Me.TextBox1.Text = "" Then
    
        MsgBox "You must enter your name"
    Else
        .... so your stuff here
        Me.Hide
    End If
End Sub