Foutmelding bij rapport met subrapporten

[sjobbels]

Hoi,

Met behulp van een filter formulier worden op basis van Salesmanager en datum een rapport uitgedraaid. Dit rapport bestaat uit verschillende subrapporten.
In beginsel werkte het goed, maar nu er meer data in komt, en ik bijvoorbeeld ook over een heel jaar een rapport wil draaien krijg ik de volgende foutmelding: Formatting page, press ctrl + break to stop.

Als ik de rapporten los van elkaar zou koppelen werkt alles super, maar dat betekent dat er weer meer handelingen verricht moeten worden en er ipv 1 rapport, 4 verschillende rapporten gedraaid moeten worden....

Iemand een idee hoe ik dit kan verhelpen?
Ik heb hier wel wat info gevonden maar het helpt mij niet verder: http://www.tek-tips.com/viewthread.cfm?qid=627306

thanks!!

 

[sjobbels]

Ik heb het al opgelost. Via onderstaande code:

Private Sub cmdReport_Click()
On Error GoTo Err_cmdReport_Click

Dim stDocName As String
Dim stDocName2 As String
Dim stDocName3 As String
Dim stDocName4 As String

stDocName = "rptBezoekOfferteA"
stDocName2 = "rptBezoekOfferteB"
stDocName3 = "rptBezoekOfferteC"
stDocName4 = "rptBezoekOfferteD"

If Len(Me.cboDatumvan & vbNullString) = 0 Or Len(Me.cboDatumtot & vbNullString) = 0 Or Len(Me.cboSalesManager & vbNullString) = 0 Then
MsgBox "S.v.p. zorg ervoor dat de SalesManager en de datumvelden voor het rapport zijn ingevuld", _
vbInformation, "Required Data..."
Exit Sub
Else
DoCmd.OpenReport stDocName, acPreview
DoCmd.OpenReport stDocName2, acPreview
DoCmd.OpenReport stDocName3, acPreview
DoCmd.OpenReport stDocName4, acPreview
End If
Exit_cmdReport_Click:
Exit Sub

Err_cmdReport_Click:
MsgBox Err.Description
Resume Exit_cmdReport_Click

End Sub

Weet iemand of het mogelijk is om al deze rapporten in een keer te mailen?

thanks

 

[sjobbels]

voor degene die het wil weten heb ik hier nog een code om de vier rapporten tegelijk te mailen:

Private Sub cmdMailreport_Click()


Dim strAttach1 As String
Dim strAttach2 As String
Dim strAttach3 As String
Dim strAttach4 As String


Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

'Output Reports
DoCmd.OutputTo acOutputReport, "rptBezoekOfferteA", acFormatSNP, "K:\Templates\rptBezoekOfferteA.snp", False
DoCmd.OutputTo acOutputReport, "rptBezoekOfferteB", acFormatSNP, "K:\Templates\rptBezoekOfferteB.snp", False
DoCmd.OutputTo acOutputReport, "rptBezoekOfferteC", acFormatSNP, "K:\Templates\rptBezoekOfferteC.snp", False
DoCmd.OutputTo acOutputReport, "rptBezoekOfferteD", acFormatSNP, "K:\Templates\rptBezoekOfferteD.snp", False


'Set Attachments
Rem <!-- make sure to correlate the attachments to each of the reports you wish to send -->
strAttach1 = "K:\Templates\rptBezoekOfferteA.snp"
strAttach2 = "K:\Templates\rptBezoekOfferteB.snp"
strAttach3 = "K:\Templates\rptBezoekOfferteC.snp"
strAttach4 = "K:\Templates\rptBezoekOfferteD.snp"


'Generate email
With objEmail
.To = ""
.Subject = "Periode Rapport Centrale Sales <Naam Salesmanager>"
.Body = "Additionele tekst......."
.Display
.Attachments.Add strAttach1
.Attachments.Add strAttach2
.Attachments.Add strAttach3
.Attachments.Add strAttach4
End With

'Remove attachments from drive
Kill strAttach1
Kill strAttach2
Kill strAttach3
Kill strAttach4

End Sub