Prev: Shading Header / Footers and separating all rows with lines; weird whitespace
Next: Importing TXT files with delimiter
From: Jim on 23 Apr 2010 16:42
I have a report with the following code behind:

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)

If Format(Forms!frmCommission!cboStartDate, "mmyyyy") =
Format(Forms!frmCommission!cboEndDate, "mmyyyy") Then

Me.txtTitle = "Commission " & Format(Forms!frmCommission!cboStartDate,
"mmm/yyyy")
Else
Me.txtTitle = "Commission " & _
Forms!frmCommission!cboStartDate & " To " & _
Forms!frmCommission!cboEndDate
End If

End Sub

Private Sub Report_Open(Cancel As Integer)

Select Case Form_frmCommission.optSource

Case 1
Me.RecordSource = "qryCommInvUS"
Case 2
Me.RecordSource = "qryCommInvCanada"
Case Else
MsgBox "Select Report"
End Select

End Sub

I need to change the title of the report to add either Canadian or U.S. to
the title depending on the Record Source, leaving the other criteria in
place at the same time.
Thanks for any help.

Jim


 | 
Pages: 1
Prev: Shading Header / Footers and separating all rows with lines; weird whitespace
Next: Importing TXT files with delimiter