Mike and Doris Manning
mikedorism at ntelos.net
Thu Jun 19 13:43:57 CDT 2003
When you print the open preview, some of the sections of the report rerun on
the way to the printer so that's why you are getting the second pass for
information.
Try moving the Input box code to the Report's Open event instead.
Doris Manning
Database Administrator
Hargrove Inc.
www.hargroveinc.com
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Gajewski
Sent: Thursday, June 19, 2003 1:13 PM
To: 'accessd at databaseadvisors.com'
Subject: RE: [AccessD] Print letter from InputBox data (contains long code
atbottom)
Doris
In the Detail_Format section.
Regards,
Bob
On Thursday, June 19, 2003 12:50 PM, Mike and Doris Manning
[SMTP:mikedorism at ntelos.net] wrote:
> I understand that but where are you using it? Before you open the
> report? When you open the report (Report Open event)? In a particular
> section of the report?
>
> Doris Manning
> Database Administrator
> Hargrove Inc
> www.hargroveinc.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob
> Gajewski
> Sent: Thursday, June 19, 2003 12:19 PM
> To: 'accessd at databaseadvisors.com'
> Subject: RE: [AccessD] Print letter from InputBox data (contains long code
> atbottom)
>
>
> Doris
>
> I am using the InputBox function
>
> Regards,
> Bob
>
> On Thursday, June 19, 2003 12:03 PM, Mike and Doris Manning
> [SMTP:mikedorism at ntelos.net] wrote:
> > What event are you using to collect the information?
> >
> > Doris Manning
> > Database Administrator
> > Hargrove Inc
> > www.hargroveinc.com
> >
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob
> > Gajewski
> > Sent: Thursday, June 19, 2003 11:55 AM
> > To: 'accessd at databaseadvisors.com'
> > Subject: [AccessD] Print letter from InputBox data (contains long code
at
> > bottom)
> >
> >
> > Dear Group
> >
> > I have a generic letter report that uses InputBoxes to allow custom
> > on-the-fly paragraph data entry
> >
> > The sequence asks the user for paragraph 1. If anything was input,
> > it
> > asks
> > for paragraph 2, then 3, then 4. Finally, it asks for the signator's
name
> > and title. The report os then displayed in preview mode. ALL OF THIS
WORKS
>
> > PERFECTLY. I can see the entire letter with all data, as entered.
> > Also,
> > when the preview is closed, the user is asked whether the letter printed
> > properly, and if they respond yes, it automatically writes a record to
the
>
> > comments child table to record the event. THIS ALSO WORKS PERFECTLY
> >
> > My problem is when I try to actually print the letter (using File,
> > Print or
> > clicking on the Print button), the program somehow starts over and
prompts
>
> > the user for paragraph one again (et cetera). I sure don't want
> > users
> > having to type their letters twice!
> >
> > I'm missing something probably very obvious, and any guidance would
> > be greatly appreciated!
> >
> > Thanks,
> > Bob Gajewski
> >
> > **********************************************
> > Option Compare Database
> > Option Explicit
> > Public gvarRecordFound As Boolean
> > Public strInput1 As String
> > Public strInput2 As String
> > Public strInput3 As String
> > Public strInput4 As String
> > Public strInputS As String
> > Public strInputT As String
> > ------------------------------------------------------
> > Private Sub Report_NoData(Cancel As Integer)
> > Dim Msg, Response
> > Msg = "This report is not available; no records exist." Response =
> > MsgBox(Msg, vbInformation) DoCmd.CancelEvent End Sub
> > ------------------------------------------------------
> > Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> >
> > gvarRecordFound = True
> >
> > Dim MyPos
> > MyPos = InStr(1, [txtJobHomeownerName], ",")
> >
> > If MyPos > 0 Then
> > Me.txtLetterName = Mid([txtJobHomeownerName], MyPos + 1, 35) & "
> > "
> > &
> > Left([txtJobHomeownerName], MyPos - 1)
> > Me.txtSalutation = "Dear " & Mid([txtJobHomeownerName], MyPos + 1,
35)
>
> > & " " & Left([txtJobHomeownerName], MyPos - 1) & ":"
> > Else
> > Me.txtLetterName = [txtJobHomeownerName]
> > Me.txtSalutation = "Dear " & [txtJobHomeownerName] & ":" End If
> >
> > If Left([txtLetterName], 1) = " " Then
> > [txtLetterName] = Mid([txtLetterName], 2, 35)
> > End If
> >
> > If Left([txtSalutation], 1) = " " Then
> > [txtSalutation] = Mid([txtSalutation], 2, 41)
> > End If
> >
> > Me.txtLetterAddress = [txtJobAddress]
> > Me.txtLetterLocation = [txtJobMunicipalityName] & ", " &
> > [txtJobStateCode] & " " & [txtJobZipCode]
> > Me.txtClaimNumber = "'" & [txtJobCompanyReference] & "'"
> >
> > 'Allow user to enter text for paragraphs 1-4
> > Dim strMsg1 As String
> > strMsg1 = "Please enter the text for paragraph 1:"
> > strInput1 = InputBox(Prompt:=strMsg1, Title:="Paragraph 1")
> > If Not (IsNull(strInput1) Or strInput1 = "") Then
> > Me.txtParagraph1 = strInput1
> > Dim strMsg2 As String
> > strMsg2 = "Please enter the text for paragraph 2:"
> > strInput2 = InputBox(Prompt:=strMsg2,
> > Title:="Paragraph
> 2")
> > If Not (IsNull(strInput2) Or strInput2 = "") Then
> > Me.txtParagraph2 = strInput2
> > Dim strMsg3 As String
> > strMsg3 = "Please enter the text for paragraph
3:"
> > strInput3 = InputBox(Prompt:=strMsg3,
> > Title:="Paragraph 3")
> > If Not (IsNull(strInput3) Or strInput3 = "")
Then
> > Me.txtParagraph3 = strInput3
> > Dim strMsg4 As String
> > strMsg4 = "Please enter the text for
> > paragraph 4:"
> > strInput4 = InputBox(Prompt:=strMsg4,
> > Title:="Paragraph 4")
> > If Not (IsNull(strInput4) Or strInput4 =
> > "") Then
> > Me.txtParagraph4 = strInput4
> > End If
> > End If
> > End If
> >
> > 'Allow user to enter text for signator and title
> > Dim strMsgS As String
> > strMsgS = "Please enter the signator's name:"
> > strInputS = InputBox(Prompt:=strMsgS,
> > Title:="Signator")
> > If Not (IsNull(strInputS) Or strInputS = "") Then
> > Me.txtSignator = strInputS
> > Dim strMsgT As String
> > strMsgT = "Please enter the signator's
title:"
> > strInputT = InputBox(Prompt:=strMsgT,
> > Title:="Title")
> > If Not (IsNull(strInputT) Or strInputT = "")
> > Then
> > Me.txtSignatorTitle = strInputT
> > End If
> > Else
> > Me.txtSignator = "Renaissance Siding"
> > End If
> > Else
> > MsgBox "There was no text entered for Paragraph 1."
> > Cancel = True
> > gvarRecordFound = False
> > End If
> >
> > End Sub
> > ------------------------------------------------------
> > Private Sub Report_Close()
> > If gvarRecordFound = False Then
> > Exit Sub
> > End If
> > Dim db As Database, rs As Recordset
> > Dim Response
> > Dim strMsgPrint As String
> > strMsgPrint = "Did the letter print properly?"
> > If vbNo = MsgBox(strMsgPrint, vbYesNo + vbQuestion, "Print Letter
> > Verification") Then
> > Response = acDataErrDisplay
> > Else
> > 'Add letter subject to comments
> > Dim strInput As String, strMsg As String
> > strMsg = "What was the subject of this letter?"
> > strInput = InputBox(Prompt:=strMsg, Title:="Subject")
> > If IsNull(strInput) Or strInput = "" Then
> > strInput = "NOT SPECIFIED"
> > End If
> > Set db = CurrentDb
> > Set rs = db.OpenRecordset("tblJobComments", dbOpenDynaset)
> > On Error Resume Next
> > rs.AddNew
> > Dim strComment As String
> > strComment = "HOMEOWNER LETTER PRINTED (SUBJECT: " &
> > UCase(strInput) & ")."
> > rs!lngJobID = lngJobID
> > rs!txtJobComment = strComment
> > rs!dteJobCommentNow = Now()
> > rs!cboJobCommentPrivate = False
> > rs.Update
> > If Err Then
> > MsgBox "An error occurred, and the comments were not updated." &
> > vbCrLf & "Remember to add a comment to the database" & vbCrLf & "record
> > indicating that the letter was sent today."
> > Response = acDataErrContinue
> > Else
> > Response = acDataErrAdded
> > End If
> > rs.Close
> > End If
> > End Sub
> >
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com