asked on

Filtering continuous form with Radio Buttons

I am trying to filter a continuous form with some radio buttons using select case statement. For some reason I cannot get it to work at all. I need to use two different sets of radio buttons one set is MODE and one is STATUS. Is the select case incorrect?

Me.opt_Shipped = False
Me.opt_statusAll = False
Me.opt_notScheduled = False

'Me.Filter = "[APPT DATE-TIME] > 0" <<<<<<<<<THIS WORKS
'Me.FilterOn = True
'Exit Sub

Select Case Me.opt_scheduled <<<<<<<< THIS DOES NOT WORK
Case 1
opt_scheduled = True And Me.opt_modeAll = True
Me.Filter = "[APPT_DATE_TIME] > 0"
Me.FilterOn = True
Case 2
Me.opt_scheduled = True And Me.opt_truck = True
Me.Filter = "[APPT_DATE_TIME] > 0 And [METH] = 'TR'"
Me.FilterOn = True
Case 3
Me.opt_scheduled = True And Me.opt_rail = True
Me.Filter = "[APPT_DATE_TIME] > 0 And [METH] = 'RR'"
Me.FilterOn = True
Case 4
Me.opt_scheduled = True And Me.opt_barge = True
Me.Filter = "[APPT_DATE_TIME] > 0 And [METH] = 'BG'"
Me.FilterOn = True
Case 5
Me.opt_scheduled = True And Me.opt_PickUp = True
Me.Filter = "[APPT_DATE_TIME] > 0 And [METH] = 'PU'"
Me.FilterOn = True
End Select

als315

Can you upload your DB with sample data?

ASKER CERTIFIED SOLUTION

peter57r

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

pskeens

ASKER

Holy Crap Peter, I'm suffering from late night programming brain fade! You are absolutely correct. I fixed the case statement with this:

Select Case Me.opt_notScheduled
Case Me.opt_notScheduled = True And Me.opt_modeAll = True
Me.Filter = "[APPT DATE-TIME] is null"
Me.FilterOn = True
Case Me.opt_notScheduled = True And Me.opt_barge = True
Me.Filter = "[APPT DATE-TIME] is null and [METH] = 'BG'"
Me.FilterOn = True
Case Me.opt_notScheduled = True And Me.opt_PickUp = True
Me.Filter = "[APPT DATE-TIME] is null AND [METH] = 'PU'"
Me.FilterOn = True
Case Me.opt_notScheduled = True And Me.opt_truck = True
Me.Filter = "[APPT DATE-TIME] is null AND [METH] = 'TR'"
Me.FilterOn = True
Case Me.opt_notScheduled = True And Me.opt_rail = True
Me.Filter = "[APPT DATE-TIME] is null AND [METH] = 'RR'"
Me.FilterOn = True
End Select

Thanks for waking me up!

pskeens

ASKER

Yes this explains what I was doing wrong. Not sure what I was thinking.

Thanks for your help once again!