"no current record" when advancing pages in report

[arpeggione]

Hello:

I am getting a "No Current Record" error when I advance to the last the page of my report. I know there are more records. In addition, this error message does not seem to be coming from one of my procedures (it reads differently than my standard error trapping messages)
any ideas?

thanks for any help you can give,

karen

 

[genomon]

Any chance there is a hidden subreport?

Gluais faicilleach le cupan làn

 

[arpeggione]

hmmmm...thank you much for your reply....there is a subreport - and there may be a hidden footer...I'll check it out

your thoughts?
karen

 

[arpeggione]

Genomon: I checked it out...and, no hidden footer (or code to hide it on loading)....hmmmm....maybe there is something else about this subreport...

thanks again for your ideas - I'm all ears...

karen

 

[genomon]

For the subreport set the Report On No Data event to Cancel = True & see what happens. Else you can trap error 2501 and do what you deem necessary.

Gluais faicilleach le cupan làn

 

[arpeggione]

genomon: tried it (added the 2501) - already had Cancel = True in there....still getting this error.

It is possible that SOMEWHERE in my database I have an error message that doesn't follow my usual standard...not sure

any more ideas would be most welcome, but in the meantime, I'll also try to hunt a few things down - and will post if I figure out the answer...

thanks again!

karen

 

[genomon]

There are some great debugging tips here:

http://www.cpearson.com/excel/debug.htm

Although it was written for Excel apps, the VBA and IDE all work pretty much the same.

Gluais faicilleach le cupan làn

 

[arpeggione]

Thank you Genomon for taking the time to help me! I'll have a look....

karen

 

[arpeggione]

ok...one more message....this problem started when I changed the underlying query for the subreport to include aggregate functions as follows:

SELECT tblChangeOrders.CAR_ID, Val(tblChangeOrders.CARNum) AS myCARNum, Sum([tblAssoc_ChangeOrder_BContract.Cost]) AS SumOfCost, Sum([tblAssoc_ChangeOrder_BContract.Cost_Hrs]) AS SumOfCostHrs, Sum([tblAssoc_ChangeOrder_BContract.SchedImpact]) AS SumOfSchedImpact, First(tblChangeOrders.ProposedChg) AS FirstProposedChg, tblAssoc_ChangeOrder_BContract.Cost, tblAssoc_ChangeOrder_BContract.Cost_Hrs, tblAssoc_ChangeOrder_BContract.SchedImpact, tblVendors.VendorName, tblBlanketContracts.ContractNum, tblContractAdmins.ContractAdminName, tblAssoc_ChangeOrder_BContract.Attachment, tblChangeOrders.ReasonID, tblChangeOrders.DateInitiated
FROM tblVendors RIGHT JOIN ((tblContractAdmins RIGHT JOIN tblChangeOrders ON tblContractAdmins.ContractAdminID=tblChangeOrders.ContractAdminID) LEFT JOIN (tblBlanketContracts RIGHT JOIN tblAssoc_ChangeOrder_BContract ON tblBlanketContracts.BContractID=tblAssoc_ChangeOrder_BContract.BContractID) ON tblChangeOrders.CAR_ID=tblAssoc_ChangeOrder_BContract.ChangeOrderID) ON tblVendors.VendorID=tblBlanketContracts.VendorID
GROUP BY tblChangeOrders.CAR_ID, tblChangeOrders.CARNum, tblChangeOrders.ProposedChg, tblVendors.VendorName, tblBlanketContracts.ContractNum, tblContractAdmins.ContractAdminName, tblAssoc_ChangeOrder_BContract.Attachment, tblChangeOrders.ReasonID, tblChangeOrders.DateInitiated, tblAssoc_ChangeOrder_BContract.Cost_Hrs, tblAssoc_ChangeOrder_BContract.SchedImpact, tblAssoc_ChangeOrder_BContract.Cost
ORDER BY Val(tblChangeOrders.CARNum);

does this facilitate any ideas about the "No Current Record" msg?

Karen

 

[arpeggione]

Genomon: (and anyone else who reads this) - I took all of the aggregate functions out of the underlying query of the subreport and voila - it works!

I used functions instead to fill the sum textboxes - better anyway as it will work in the header, not just the footer....

thanks again,

Karen