Kamis, 18 April 2013

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]

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (4)
Recent Activity:
MARKETPLACE


.

__,_._,___

Tidak ada komentar:

Posting Komentar