Access yes no field

[pwilson]

I received this code below and it does work. Thank you. The only problem I have now is how to eliminate all the blank lines now in the report where the no's were at.



I have created a report with several yes/no fields. Out of 12 yes/no fields on the report I only want to see those per record that are checked yes. I do not need to see them if they are checked no. I have tried a couple things and hasn't worked.

Dim ctl As Control
For Each ctl In Me.Detail.Controls
If ctl.ControlType = acCheckBox Then
ctl.Visible = (ctl.Value = True)
End If


Next

[boblarson]

In the On Format event of the section of the report that they are in (I would assume the Detail Section), use this type of code:

Dim ctl As Control
   For Each ctl In Me.Detail.Controls
      If ctl.ControlType = acCheckBox Then
            ctl.Visible = (ctl.Value = True)
      End If
   Next

[pwilson]

This is the code I had and it eliminated the no check boxes but left the space in the report where all the other no fields were. Does this make since

[CraigDolphin]

Have you tried setting the Can Shrink property of the controls in your report to true? That might work. If not, then you will likely need to remove the unwanted rows of data from your report's record source. Assuming it's a query, just add a criteria of -1 to the yes/no field in your query.