Simple question about checkboxes

[George_E]

Hey guys, I am new to this forum, and also quite a newbie with Access.

I have a problem in my code and I hope you guys could find it.

I have a checkbox in one form and what I wish for is if the checkbox is ticked, the sub report is made visible. Thats all I want to do but yet I still cannot get my head around it.

Below is the snippet of code I am using, I dont know if you guys can tell by looking at it where abouts I am going wrong:

If ([Forms]![frmCars1]![ChckAss] = "True") Then
rptIssSummary.Visible = True
End If

frmCars1 is the form the checkbox is located in. ChckAss is the checkbox in the form and rptIssSummary is the report I want to become visible if the checkbox was ticked.
May I add this snippet of code is based in "On open" properties of the report.

I would be gratefull if you guys could help me, I feel as though Ive made a silly mistake somewhere

George



Btw, if this is posted in the wrong section of the forum, I do apologise to all the mods

[RuralGuy]

A CheckBox is equal to:
True or False
0 or 1
...but not "True"
It is a numerical value nor a string.

[George_E]

Thats a point, thankyou for your response ruralguy.

I am still having problems making the report visible though

George

[RuralGuy]

I have not used SubReportControls before. Do thay have a .Visible property? Not the SubReport but the SubReportControl.

[George_E]

Yes they do, in the properties section you can set whether you wish for it to be visible or not.

[RuralGuy]

Is the frmCars1 still open? Can you get that code to do anything else so you can make sure it is running?

[RuralGuy]

Be careful of the advice you are getting on AWF from smig. I know their heart is in the right place. I would think the following syntax would be enough:
rptIssSummary.Visible = Forms!frmCars1!ChckAss

[George_E]

Hello, the problem is solved!

For future reference and for any others that may stumble along the same problem, below is a snippet of the correct code:

Private Sub Report_Open(Cancel As Integer)
If ([Forms]![Cars1]![ChckAss] = True) Then
Visible = True
Else
Visible = False
End If
End Sub

Thanks again Rural guy.

George

[RuralGuy]

You're welcome. So this is in the Open event of the SubReport? You left that little detail out. Shorter code with no If's:

Private Sub Report_Open(Cancel As Integer)
   Me.Visible = [Forms]![Cars1]![ChckAss]
End Sub

[RuralGuy]

I would give yourself a pat on the back and then follow the link in my sig and mark this thread as Solved.