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

Kamis, 18 April 2013

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@yahoogroups.com] On Behalf Of Bill Mosca
Sent: Thursday, April 18, 2013 12:49 PM
To: MS_Access_Professionals@yahoogroups.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@yahoogroups.com] On Behalf Of Liz Ravenwood
Sent: Thursday, April 18, 2013 12:03 PM
To: 'MS_Access_Professionals@yahoogroups.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.