Print subform data or load to report Access 2003

[Dököll]

Hey Gang!

I am at work, will attempt to make it brief:-)

Looks like I am unable to print subform data results. When the subform loads with the results I want, say from 9,000 records, I get 100 + out of that. I can't seem to print just the results or preview in a report. I know I've missed something. Searched here did not find anything, please point me to it!

Here's a modifcation of the code:

 
Private Sub MeReportLoad_Click()
On Error GoTo Err_MeReportLoad_Click
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.OpenForm "MyResultsForm", acNormal
    'DoCmd.OpenReport "MyResultsReport", acNormal
 
 
Exit_MeReportLoad_Click:
    Exit Sub
 
Err_MeReportLoad_Click:
    MsgBox Err.Description
    Resume Exit_MeReportLoad_Click   
End Sub
 
 

Thanks!

[kepston]

Try opening the report with a filter/criteria

[hyperpau]

Try opening the report with a filter/criteria

Have that report bound to a query and add parameters (criteria to the query)
Everytime the report loads, it would ask you the criteria of the results you want to have. you type that criteria and ther you go. Only those that matches your criteria would be shown on the report.

[Dököll]

Have that report bound to a query and add parameters (criteria to the query)
Everytime the report loads, it would ask you the criteria of the results you want to have. you type that criteria and ther you go. Only those that matches your criteria would be shown on the report.

Very helpful advice, I have had my nose in it for quite a bit, but I know it is possible, just have to put my finger on it. I am going to now try what you proposed. Though I must admit, I tried:

 
 
SELECT CategoryCriteria.InquiryType, DataCentral.Business, DataCentral.BusinessNum, DataCentral.SDate, DataCentral.Comment, StatusCriteria.Status, PersonCriteria.NowUser, DataCentral.TodayDate
 
 
FROM PersonCriteria RIGHT JOIN (StatusCriteria RIGHT JOIN (CategoryCriteria RIGHT JOIN DataCentral ON CategoryCriteria.InquiryType = DataCentral.InquiryType) ON StatusCriteria.Status = DataCentral.Status) ON PersonCriteria.NowUser = DataCentral.NowUser
 
 
WHERE (((CategoryCriteria.InquiryType)=[Forms]![DataCentral]![Category Criteria]) AND ((StatusCriteria.Status)=[Forms]![DataCentral]![Status Criteria]) AND ((PersonCriteria.NowUser)=[Forms]![DataCentral]![Person Criteria]) AND ((DataCentral.TodayDate) Between [Forms]![DataCentral]![BeginningDate] And [Forms]![DataCentral]![EndDate]));
 
 

This code gets me what I want because I have listboxes to select from. I attempted having the same query use Or to see if anything would pop up, I got nothing.

A VBA code is currently querying my table, the report gets its data from the subform. The subform seems to load a record number I don't want:

 
Private Sub SearchMeData_Click()
Const cInvalidDateError As String = "Please enter date in proper format to continue..."
    Dim strWhere As String
    Dim strError As String
    strWhere = "1=1"
    If Not IsNull(Me.NowUser) Then
        strWhere = strWhere & " AND " & "DataCentral.[NowUser] = '" & Me.NowUser & "'"
    End If
    If Not IsNull(Me.PrevUser) Then
        strWhere = strWhere & " AND " & "DataCentral.[PrevUser] = '" & Me.PrevUser & "'"
    End If
    If Nz(Me.Status) <> "" Then
        strWhere = strWhere & " AND " & "DataCentral.[Status] = '" & Me.Status & "'"
    End If
    If Nz(Me.InquiryType) <> "" Then
        strWhere = strWhere & " AND " & "DataCentral.[InquiryType] = '" & Me.InquiryType & "'"
    End If
 
 

then adds results to a subform. What I am hoping to do is grab the results from this subform and print or preview in a report. It's driving me wild...

Thanks for your reply...

[kepston]

Very helpful advice, I have had my nose in it for quite a bit, but I know it is possible, just have to put my finger on it. I am going to now try what you proposed. Though I must admit, I tried:
A VBA code is currently querying my table, the report gets its data from the subform. The subform seems to load a record number I don't want:

 
Private Sub SearchMeData_Click()
Const cInvalidDateError As String = "Please enter date in proper format to continue..."
    Dim strWhere As String
    Dim strError As String
    strWhere = "1=1"
    If Not IsNull(Me.NowUser) Then
        strWhere = strWhere & " AND " & "DataCentral.[NowUser] = '" & Me.NowUser & "'"
    End If
    If Not IsNull(Me.PrevUser) Then
        strWhere = strWhere & " AND " & "DataCentral.[PrevUser] = '" & Me.PrevUser & "'"
    End If
    If Nz(Me.Status) <> "" Then
        strWhere = strWhere & " AND " & "DataCentral.[Status] = '" & Me.Status & "'"
    End If
    If Nz(Me.InquiryType) <> "" Then
        strWhere = strWhere & " AND " & "DataCentral.[InquiryType] = '" & Me.InquiryType & "'"
    End If
 
 

then adds results to a subform. What I am hoping to do is grab the results from this subform and print or preview in a report. It's driving me wild...

Thanks for your reply...

Have you tried

    DoCmd.OpenReport stDocName, acPreview, , strWhere

[Dököll]

Hello there!

Thanks for posting, I have tried what you suggested K. I get a report but with all 9,000 + rows of data in the actual/mothership table. With above command, the results are added to a subform. What I want is when I get results on that subform, that whatever the result is to preview it in a report, not the whole information.

I'll just bet it's right under our noses and we can't see it.

I am at work now, I am adding the data to subreport rather, then fish the subreport out of my footer, change the code, to see if report loads by itself and not within the main form's footer. Wish me luck:-)

Again, much appreciatred assistance, it's nice...

[kepston]

Hello there!

Thanks for posting, I have tried what you suggested K. I get a report but with all 9,000 + rows of data in the actual/mothership table. With above command, the results are added to a subform. What I want is when I get results on that subform, that whatever the result is to preview it in a report, not the whole information.

I'll just bet it's right under our noses and we can't see it.

I am at work now, I am adding the data to subreport rather, then fish the subreport out of my footer, change the code, to see if report loads by itself and not within the main form's footer. Wish me luck:-)

Again, much appreciatred assistance, it's nice...

Good Luck!
Is the report based on the same query as the subform?
We just need to get the same criteria for the report as on the subform.
(I know that sounds easy :))

[Dököll]

Yup!

They're all interlinked Query - Report - Subform, and yes it does seem easy written down:-)

Thanks!