Creating FILTER Buttons

[Kipster1203]

Here is what my form looks like so you can get an idea:



http://i49.tinypic.com/2lvllpi.jpg

In the picture on the right you see 3 buttons, all, open, or closed. These don't do anything yet. When all is clicked, all records should show, when open is clicked, only records with issue status open would show, etc...

How can I create such a filter?

[pbaldy]

One way is to manipulate the filter property:

Me.Filter = "Status = 'Open'"
Me.FilterOn = True

[Kipster1203]

which filter property

[pbaldy]

The filter property of the form you're trying to filter.

[Kipster1203]

The issue I'm having is that the buttons are located in the main form, and the data is under the tab, in a subform called QList Subform.

here is some of the code that I've been trying, for some reason Access doesn't recognize the name of my subform name (QList Subform)

Private Sub Open_Issue_Filter_Click()
 On Error GoTo Err_Open_Issue_Filter_Click
 
    
    'DoCmd.OpenQuery ("QList Query")
    'Me.Requery
    'Me![Qlist Subform].Requery
    'Me![Qlist Subform].SetFocus
    'Me![Qlist Subform].Form!Issue_Status.SetFocus
    
    Me![Qlist Subform].SetFocus
    
    [Qlist Subform].Form.Filter = "Issue_Status = 'Open'"
    [Qlist Subform].Form.FilterOn = True
    
    'DoCmd.ApplyFilter , "Issue_Status = 'Open'"
    

Exit_Open_Issue_Filter_Click:
    Exit Sub

Err_Open_Issue_Filter_Click:
    MsgBox Err.Description
    Resume Exit_Open_Issue_Filter_Click
    
End Sub

None of these worked because I can't get it to focus on that subform....

[Kipster1203]

Figured it out here is my code, for some reason the subform is named Child39 and I can't change it...

Private Sub Open_Issue_Filter_Click()
 On Error GoTo Err_Open_Issue_Filter_Click
    
    Me![Child39].SetFocus
    
    [Child39].Form.Filter = "Issue_Status = 'Open'"
    [Child39].Form.FilterOn = True

Exit_Open_Issue_Filter_Click:
    Exit Sub

Err_Open_Issue_Filter_Click:
    MsgBox Err.Description
    Resume Exit_Open_Issue_Filter_Click
    
End Sub

Now my question to you guys is how can I make a similar button using similar coding to show all records again?

[pbaldy]

Try

[Child39].Form.Filter = ""
[Child39].Form.FilterOn = False

[Kipster1203]

lol yea that was a stupid question, got it thanks

edit: you actually only need [Child39].Form.FilterOn = False

[Kipster1203]

New task (similar): I need to filter data in the following manner:

Clicking the complete button shows records where the Date_Completed column has data in it, and the incomplete button shows records where Date_Completed is empty. Here is the code that I'm trying which is not working, maybe someone can tweak it?

Private Sub Complete_Filter_Click()
 On Error GoTo Err_Complete_Filter_Click
    
    [Suggestions Subform].Form.Filter = Not IsNull(Date_Completed)
    [Suggestions Subform].Form.FilterOn = True

Exit_Complete_Filter_Click:
    Exit Sub

Err_Complete_Filter_Click:
    MsgBox Err.Description
    Resume Exit_Complete_Filter_Click

End Sub

[Kipster1203]

NM!!! Solved it, I needed quotes around the Not IsNull....