Returning to searchbox after show all records

[dkbfranklin]

I copied the searchbox from the contacts database template in Access 2007 for my database. It is working fine except that after I choose the Show All Records button I have to click on an actually record in the list before I can return to the searchbox. This is an extra step that I don't want.

How can I fix this without getting an error about the focus? Here is the OnClick embedded macro behind the show all records button.

Condition-Action-Arguments
RunCode-clearBox()
[Forms]![Contact List]![SearchBox] Is Null-RunCommand-RemoveFilterSort
SetProperty-cmdShowAll, Enabled, 0
StopAllMacros
RemoveTempVar-strFilter
RemoveTempVar-strSearch