FilterByForm Macro then ApplyFilter

[dscottf]

I have a form containing many records that I want to filter. I created a macro to use the "RunMenuCommand" with FilterByForm as the argument. It works great, but I have to right click on the form to gain access to the Apply filter command. I tried creating another macro with command button to use the "RunMenuCommand" with the Apply Filter argument. The problem is this button is grayed out when the Filter By Form is active and I'm unable to access it. Is there a way to create this?

[maximus]

I have a form containing many records that I want to filter. I created a macro to use the "RunMenuCommand" with FilterByForm as the argument. It works great, but I have to right click on the form to gain access to the Apply filter command. I tried creating another macro with command button to use the "RunMenuCommand" with the Apply Filter argument. The problem is this button is grayed out when the Filter By Form is active and I'm unable to access it. Is there a way to create this?

I have a simple table with the following fields:

tblEmployee
employee_code(Integer)
employee_name(Text)
employee_DOB(Date/Time)

I have build a form and I have a text box in which I would like to type the employee code to filter my form accordingly. Command5 Button filters the form and Command6 Button Clears the filter.

Private Sub Command5_Click()
Me.Filter = "[employee_code]=" & Me.Text3
Me.FilterOn = True


End Sub


Private Sub Command6_Click()
Me.FilterOn = False
End Sub

You can use this to filter your form using the employee name which will require a slight adjustment in the code:
Private Sub Command5_Click()
Me.Filter = "[employee_name]='" & Me.Text3 & "'"
Me.FilterOn = True

and for date

Private Sub Command5_Click()
Me.Filter = "[employee_DOB]=#" & Me.Text3 & "#"
Me.FilterOn = True