Passing parameter to query from VBA 1

[ImChard]

I have a form that opens and displays records based on a select query. I want to add a button to the form so thet when clicked there is a prompt comes up that aske for the [Last_Name]to filter the records on and then refresh the form to reflect this.. I can do this in the criteria of the query (Like "*" & [Enter all or part of Last Name] & "*") but then it happens anytime the query is run. I only want it to run when the button is clicked.

 

[TheAceMan1]

How are ya ImChard . . .

Try the following in the [blue]On Click[/blue] event of the button:

[blue]   Dim Ans As String, DL As String
   
   DL = vbNewLine & vbNewLine
   
   Ans = InputBox("Enter LastName below to filter or" & DL & _
                  "Click Close or Cancel to remove filter.", _
                  "Filter By LastName")
   
   If Ans <> "" Then
      Me.FilterOn = False
      Me.Filter = "[Name] Like '*" & Ans & "*'"
      Me.FilterOn = True
   Else
      Me.FilterOn = False
   End If[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see faq219-2884 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[ImChard]

You da Man!!!! Thanks