ACCESS FEED: RE: [MS_AccessPros] report on open event / docmd.outputto

Thanks for the answer Bill. So if it is working for you, I'm heartened because I'm doing something wrong. Which means.... it is CORRECTABLE. :-)

Here's my main form on open event:

Private Sub Report_Open(Cancel As Integer)
Call SetItUp(Me, Nz(Forms![DSMain].TestType, "F1"), "Report")
Call DisplayImageScreen(Me.ImageFrame, Forms![DSMain].ImagePath)
End Sub

Here's where I need to send the multiple items through for pdf's:

Private Sub cmdNonConseq_Click()
DoCmd.RunCommand acCmdSaveRecord
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("PDFsToPrint")
While Not rs.EOF
Me.txtPrintDS = rs("DSNum")
DoCmd.OutputTo acOutputReport, "rptDataSheet", acFormatPDF, "H:\My Documents\rptDataSheet" & Me.txtPrintDS & ".pdf"
rs.MoveNext
Wend
MsgBox ("Your pdf files have been saved in your H:\My Documents\ area beginning with the character string 'rptDataSheet'.")
Set rs = Nothing
Set db = Nothing
Me.txtPrintDS = Null
End Sub

Respectfully,
Liz Ravenwood
Programmer/Analyst
Super First Class Products
B/E Aerospace
O: 1.520.239.4808
www.beaerospace.com

-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Bill Mosca
Sent: Thursday, April 18, 2013 2:06 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] report on open event / docmd.outputto

I don't know why the open event doesn't fire when you use the OutputTo command.
I works for me. I have a report that has quite a bit of code in the main report's Open event and OutputTo shows all the right stuff.

Do you use the subs' Open event? Can you make the necessary changes so it happens in the main report's Open event?

Regards,

Bill

From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Liz Ravenwood
Sent: Thursday, April 18, 2013 1:04 PM
To: 'MS_Access_Professionals@yahoogroups.com'
Subject: RE: [MS_AccessPros] report on open event / docmd.outputto

They are really linked, and I change the recordsources.

Here's the code:

Public Sub SetItUp(obj As Object, strTest As String, strObjType As String) Select Case strTest Case "F1", "F2", "F3", "F6"
obj.lblConditioning.Caption = "Conditioning (min. 24 hrs. at 70±5°F; 50%±5% rel humidity)"
obj.lblFlameOrHeat.Caption = "Flame Temp. (min. 1550 °F)"
obj.Setup.SourceObject = strObjType & ".F1F2F3F6SetupSub"
obj.TestRequirementsSub.SourceObject = strObjType & ".F1F2F3F6TestRequirementsSub"
obj.TestRequirementsSub.Visible = True
obj.TestResults.SourceObject = strObjType & ".F1F2F3F6TestResults"
If strTest = "F1" Then
obj.lblHead.Caption = "F1 BUNSEN BURNER TEST "
ElseIf strTest = "F2" Then
obj.lblHead.Caption = "F2 BUNSEN BURNER TEST "
ElseIf strTest = "F3" Then
obj.lblHead.Caption = "F3 BUNSEN BURNER TEST "
ElseIf strTest = "F6" Then
obj.lblHead.Caption = "F6 BUNSEN BURNER TEST"
Else
obj.lblHead.Caption = "NO SPECIFICATIONS FOUND for this test."
End If
obj.TestResultsAvg.SourceObject = strObjType & ".F1F2F3F6TestResultsAvg"
obj.FBImage.Visible = False
If obj.Name <> "rptDataSheet" Then
If Left(obj.NotesInstructions, 8) = "For anis" Then obj.NotesInstructions = ""
End If
End If
Case "F7"
obj.lblHead.Caption = "F7 HEAT RELEASE TEST "
obj.lblConditioning.Caption = "Conditioning (min. 24 hrs. at 70±5°F; 50%±5% rel humidity)"
obj.lblFlameOrHeat.Caption = "Radiant Heat Flus: 3.5 W/cm²"
obj.Setup.SourceObject = strObjType & ".F7SetupSub"
obj.TestRequirementsSub.SourceObject = strObjType & ".F7TestRequirementsSub"
obj.TestRequirementsSub.Visible = True
obj.TestResults.SourceObject = strObjType & ".F7TestResults"
obj.TestResultsAvg.SourceObject = strObjType & ".F7TestResultsAvg"
obj.FBImage.Visible = False
If obj.Name <> "rptDataSheet" Then
If Left(obj.NotesInstructions, 8) = "For anis" Then obj.NotesInstructions = ""
End If
End If
Case "F8"
obj.lblHead.Caption = "F8 SMOKE DENSITY TEST "
obj.lblConditioning.Caption = "Conditioning (min. 24 hrs. at 70±5°F; 50%±5% rel humidity)"
obj.lblFlameOrHeat.Caption = "Radiant Heat Flux (W/cm² (2.2±0.04Btu/ft²/sec.)"
obj!Setup.SourceObject = strObjType & ".F8SetupSub"
obj.TestRequirementsSub.SourceObject = strObjType & ".F8TestRequirementsSub"
obj.TestRequirementsSub.Visible = True
obj.TestResults.SourceObject = strObjType & ".F8TestResults"
obj.TestResultsAvg.SourceObject = strObjType & ".F8TestResultsAvg"
obj.FBImage.Visible = False
If obj.Name <> "rptDataSheet" Then
If Left(obj.NotesInstructions, 8) = "For anis" Then obj.NotesInstructions = ""
End If
End If
Case "F9"
obj.lblHead.Caption = "F9/F8 SMOKE DENSITY / TOXICITY TEST "
obj.lblConditioning.Caption = "Conditioning (min. 24 hrs. at 70±5°F; 50%±5% rel humidity)"
obj.lblFlameOrHeat.Caption = "Radiant Heat Flux (W/cm² (2.2±0.04Btu/ft²/sec.)"
obj.Setup.SourceObject = strObjType & ".F9SetupSub"
obj.TestRequirementsSub.SourceObject = strObjType & ".F9TestRequirementsSub"
obj.TestRequirementsSub.Visible = True
obj.TestResults.SourceObject = strObjType & ".F9TestResults"
obj.TestResultsAvg.SourceObject = strObjType & ".F9TestResultsAvg"
obj.FBImage.Visible = False
If obj.Name <> "rptDataSheet" Then
If IsNull(obj.NotesInstructions) Or obj.NotesInstructions = "" Then obj.NotesInstructions = "For anisotropic materials (weave direction: warp/fill) one warp and one fill test sample shall be tested initially. The weave direction with the higher value whall be used for the remaining two tests. Record both warp and fill initial test data in the 'Preliminary Testing' section. Record the higher value as Sample #1 in 'Smoke Density Test Values' and 'Toxicity Test Values.'"
End If
End If
Case "FB"
obj.lblHead.Caption = "FB OIL BURNER TEST DATA SHEET"
obj.lblConditioning.Caption = "Use 3M-1357 adhesive per process BPS-0001D to bond foams."
obj.lblFlameOrHeat.Caption = "AFTER INSPECTION, dress covers are pulled over cushion assembly and bonded to the composite panel."
obj.Setup.SourceObject = strObjType & ".FBSetupSub"
obj.TestRequirementsSub.Visible = False
obj.TestResults.SourceObject = strObjType & ".FBTestResults"
obj.TestResultsAvg.SourceObject = strObjType & ".FBTestResultsAvg"
obj.FBImage.Visible = True
If obj.Name <> "rptDataSheet" Then
If Left(obj.NotesInstructions, 8) = "For anis" Then obj.NotesInstructions = ""
End If
End If
Case Else
MsgBox ("UFO: Unidentified Form Object") End Select End Sub

Respectfully,
Liz Ravenwood
Programmer/Analyst
Super First Class Products
B/E Aerospace
O: 1.520.239.4808
www.beaerospace.com

-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
[mailto:MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Bill Mosca
Sent: Thursday, April 18, 2013 12:49 PM
To: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
Subject: RE: [MS_AccessPros] report on open event / docmd.outputto

Hey Liz

Are the sub reports linked to the main report or are they really independent ones?

Regards,
Bill Mosca,
Founder, MS_Access_Professionals
That'll do IT <http://thatlldoit.com/> http://thatlldoit.com MS Access MVP

<https://mvp.support.microsoft.com/profile=C4D9F5E7-BB03-4291-B816-64270730881E>
https://mvp.support.microsoft.com/profile=C4D9F5E7-BB03-4291-B816-64270730881E

My Nothing-to-do-with Access blog

<http://wrmosca.wordpress.com> http://wrmosca.wordpress.com

From: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
[mailto:MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Liz Ravenwood
Sent: Thursday, April 18, 2013 12:03 PM
To: 'MS_Access_Professionals@yahoogroups.com
<mailto:%26%2339%3BMS_Access_Professionals%40yahoogroups.com> '
Subject: [MS_AccessPros] report on open event / docmd.outputto

Pros, I have a clever little report that has an on open event that sets the subreports recordsources based on a field value of a text box. This works great.

However, the users now want the ability to make a batch of pdf files all at once. Well, "fine" I thought. Ha. The open event doesn't even fire with the output to business.

Ideas?

Respectfully,
Liz Ravenwood
Programmer/Analyst
Super First Class Products
B/E Aerospace
O: 1.520.239.4808
www.beaerospace.com<http://www.beaerospace.com>

This email (and all attachments) is for the sole use of the intended
recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.

[Non-text portions of this message have been removed]

[Non-text portions of this message have been removed]

------------------------------------

Yahoo! Groups Links

This email (and all attachments) is for the sole use of the intended
recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.

[Non-text portions of this message have been removed]

------------------------------------

Yahoo! Groups Links

This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.