Private Sub TexOnMainForm_Change()
Dim t As String
Dim v As Variant
t = Me.TexOnMainForm.Text & ""
If Len(t) <> 0 Then
v = Split(t & "", ":")
If UBound(v) > 0 Then
If Len(Trim$(v(1) & "")) > 0 Then
t = v(0) & v(1)
Else
t = v(0)
End If
Else
t = v(0)
End If
With Me.subFormName.Form
.Filter = "Format$([Time], 'hhnnss') Like '" & t & "*'"
.FilterOn = True
End With
Else
Me.subFormName.Form.FilterOn = False
End If
End Sub