Button Macro

[MikeDBMan]

I put a macro on a button to RunMenuCommand and the command is Find. It pops up the find dialog box. How do I have the macro hide/unload/remove the find command after a single execution? Thanks in advance.

 

[boblarson]

You don't. It isn't possible with a macro. If you want a find command like this, you will need to move to VBA.

 

[MikeDBMan]

Would you mind giving me the code to do that. It can't be more than a couple lines, right? Thanks.

 

[boblarson]

Would you mind giving me the code to do that. It can't be more than a couple lines, right? Thanks.

Something like this:

Dim rst As DAO.Recordset
Dim strBookmark As String
 
Set rst = Me.RecordsetClone
strBookmark = Me.Bookmark
 
rst.FindFirst "[FieldNameHere] = " & Chr(34) & Me.SomeTextBox & Chr(34)
 
If rst.NoMatch Then
   MsgBox "There was no record found", vbExclamation, "No Data Found"
   Me.Bookmark = strBookmark
Else
    Me.Bookmark = rst.Bookmark
End If
 
rst.Close
Set rst = Nothing

 

[MikeDBMan]

Bob,
That worked great. Thanks so much for the example. Now I have one more tool in my arsenal. I am new to Access but have worked with VBA in Excel for about 4 years and have done some great things in Excel. Hoping to get over the hump in Access. It is so much more enriched! Thanks again.