I have a VBA so I can get All Years, This year, and last year. However I can not figure out how to get last year. Please help.
Private Sub grpChoice_AfterUpdate()
Dim dDate As Date

Select Case grpChoice.Value
    Case 1: dDate = "1/1/1990"
    Case 2: dDate = "1/1/" & Year(Date)
    Case 3: dDate = "1/1/" & Year(Date)
End Select

Me.DirtSubF.Form.Filter = "[DirtDate]>=#" & dDate & "#"
Me.DirtSubF.Form.FilterOn = True
If dDate = "1/1/1990" Then
Me.DirtSubF.Form.FilterOn = False
End If
End Sub