P
plh
Hello Again Everyone,
I thought "SetFocus" would put the cursor back in the text box and select the
text, but it does not. What would I use to put the user back in the text box and
select the offending date?
Private Sub txtDate1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim bolT As Boolean
On Error GoTo hell
bolT = NotAWorkDay(txtDate1.Value)
Exit Sub
hell:
If Err.Number = 13 Then
MsgBox "Not a Valid Date"
txtDate1.SetFocus
Else
MsgBox "Error # " & Err.Number & " Descr: " & Err.Description
End If
End Sub
Function NotAWorkDay(dtTheDay As Date) As Boolean
Dim intRes As Integer
Select Case WeekDay(dtTheDay)
Case 1
intRes = MsgBox(dtTheDay & " falls on Sunday.")
txtDate1.SetFocus
Case 7
intRes = MsgBox(dtTheDay & " falls on Saturday.")
txtDate1.SetFocus
End Select
End Function
Thank You,
-plh
I thought "SetFocus" would put the cursor back in the text box and select the
text, but it does not. What would I use to put the user back in the text box and
select the offending date?
Private Sub txtDate1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim bolT As Boolean
On Error GoTo hell
bolT = NotAWorkDay(txtDate1.Value)
Exit Sub
hell:
If Err.Number = 13 Then
MsgBox "Not a Valid Date"
txtDate1.SetFocus
Else
MsgBox "Error # " & Err.Number & " Descr: " & Err.Description
End If
End Sub
Function NotAWorkDay(dtTheDay As Date) As Boolean
Dim intRes As Integer
Select Case WeekDay(dtTheDay)
Case 1
intRes = MsgBox(dtTheDay & " falls on Sunday.")
txtDate1.SetFocus
Case 7
intRes = MsgBox(dtTheDay & " falls on Saturday.")
txtDate1.SetFocus
End Select
End Function
Thank You,
-plh