BVA Code to hide TextBox

[S Acharya]

Hi,

I want to print textbox in the reprot if value is >0. I have written follwing code but no effect of it.
***********************
Private Sub Text98_GotFocus()
Dim myVer As Currency
myVer = Text98.Value

If myVer >= 0 Then
Me.Text98.Visible = True
Else
Me.Text98.Visible = False

End If
End Sub
**************************

Thanks for help in advance.

 

[RuralGuy]

In a Report use the OnPrint Event for this.