Evidently my reply to this did not post.
the report coding is only this:
' Module : Report_rptIssuesStatusCount
' Description:
' Procedures : Report_NoData(pintCancel As Integer)
' Modified :
' 01/27/2004 DPG Cleaned with Total Visual CodeTools 2000
'
' --------------------------------------------------
Option Compare Database
Option Explicit
Private Sub Report_NoData(intPintCancel As Integer)
' Comments :
' Parameters: intCancel -
' Modified :
'
' --------------------------------------------------
On Error GoTo PROC_ERR
Dim fBooOK As Boolean
' Send a message to the user
fBooOK = MsgBox("No matching records were found, so the
report has been canceled. " & _
"Please re-specify the search criteria and try
again.", vbExclamation + vbOKOnly, _
"No Records Found")
' The report contains no data so cancel printing
DoCmd.CancelEvent
PROC_EXIT:
Exit Sub
PROC_ERR:
MsgBox "Error: " & Err.Number & ". " & Err.Description, _
Title:="Report_NoData"
Resume PROC_EXIT
End Sub
There are no master/child link properties used.
record sources do not reference controls on forms.
the record source of the subreport is this:
SELECT tblMasterTable.IDNumber,
tblMasterTable.ProjectTeam, tblMasterTable.IssuePriority,
tblMasterTable.IssueStatus, tblMasterTable.TrackingNumber,
tblMasterTable.IssueType, tblMasterTable.DateReported,
tblMasterTable.DateDue, [LastName] & ", " & [FirstName] AS
Owner, tblMasterTable.BriefDescription,
tblTracking.Comments, tblMasterTable.ModuleSystemCode,
tblTracking.Comments, tblPriorityLevel.Level FROM
tblPriorityLevel INNER JOIN ((tblMasterTable LEFT JOIN
tblUserList ON tblMasterTable.IssueOwner =
tblUserList.UserID) LEFT JOIN tblTracking ON
tblMasterTable.IDNumber = tblTracking.IDNumber) ON
tblPriorityLevel.Priority = tblMasterTable.IssuePriority
GROUP BY tblMasterTable.IDNumber,
tblMasterTable.ProjectTeam, tblMasterTable.IssuePriority,
tblMasterTable.IssueStatus, tblMasterTable.TrackingNumber,
tblMasterTable.IssueType, tblMasterTable.DateReported,
tblMasterTable.DateDue, [LastName] & ", " & [FirstName],
tblMasterTable.BriefDescription, tblTracking.Comments,
tblMasterTable.ModuleSystemCode, tblTracking.Comments,
tblPriorityLevel.Level HAVING
(((tblMasterTable.ProjectTeam)=IIf(Not [Forms]!
[frmRunIssuesCount]![cboProjectTeam]="",[Forms]!
[frmRunIssuesCount]![cboProjectTeam],([tblMasterTable].
[ProjectTeam]) Like '*')) AND ((tblMasterTable.IssueStatus)
="Open") AND ((tblMasterTable.DateDue)<Now())) ORDER BY
tblPriorityLevel.Level, tblMasterTable.DateReported;
And I'm really sorry for the 2nd post, as I thought my
reply had gone through.
What is bugging me about this is that the report shows
data in print preview, but when it prints, the subreport
is not shown.
Thank you.
Ginger