Label Visibility basied on Field value

[MayaMana]

I have a report (in access 2007) that has labels on the bottom where certain people need to sign once the report is printed out. I am trying to figure out how to make it so that only the labels that have been checked for that record show (since not everyone will need to sign all the time). Right now the codes I have tried without success are:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Reports![ReportGC]![Manufacturing] = True Then
Reports![ReportGC]![ProductionSuperintendent].Visible = True
Else
Reports![ReportGC]![ProductionSuperintendent].Visible = False
End If

End Sub

&

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.ProductionSuperintendent.Visible = Nz(Me.Manufacturing, 0)
Me.ProcessingSuperintendent.Visible = Nz(Me.Manufacturing, 0)
Me.Engnineering.Visible = Nz(Me.Engineering, 0)
Me.SafetySupervisor.Visible = Nz(Me.Safety, 0)
End Sub

Any advice/help is greatly appreciated.

 

[vbaInet]

Re: Lable Visibility basied on Field value

Is Manufacturing a Yes/No field?

 

[MayaMana]

Re: Lable Visibility basied on Field value

Yeah, they are all yes/no fields.

 

[vbaInet]

Re: Lable Visibility basied on Field value

And the four controls that you wish to hide are labels that are not attached to any other controls, like a textbox for example?

 

[MayaMana]

Re: Lable Visibility basied on Field value

No, they are just labels.

 

[vbaInet]

Re: Lable Visibility basied on Field value

Your code looks alright. Can you upload a sample db.

 

[MayaMana]

Re: Lable Visibility basied on Field value

How do I make a db sample small enough to post on here?

 

[Sketchin]

Re: Lable Visibility basied on Field value

If you copy and pasted the code, this is spelled wrong:
Me.Engnineering.Visible = Nz(Me.Engineering, 0)

 

[vbaInet]

Re: Lable Visibility basied on Field value

* Create a table from the recordsource of your report
* Remove sensitive data and leave some test data
* Create a report based on this table
* Upload this cutdown version

 

[vbaInet]

Re: Lable Visibility basied on Field value

If you copy and pasted the code, this is spelled wrong:
Me.Engnineering.Visible = Nz(Me.Engineering, 0)

Well spotted!

Debug > Compile your code as well, before uploading.

 

[MayaMana]

Re: Lable Visibility basied on Field value

Okay, give me a moment to make that.
Thank you, even with just the ones above that it wasn't working though. I will fix it though.

 

[MayaMana]

Re: Lable Visibility basied on Field value

Okay, I fixed the spelling on the report and code so that they should be correct also.

 

[vbaInet]

Re: Lable Visibility basied on Field value

You're trying to run the code in Report View. The Format event doesn't fire in Report View.

Your code will work when you print it out or when you open it in Print Preview.

 

[MayaMana]

Re: Lable Visibility basied on Field value

Is there a way to have it work in Report View also?

 

[vbaInet]

Re: Lable Visibility basied on Field value

Nope !!!

Actually you can use Conditional Formatting to change the ForeColor to white.

 

[MayaMana]

Re: Lable Visibility basied on Field value

Okay, thank you

 

[vbaInet]

No problem!