Forced Data Entry on textbox in user form

[JeremyA1976]

I am trying to force the person doing input to enter something into a text field in a user form, in order to submit the information to the main tab. Currently, they can leave the text box blank and submit nothing into the space. There are certain fields that NEED information in order to process. Is this possible?

 

[My Aswer Is This]

Put something like this in your script:

'Modified 5/7/18 9:20 PM EDT
If TextBox1.Value = "" Then
MsgBox TextBox1.Name & "  Is Empty" & vbNewLine & "I'm going to stop this script"
Exit Sub
Else
MsgBox TextBox1.Name & "  Has the value  " & TextBox1.Value & " Entered"
End If

 

[JeremyA1976]

Thanks My Answer... That worked exactly how I wanted it. How would i work in an "or" statement to define a total of 4 text boxes that need to be filled out? If any of the 4 input text boxes are left blank, I want a similar message box to appear. Thanks a ton! I can always rely on this forum for the clearest explanation and easiest coding.

 

[My Aswer Is This]

Try this:
Assuming your Textboxes are Named Textbox1 And Textbox2 and Textbox3 and Textbox4
These are default names.
Use this script:

Private Sub CommandButton5_Click()
'Modified 5/8/18 6:30 AM EDT
Dim i As Long
Dim ans As String
Dim Ms As String
Dim Mss As String
Mss = "I will stop this script till all Textboxes are filled in"
Ms = "These TextBoxs are empty"
    For i = 4 To 1 Step -1
        If Controls("TextBox" & i).Value = "" Then ans = Controls("Textbox" & i).Name & vbNewLine & ans
    Next
If ans <> "" Then
    MsgBox Ms & vbNewLine & ans & vbNewLine & Mss
Else
MsgBox "Do This"
End If
End Sub

 

[JeremyA1976]

Thanks again, worked like a charm. I just changed my textbox names to their default and changed the wording on the error message. I appreciate your help

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thanks again, worked like a charm. I just changed my textbox names to their default and changed the wording on the error message. I appreciate your help