Halting Program

[Jazzmann]

I need a way to halt the program until the user enters info into a textbox on a user form

'Check if Date Entered is Empty
If Me.txtDateEnt.Value = "" Then
MsgBox "Date Entered is Missing", vbExclamation, "Date format error"
Me.txtDateEnt.SetFocus
Exit Sub
End If

This code keeps going after the msgbox button is clicked with giving the user the opportunity to enter the information.

TIA

 

[My Aswer Is This]

Show us your entire script.

 

[Jazzmann]

Private Sub cmdAdd_Click()

'check for duplicate estimate number entry's
If WorksheetFunction.CountIf(ActiveSheet.Range("D10:D609"), Me.txtEstNum.Value) > 0 Then
MsgBox "This estimate number already exists"
Exit Sub
End If
'Add the data to the database
Set ws = Sheet1
Set LRow = Sheet1.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
'lRow.Select
With ws
LRow.Value = Me.txtPropNam.Value
LRow.Offset(0, 1).Value = Me.txtPropAdd.Value
LRow.Offset(0, 3).Value = Me.cboClass.Value
LRow.Offset(0, 4).Value = Me.cboEstr.Value
LRow.Offset(0, 5).Value = Me.txtJobDesc.Value
LRow.Offset(0, 6).Value = Format(Me.txtDateEnt.Value, "mm/dd/yyyy")
LRow.Offset(0, 11).Value = Me.cboStaus.Value
End With
'Check if Date Entered is Empty
If Me.txtDateEnt.Value = "" Then
MsgBox "Date Entered is Missing", vbExclamation, "Date format error"
Me.txtDateEnt.SetFocus
Exit Sub
End If
Unload Me
End Sub

 

[My Aswer Is This]

You should have the script check all these controls at the beginning of the script to see if they are empty.
I do not believe its possible to stop a script mid way and wait for a user to enter a value before script continues.

You have this:

LRow.Offset(0, 6).Value = Format(Me.txtDateEnt.Value, "mm/dd/yyyy")

Before you even check to see if

Me.txtDateEnt.Value = ""

The only way to stop a script to load a value into a control would be to have a Inputbox Popup

Put the value into the Inputbox then load this value into the control.​

​

 

[Jazzmann]

Thank you for your response and time. The reason its after the input is, the user has a choice to leave some of the controls blank during the add click and return to edit later. The only one that cannot be blank is the "Date Entered". It's part of an auto ID number calculation. I will use the inputbox instead of the msgbox.

Thanks again