I have a report where I want to check a check box and if true I want a text box to show else make it invisible. Below is the code I have on the report On Current event however, it's not working. Would appreciate any suggestions.

check box = mocBill
text box = mocText

Private Sub Report_Current()
If Me.mocBill = Yes Then
Me.mocText.Visible = Yes
Else
Me.mocText.Visible = No
End If
End Sub

Basically if it's a mock bill I want to display a text box saying Mock Billing and if it's not then it will be blank.

Thanks in advance.

Instead of Yes and No, try using True or False, respectively.

If you don't need to do anything else dependent on the value of mocBill, you can shorten the code to one line:



Mike

Hi,



Are you viewing your report in Report View or Print Preview? Did you also want this to happen when you actually print the report?

PS. I moved your topic from Access Queries into the Reports forum.

Just my 2 cents...

I'm viewing in report view but I also want to print it.

Thanks Mike. I put the shorter code in and it's working I think but after selecting a new customer and a new month and bringing up a new report, the calculated total and the text box are not there until I click on the report. Is there some kind of command to refresh the screen or something that would force it to display correctly right away?

Hi,

That's interesting... I was thinking that the Current event was the wrong event to use, and I didn't even expect it to do anything.

Just my 2 cents...

It seems to correct itself if I click on the report but I shouldn't have to do that. After your comment I moved it to Load and now I don't have the problem. Thanks so much for both of your help.

Hi,



Glad to hear you got it fixed. Mike and I are happy to assist.

Good luck with your project.