Hi All,
I have written the following code in my PageFooterSection_Format & PageFooterSection_Print events, it all looks ok to me but my report doesn't fire when i try to open it, nothing happens!! Can someone spot if i'm missing something?
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If Me.CustomerType = "Cash Sale" Then
Me.NAB.Visible = True
Me.westpac.Visible = False
Else
If Me.CustomerType = "Account" Then
Me.NAB.Visible = False
Me.westpac.Visible = True
Else
If Me.CustomerType = "14 Day Account" Then
Me.NAB.Visible = False
Me.westpac.Visible = True
Else
Me.NAB.Visible = False
Me.westpac.Visible = False
End If
End If
End If
End Sub
--------------------------------------------------------------------
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
If Me.CustomerType = "Cash Sale" Then
Me.NAB.Visible = True
Me.westpac.Visible = False
Else
If Me.CustomerType = "Account" Then
Me.NAB.Visible = False
Me.westpac.Visible = True
Else
If Me.CustomerType = "14 Day Account" Then
Me.NAB.Visible = False
Me.westpac.Visible = True
Else
Me.NAB.Visible = False
Me.westpac.Visible = False
End If
End If
End If
End Sub
Many thanks!!!
I have written the following code in my PageFooterSection_Format & PageFooterSection_Print events, it all looks ok to me but my report doesn't fire when i try to open it, nothing happens!! Can someone spot if i'm missing something?
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If Me.CustomerType = "Cash Sale" Then
Me.NAB.Visible = True
Me.westpac.Visible = False
Else
If Me.CustomerType = "Account" Then
Me.NAB.Visible = False
Me.westpac.Visible = True
Else
If Me.CustomerType = "14 Day Account" Then
Me.NAB.Visible = False
Me.westpac.Visible = True
Else
Me.NAB.Visible = False
Me.westpac.Visible = False
End If
End If
End If
End Sub
--------------------------------------------------------------------
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
If Me.CustomerType = "Cash Sale" Then
Me.NAB.Visible = True
Me.westpac.Visible = False
Else
If Me.CustomerType = "Account" Then
Me.NAB.Visible = False
Me.westpac.Visible = True
Else
If Me.CustomerType = "14 Day Account" Then
Me.NAB.Visible = False
Me.westpac.Visible = True
Else
Me.NAB.Visible = False
Me.westpac.Visible = False
End If
End If
End If
End Sub
Many thanks!!!