Your problem is basically that you have Allow Addtions set to No, thus when the form has no records, no valid controls can receive the focus. Sure, you can set the focus to the remove filter button, but then you can't get the textbox text property. Probably the best thing you can do is trap for the error, or do something like the following:
Code:
With Me
.Recalc
.FilterOn = False
.Filter = "[Title] Like '*" & .txtTitleSearch & "*'"
.FilterOn = True
If .Recordset.RecordCount = 0 Then Exit Sub
.txtTitleSearch.SetFocus
.txtTitleSearch.SelStart = Len(.txtTitleSearch.Text)
End With
Gotta say I'm not a big fan of the flickering and if there's a LOT of records, the recordset is 'queried' on each keystroke. That can be quite the performance hit. Can't recall one of these that wouldn't allow you do enter a space between words, but your's doesn't for some reason.
The more we hear silence, the more we begin to think about our value in this universe.
Paraphrase of Professor Brian Cox.