Case Select Code DoCmd.ShowAllRecords Not Working

[burrina]

I have a combo with a list of selections and one of them is to show all records but it does not show all of the record. Here is the code.

Select Case Me.Combo63
Case "All"
DoCmd.ShowAllRecords
Me.Requery
End Select


Me.FilterOn = True

[pbaldy]

Is that all the code? The last line will apply a filter.

[burrina]

Select Case Me.Combo63
Case "Today"
Me.Filter = "[nextschddte]=Date()"
Case "This Week"
Me.Filter = "[nextschddte] BETWEEN Date()-7 AND Date()"
Case "Last Week"
Me.Filter = "[nextschddte] BETWEEN Date()-14 AND Date()-7"
Case "Last Month"
Me.Filter = "Format([nextschddte],'mmyyyy') = Format(DateAdd('m',-1,Date()),'mmyyyy')"
Case "Next Month"
Me.Filter = "Format([nextschddte],'mmyyyy') = Format(DateAdd('m',+1,Date()),'mmyyyy')"
Case "All"
DoCmd.ShowAllRecords
Me.Requery
End Select
Me.FilterOn = True
End Sub

[June7]

I have never used ShowAllRecords and not finding much about it.

Maybe this will work:
DoCmd.RunCommand acCmdRemoveAllFilters
or
DoCmd.RunCommand acCmdRemoveFilterSort

I just tested all three and they all worked.

[burrina]

Yep, that worked,,, Thanks Again.