use one code for multiple uses

[Av8tordude]

I have this code that will inform the user they have enter an invalid time.

I have 20 textboxes that requires validating the correct time. Can someone assist with editing this code to allow me to use this 1 code in all 20 textboxes. Thanks for your help.

Private Sub txtReport_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim t

If Len(Me.txtReport) Then
    t = Me.txtReport
    If Not ISTIME(t) Then
        MsgBox "Please enter a valid time."
        txtReport = ""
        Cancel = True
    End If
End If
End Sub

 

[djreiswig]

Try this function.

Function InvalidTime(TB As MSForms.TextBox) As Boolean
    If Len(TB.Text) Then
        If Not IsTime(TB.Text) Then
            MsgBox "Please enter a valid time."
            TB.Text = ""
            InvalidTime = True
        End If
    End If
End Function

Call it this way in each of your textbox subs.

Private Sub txtReport_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = InvalidTime(txtReport)
End Sub

It returns True if the time is invalid, and false if it is valid. Kind of backwards, but that is so you can set the cancel correctly.

 

[Av8tordude]

Awesome djreiswig. Works great. Thank you