Conditional formatting of a Text Box 1

[rj51cxa]

In the Detail section of my report I have a Text Box (Text66) which is linked to a Check Box (fInd). I have the following code in the control source of the text box:

=IIf([fInd]=True,"IND","TEAM")

This works fine but I need this Text Box to show nothing if another Text Box ([TxtName]) is blank.

I tried using the following expression in the On Open Event of the Report but each time I run it, I get the warning "You entered an expression that has no value"

Private Sub Report_Open(Cancel As Integer)
Dim varResult As Variant
varResult = IIf(Nz([TxtName]) = "", Controls("Text66").Visible = False, Controls("Text66").Visible = True)
End Sub

Could someone please advise where I am going wrong.

Thanks a lot
John

 

[rjoubert]

What does the "Nz" function do?

 

[Remou]

Try the detail format event.

 

[rj51cxa]

rjoubert

As I understand it, Nz turns a null string into a zero length string which is what I need to evaluate the argument.

Remou,

I put the following code into the Detail Format Event but I still see the text box, even though [TxtName] is blank.

If Me![TxtName] = "" Then
        Me![Text66].Visible = False
    Else
        Me![Text66].Visible = True
    End If

Best Regards
John

 

[rjoubert]

Try this...

If Me.txtName.Value = "" Then
   Me.text66.visible = False
Else
   Me.text66.Visible = True
End If
[\code]

 

[rj51cxa]

Hi rjoubert,

Afraid that did not work either.

John

 

[rj51cxa]

I had an idea and put Nz in front of Me![TxtName]. This worked - so problem solved.

Thanks everyone for your help. A star for Remou for giving the idea in the first place.

Best Regards
John