BESPOKE SEARCH

[Dave180]

What is the VBA Code for the built in Find/Replace box?

If we knew that - we could all then use and tailor it rather than ask silly
questions like "why doesn't acSearchDirection" etc work (like what I do)

cmdSearch...
With "Contacts" etc ...
!FirstName.SetFocus
.Requery
DoCmd.ShowAllRecords
DoCmd.FindRecord SearchStr, acAnywhere, False, acSearchAll, False, acAll,
False
' Works Great
....
cmdNext ...
DoCmd.GoToRecord acDataForm, "Contacts", acNext, 1
!FirstName.SetFocus
DoCmd.FindNext
' appears to work great
....
cmdPrev ...
DoCmd.GoToRecord acDataForm, "Contacts", acPrevious, 1
!FirstName.SetFocus
DoCmd.FindNext
' fails spectacularly!

I've added a Combo box for the initial search direction (all 3 options)
without total success but can't get this feeling that wheels were invented
before my applet!