Conditional Visibility of Two Fields in my Report based on Value in combobox Not Working

[PinkDuster]

I have a report that shows products purchased in date order with some grouping. I only want the Customer name and the Quantity purchased to be visible for a particular transaction type, Wholesale transactions. I used the following code on the OnFormat event in the Report:

 Private Sub Report_Current()
If TxnTypes = "3" Then
Reports!rptPartsSold.CustName.Visible = True
Reports!rptPartsSold.Quantity.Visible = True
Else
Reports!rptPartsSold.CustName.Visible = False
Reports!rptPartsSold.Quantity.Visible = False
End Sub

however, I still end up with the same report output, where Customer name and Quantity purchased are still showing.

[June7]

Code is in Current event, not Format.

If TxnTypes is a number type, do not use quote marks.

Simpler code:

Me.CustName.Visible = Me!TxnTypes = 3
Me.Quantity.Visible = Me!TxnTypes = 3


Instead of VBA, could have expression in textbox:

=IIf([TxnTypes] = "3", Null, [Customer])

[PinkDuster]

I tried the following (some are commented out), but now I get no visibility at all, not conditional visibility.

Private Sub Report_Load()
'If TxnTypes = 3 Then
'Reports!rptPartsSold.CustName.Visible = True
'Reports!rptPartsSold.Quantity.Visible = True
'Else
'Reports!rptPartsSold.CustName.Visible = False
'Reports!rptPartsSold.Quantity.Visible = False

Me.CustName.Visible = Me!TxnTypes = "3"
Me.Quantity.Visible = Me!TxnTypes = "3"

'Me.CustName.Visible = Me!TxnTypes = "Wholesale"
'Me.Quantity.Visible = Me!TxnTypes = "Wholesale"
End Sub

TxnTypes is from a separate table that is part of the query used to generate the report. I tried 3 with and without the quotes; it is the ID for the type called "Wholesale".

[June7]

As already stated, code is in wrong event. Has to be in Format event. Format event of the section the controls are in. I presume they are in Detail section.

Private Sub Detail_Format()

Format events trigger only in print preview or direct to printer, not report view.

[PinkDuster]

Thank you very much June7! I had overlooked putting the code in the correct place...I used the wrong event in the Report, rather than the Format event in Detail, where the controls were. I didn't know about the Format event triggering in print preview, thank you. It worked!

[June7]

Alternative is an expression in textbox:

=IIf([TxnTypes] = 3, Null, [Customer])