Option Compare Database
Private Sub Report_Activate()
If IsNull(Me.txtIOPNCTOD And Me.txtIOPNCTOS And Me.txtIOPNCTTime) = True Then
Me.lblIOPNCTTitle.Visible = False
Me.txtIOPNCTOD.Visible = False
Me.txtIOPNCTOS.Visible = False
Me.txtIOPNCTTime.Visible = False
Me.lblIOPNCTOD.Visible = False
Me.lblIOPNCTOS.Visible = False
Me.lblIOPNCTTime.Visible = False
ElseIf IsNull(Me.txtIOPPerkinsOD And Me.txtIOPPerkinsOS And Me.txtIOPPerkinsTime) = True Then
Me.lblIOPPerkinsTitle.Visible = False
Me.txtIOPPerkinsOD.Visible = False
Me.txtIOPPerkinsOS.Visible = False
Me.txtIOPPerkinsTime.Visible = False
Me.lblIOPPerkinsOD.Visible = False
Me.lblIOPPerkinsOS.Visible = False
Me.lblIOPPerkinsTime.Visible = False
Else
Me.lblIOPNCTTitle.Visible = False
Me.txtIOPNCTOD.Visible = False
Me.txtIOPNCTOS.Visible = False
Me.txtIOPNCTTime.Visible = False
Me.lblIOPNCTOD.Visible = False
Me.lblIOPNCTOS.Visible = False
Me.lblIOPNCTTime.Visible = False
Me.lblIOPPerkinsTitle.Visible = False
Me.txtIOPPerkinsOD.Visible = False
Me.txtIOPPerkinsOS.Visible = False
Me.txtIOPPerkinsTime.Visible = False
Me.lblIOPPerkinsOD.Visible = False
Me.lblIOPPerkinsOS.Visible = False
Me.lblIOPPerkinsTime.Visible = False
End If
End Sub
|