Search button on form help

[gafort]

I have a database at work that I did not write completely. I can put my cursor in any field and hit search and the search/replace message box appears. I'd like to do this on my new database as well but the copied code does not work the same. Methinks I have to create a query? Here is the code from the first working database:

Private Sub btnFind_Click()
On Error GoTo Err_btnFind_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
***I'd like to learn what these items do***


Exit_btnFind_Click:
Exit Sub


Err_btnFind_Click:
MsgBox Err.Description


Resume Exit_btnFind_Click

End Sub

[June7]

I don't think a query is necessary but I've never used code like this. I build other search mechanisms. Can't you look at the design of form in other db and replicate structure?

[gafort]

I don't think a query is necessary but I've never used code like this. I build other search mechanisms. Can't you look at the design of form in other db and replicate structure?

This is the code I copied from the working database. It brings up the Find and Replace box. That is what I am trying to replicate in the new database.

[June7]

But what is different about the forms that makes the code not work? I would have to review db. If you want to provide, follow instructions at bottom of my post.

[gafort]

This is the working database. I am trying to duplicate the search function like this one. Looks easy but is not working in new database.

This is the database I am trying to get the search button to work on.

[June7]

Need to select [Event Procedure] in the button Click event property. I did that and by debugging I see the event runs but still not seeing the Find dialog opening because code should be:

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

You had:

DoCmd.FindRecord acFormBar, acEditMenu, 10, , acMenuVer70

[gafort]

I was trying different things and forgot to change back to original before sending to you. Sorry about that. Strange thing is, when I changed it back, it started working. Odd, but I'll take it. Thanks for your help.