I have a query to list the date of birth of all the customers and it works fine.
Now I have a form to show the user of all customers birthday due today, tomorrow, next month and so on, and is the DateAdd function I used to do that.
Unfortunately, once after the user made a selection, the list always shows no record. If the user selection is no condition, meaning ‘show all record’, it works fine.
I just couldn’t spot the mistake and appreciate any utter member can assist me.
Note: [CPDOB] is my Customer Profile Date Of Birth in the query.
Private Sub ogShowWhen_AfterUpdate()
'Apply a filter based on the setting of ogShowWhen
Select Case Me.ogShowWhen
Case 1 'Last 30 days
Case 2 ' Last 7 Days
Case 3 ' Yesterday
Case 4 'Today
Me.Filter = "#" & Format([CPDOB], "dd-mmm") & "# = #" & Format(Date, "dd-mmm") & "#"
Me.FilterOn = True
'Clear my filter
Me.Filter = ""
'Make sure the filter is off
Me.FilterOn = False