Modules & VBA :: Programmatically Alter Detail Of Report Then Use That Report As Subreport
Jun 26, 2013
I have a report which programmatically sets the value of some labels based on its own internal logic for each line of the detail section of a report. This all works fine and dandy, using the Detail_format event, and accessing detail.controls.item(x).caption.
HOWEVER, when I then embed the report as a subreport (which I need to do), I goes wrong. Here, I get the values of the last row of the detail repeated in every previous one. I'm suspecting because the parent report has its own 'detail' (I've tried giving the subreport its own distinct detail name).
I am trying to open a report (rptGMX-IRG) that includes a sub-report (srptRG) based on criteria that is set with two unbound fields on a form (frmGMXbook). This form has two dropdown boxes (cboGMX_No & cboMachSize) and a command button. The first dropdown box includes data located in the main form and the second dropdown includes data that is part of the sub-report.
I can get the report to open properly when I enter data into both fields on frmGMXbook.
However, the problem I am having is the inability to have one or both fields be "Like '*'" and show all associated records.
Here is the code I have on the command button.
Private Sub GMX_Preview_Click() Dim strCriteria As String If IsNull(Me.cboGMX_No) Then strCriteria = "[cboGMX_No] Like '*'" Else strCriteria = "[GMX_No] ='" & Me.cboGMX_No.Value & "'"
How to display only the first few records in a subreport but keep the grand total of the report itself. When I limit results in query; it gives me the records but only totals for that set. I thought about putting code in the on format in detail section like:
Code: If me.control.value >10 then me.control.visible =false
I am trying to create a 5 page report filled with colorful tables, charts, and graphs. This report will need to be reproduced 115 times. I am almost finished with page 2 of 5. When I try to start page 3, it appears that the height of the report is capped.
I have reset my computer to clear my RAM, but I still have the same problem. I try extending the length of the report, but the window will not scroll down beyond 22". Is there a way to extend the height of the report?
Thank you in advance, and I will try to answer your question in return.
I have a Report linked with a SubReport. I would like to cancel viewing this Report if my SubReport Has No Data. i tried this code but the report just shows up. Any Ideas?
Private Sub Report_Open(Cancel As Integer) On Error GoTo Err_Trapper If Reports![qryRepCurOrgProjsSR].Report.HasData = 0 Then Cancel = True End If Err_Trapper: MsgBox Err.Description Exit Sub End Sub
Ok i got an error message. Yoy entered an expression that has an invalid Reference to the hasData property.
Ive tried using a text bpx on my main report and putting a control source as
=IIf(qryRepCurOrgProjsSR.Report.HasData,0,"Nothing") Then in my Report Open Event i put the code below. But it fails me still.
If trim(Me.MyText) = "Nothing" Then MsgBox "The Report Is Cancelling....." Cancel = True Exit Sub End If
I have a report named rpt100 with two subreports srpt100a and srpt100b. The subreports are based on query qry100a and qry100b. Both queries are based on tbl100. I removed a field named 'Comment' from tbl100, as it wasn't useful; Also removed the fieldname from both qry100a and qry100b. When opening rpt100 a parameter dialog opens asking for data on the deleted fieldname 'Comment'. The field 'Comment' was never used in the report or subreports.
Inspection of the subreport fieldlist shows field 'Comment' still present.
How, other than remaking the rpt100 and both srpt100a and srpt100b, do I remove the field 'Comment'?
I need to create a report for each employee in my company of all compensation information. The report is going to need to have multiple detail sections on the report for example to list all benefits specific to the employee and all beneficiaries.
I tried using a subreport to produce those detail sections that I needed but once I placed this subreport inside a box on the main report each detail I created increased the size of the box. I also thought about making the detail section a list box and writing all of the information there. Would there be a better or easy way to accomplish this?
I am also thinking I am going to have to save all of this information in a table and based the report on that table?
Is there a way to only highlight the last row of the detail section in a report?
I tried the following code in the "Format" but could not get it to work in Access 2010.
If Me.ClaimStatuses = "Total Potential Recoverable" Then Me.Section(acDetail).BackColor = vbYellow Else Me.Section(acDetail).BackColor = vbWhite End If
Where "ClaimStatuses" is the control text box and "Total Potential Recoverable" is the value I want to equal so this row which is the last row will be yellow.
Below is the working version of the code works for single report filtering. say a report called "rptduedate_census2" and i can filter out using form instead of hard coding query of that report (say lastname=form!frmsample!txtlastname). I dont want to hard code query and there are reasons for that.
I am using a Main report called "rptDueDates_Dept' and there are about 10 different subreports (see print screen). The main report is not bound to any query. It has many subereport. Each subreport is bound to some query and i need to be able to filter them before data appear on the main report. Am i making any sense, LOL.
How can I implement my working code below to do this. PLEASE PLEASE PLEASE HELP. I AM NEW TO ALL THIS. I have attached a print screen of the main report, just to show how i put subreports in their.
===== MY WORKING CODE ====== Private Sub cmdPrv_Click() Dim strFilter As String
strFilter = "[Mail_Census_Date] BETWEEN #" & txtStartDate & " # AND # " & txtEndDate & " # "
' Apply the filter and switch it on
If SysCmd(acSysCmdGetObjectState, acReport, "Report") <> acObjStateOpen Then DoCmd.OpenReport "rptduedate_census2", acViewPreview With Reports![rptduedate_census2] .Filter = strFilter .FilterOn = True End With DoCmd.Restore Exit Sub End If
I have a main report with one subreport. The main report contains details of a payment being made to a supplier. There is the total amount being paid, and the cheque number being transferred. There is also a field called payref which is made invisible. This is used to link up with the subreport. The amount is the total of several invoices for which payment is being made.
The subreport contains details of each of a number of the invoices being settled. The subreport is linked to the main report via a common field called pay-ref, and the subreport is 'visible'. The subreport prints when placed in the page header section of the main report. However when there is a large number of invoices being shown in the subreport only a certain number appear. It appears that the subreport can only hold a certain number.
When the subreport is put, as it should, in the detail section of the main report, it does not appear at all in the main report. I have no clue why and I have made several reports like this one before.
linking a report and a subreport (chart). I have uploaded my sample DB. I'm trying to chart all the individuals and three fields for each Home. Both report and subreport are using the same query for the record source. My charts are blank "All_Homes_Individual_Totals". Just use date range 05/01/14, 06/24/14 on my Main form page for the data.
My second question is how would you create a chart to pull by each individual with their monthly totals per Home using "qry_Community_ Inclusion_ All_Homes" with a report and subreport (chart) as above. Report would show the individual's totals by month for each home.
I am trying to get my totals from my subreports, and dividing the number by 2 or 4, and put the new number on the main report.
for Operator/Trainer Productivity, I used: =([rptEmployEvaluationOperator subreport].[Report]![OPTotal]+[rptEmployEvaluationOperatorTrainer subreport].[Report]![OPTotal])/2
for Auditor/Trainer Productivity, I used: =([rptEmployEvaluationAuditor1 subreport].[Report]![OPTotal]+[EmployEvaluationAuditor2 subreport].[Report]![OPTotal]+[EmployEvaluationAuditor3 subreport].[Report]![OPTotal]+[EmployEvaluationAuditorTrainer subreport].[Report]![OPTotal])/4
These both work if there are values in all totals subreports. When one of them might not have a total, I get an error message.
I have a report that is fixed at one page for one record. However, there is a subreport with many transactions ("CanGrow"=No). If this goes to a new page I have to close the report and start a new one. This all works fine, except for the last transaction - if the second-to-last transaction record is at the bottom of a page then the last one does not print.
Access seems to format the data, then it realizes that it won't fit on the page so doesn't print it. I am using record id number to know which transaction record to start the next report on, so when it gets to the end my logic thinks it has reached the end as the id number is the last one in the set.
How can I know if the last record has printed or not?
I have a report that prints invoices, and in the page header area it contains most of the invoice information such as labor cost, customer info, etc. In the detail section of the report i have the line items, and a line contains a part, vehicle charge, etc. Some invoices dont have any line items though, and it seems that when there are no lines(ie. nothing in the 'detail' section), the header information will not appear either. Any ideas on how i can fix this?
In the detail section of my report, I recently added a second row which has only 1 text field. When the value of the textbox in the 2nd row is null, I want the total row height equal to just the first row. When the value in the textbox in the 2nd row is not null, then the total row height is equal to row 1 and 2. I tried to make the textbox in the second row invisible when it had a null value thinking that when it was null, the report would shrink to the first row height, but that didn't seem to work.
We are creating a report and for some reason we can no longer extend the detail section of the report. It has stopped at 2 A4 pages length and won't let us extend it further. We have about 7 pages of the report, I didn't think this was too much?
I have a main form (ZooMobile Booking Form-New Client) with a subform (ZooMobile Event Booking-New Client) within it. In the main form I have a button to open up a report displaying the main form's current record.
The report that is opened has a subreport that needs to display the current record from the subform.
So far I've managed to get the report to open to the main form's record using the following On_click command:
I can't manage to get the subreport to open to the current record in the subform, however. I've tried to integrate it into the above event and to use On_load events in the report and subreport but everything either comes up as a bug or has no effect on the subreport's record.
I want to refer field "plyty_sa" which is in "RaportZleceniaRobocze" Report, in "RaportRobocze_Offset" SubReport. The problem is that, SubReport is in Report Footer. I tried many possibilities but I can't find solution.
I have a main report with 2 subreports. My main report has a header section, the 2 subreports are in the detail section of my main report. How can i prevent my report from splitting up my header and my subreports. (Header section of my main report is a company and the subreports are the detail of the company.. i don't want my compnay name on the bottom of a page and then the detail on the next page.. it does this sometimes. thanks!
