Hello all:

This is the code I've placed in "On Open" on a Report I have.  The 
boxes (columns) are not visible when the Report opens, however, when 
Select is chosen in the Filter Box, they do not reappear.  Any 
suggestions to make this work?

Private Sub Report_Open(Cancel As Integer)
'Make 2 Columns in report invisible unless Auction is chosen to 
filter by.
Me!Label80.Visible = False
Me!Box86.Visible = False
Me!Label79.Visible = False
Me!Box85.Visible = False
Select Case Me.Status
'When AUCTION is selected to filter by in STATUS, the 2 columns 
become visible.
Case "Auction"
Me!Label80.Visible = True
Me!Box86.Visible = True
Me!Label79.Visible = True
Me!Box85.Visible = True
Case Else
'nothing
End Select
End Sub

Thanks much,

L.

Reply via email to