Report Filter

[SFC]

I'm trying to create a macro in my report that will filter records when a checkbox is checked in a form.

My form has a checkbox that when not checked the value is "0"
When checked the value is "-1"
the checkbox name is "CheckFabric"

In my report, I have an event in the header that starts when printing. The event is an embedded macro as follows:
Attachment 5848



Budget Report is my table, Extra1 is a value 1 or 0.

When "CheckFabric" = -1 (is checked), I want to filter the table so only the Records that Extra1 = 0 show.

Any suggestions is greatly appreciated

[June7]

What is issue - error message, wrong results, nothing happens? I don't use macros, harder to debug.

You have field in table with a Yes/No value and you want an unbound Yes/No form control to determine whether or not to apply filter to the field?

[SFC]

Hi June7,
Thanks for the reply:
The current issue is that when the filter is being applied (the box is checked) I get a dialog box stating that there is no current record. Then after clicking ok to close the dialog box a number of time, another dialog reads that there is a type mismatch.

The yes/no value is saved in the table (actually a value of 0 or 1) but the checkbox in the form determines if the filter is applied or not.

I refer to the form because the people in my office use the runtime version of access and the only can input to the form, then they click a print button which produces the report. I want the checkbox to give them the option of not including a record in the report depending if it is checked.

[June7]

I would use VBA code to open report and set filter criteria if chosen. Are any other fields considered in filtering the data?

In the print button Click event VBA procedure, like:
DoCmd.OpenReport "reportname", , , IIf(Me.CheckFabric = vbTrue,"Extra1=0","")

The IIf expression is in the WHERE CONDITION argument.

Maybe you just need to modify the WHERE CONDITION in the macro. Instead of In ("0") try the =0.

[SFC]

I will give it a try, although I'm not to confortable with VB