Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Forcing Input in an Unbound Text Box
- Thread starter cpsqlrwn
- Start date
straybullet
IS-IT--Management
Usually, I use the onlostfocus event of the control:
Private Sub ControlName_LostFocus()
If IsNull(Me.ControlName) Then
MsgBox "ControlName cannot be left empty", vbOKOnly, "Missing Entry"
Me.ControlName.SetFocus
End If
End Sub
This warns the user they cannot leave it empty before proceeding and sets the cursor back in the control.
Let them hate - so long as they fear... Lucius Accius
Private Sub ControlName_LostFocus()
If IsNull(Me.ControlName) Then
MsgBox "ControlName cannot be left empty", vbOKOnly, "Missing Entry"
Me.ControlName.SetFocus
End If
End Sub
This warns the user they cannot leave it empty before proceeding and sets the cursor back in the control.
Let them hate - so long as they fear... Lucius Accius
- Status
