I'm using the following code:
I have 2 more Cases to add but I'm having trouble getting this to work.
The default is 1 (All)
I've tried this in the OnClick and AfterUpdate of the OptionGroupe.
When I click 2 (Calendar Event) O get the dreaded #Name?
Not sure where the error is.
James
Code:
Private Sub frmReminderFilter_Click()
Dim strFilter As String
Select Case Filter
Case 1 'All records
strFilter = "SELECT * FROM tblReminders ORDER BY ReminderDate, ReminderTypeID, ReminderTime, Reminder;"
Case 2 'ReminderTypeID is 1 (Calendar Event)
strFilter = "SELECT * FROM tblReminders WHERE [ReminderTypeID]= 1 ORDER BY ReminderDate, ReminderTypeID, ReminderTime, Reminder;"
End Select
Me.RecordSource = strFilter
Me.Requery
End Sub
The default is 1 (All)
I've tried this in the OnClick and AfterUpdate of the OptionGroupe.
When I click 2 (Calendar Event) O get the dreaded #Name?
Not sure where the error is.
James