Re: To open a specific report number by users input of the report#.

From: Eric Butts [MSFT] (ebutts_at_online.microsoft.com)
Date: 03/30/04 

Date: Tue, 30 Mar 2004 20:37:01 GMT

Hi Nadir,

The Msgbox is modal, the user must supply information or close the UserForm
before using any other part of the application.

You would need to create your own pop-up Form with the Yes and No buttons.

Regards,

Eric Butts
Microsoft Access Support
ebutts@online.microsoft.com
"Microsoft Security Announcement: Have you installed the patch for
Microsoft Security Bulletin MS03-026? If not Microsoft strongly advises
you to review the information at the following link regarding Microsoft
Security Bulletin MS03-026
<http://www.microsoft.com/security/security_bulletins/ms03-026.asp> and/or
to visit Windows Update at <http://windowsupdate.microsoft.com/> to install
the patch. Running the SCAN program from the Windows Update site will help
to insure you are current with all security patches, not just MS03-026."

This posting is provided "AS IS" with no warranties, and confers no rights

--------------------
| From: hnadir@cityofboise.org (Nadir)
| Newsgroups: microsoft.public.access.reports
| Subject: Re: To open a specific report number by users input of the
report#.
| Date: 30 Mar 2004 07:59:21 -0800
| Organization: http://groups.google.com
| Lines: 216
| Message-ID: <629ab214.0403300759.63a203f4@posting.google.com>
| References: <629ab214.0403241141.2986203@posting.google.com>
<ej$NsWfEEHA.756@cpmsftngxa06.phx.gbl>
<629ab214.0403251055.bf3e8cc@posting.google.com>
<vD77w9QFEHA.660@cpmsftngxa06.phx.gbl>
| NNTP-Posting-Host: 204.228.240.57
| Content-Type: text/plain; charset=ISO-8859-1
| Content-Transfer-Encoding: 8bit
| X-Trace: posting.google.com 1080662361 2114 127.0.0.1 (30 Mar 2004
15:59:21 GMT)
| X-Complaints-To: groups-abuse@google.com
| NNTP-Posting-Date: Tue, 30 Mar 2004 15:59:21 +0000 (UTC)
| Path:
cpmsftngxa06.phx.gbl!TK2MSFTNGP08.phx.gbl!newsfeed00.sul.t-online.de!t-onlin
e.de!news.glorb.com!postnews2.google.com!not-for-mail
| Xref: cpmsftngxa06.phx.gbl microsoft.public.access.reports:134791
| X-Tomcat-NG: microsoft.public.access.reports
|
| Hi Eric,
| Thank you, I did the change it is better. Is there a way when it popup
| with the message box of "Do you want to print this - Yes/No" to be
| able to click on the form behind of the message box if I want to
| scroll down or navigate to the next page before I click on Yes or No.
|
| Thanks,
|
| Nadir
|
|
| ebutts@online.microsoft.com (Eric Butts [MSFT]) wrote in message
news:<vD77w9QFEHA.660@cpmsftngxa06.phx.gbl>...
| > Hi,
| >
| > Not sure if you are aware or not but the PrintOut action prints the
active
| > object in the open database.
| >
| > Are you sure you don't want to use instead
| > DoCmd.OpenReport acPrintAll
| >
| > If for whatever reason you need to PrintOut then use the optional
arguments
| > "PageFrom" and "PageTo", example:
| >
| > DoCmd.PrintOut acPages, 1, 4
| >
| > For details see the Microsoft Access help topic "PrintOut Method".
| >
| > Regards,
| >
| > Eric Butts
| > Microsoft Access Support
| > ebutts@online.microsoft.com
| > "Microsoft Security Announcement: Have you installed the patch for
| > Microsoft Security Bulletin MS03-026? If not Microsoft strongly
advises
| > you to review the information at the following link regarding Microsoft
| > Security Bulletin MS03-026
| > <http://www.microsoft.com/security/security_bulletins/ms03-026.asp>
and/or
| > to visit Windows Update at <http://windowsupdate.microsoft.com/> to
install
| > the patch. Running the SCAN program from the Windows Update site will
help
| > to insure you are current with all security patches, not just MS03-026."
| >
| > This posting is provided "AS IS" with no warranties, and confers no
rights
| >
| >
| >
| >
| >
| > --------------------
| > | From: hnadir@cityofboise.org (Nadir)
| > | Newsgroups: microsoft.public.access.reports
| > | Subject: Re: To open a specific report number by users input of the
| > report#.
| > | Date: 25 Mar 2004 10:55:10 -0800
| > | Organization: http://groups.google.com
| > | Lines: 133
| > | Message-ID: <629ab214.0403251055.bf3e8cc@posting.google.com>
| > | References: <629ab214.0403241141.2986203@posting.google.com>
| > <ej$NsWfEEHA.756@cpmsftngxa06.phx.gbl>
| > | NNTP-Posting-Host: 204.228.240.57
| > | Content-Type: text/plain; charset=ISO-8859-1
| > | Content-Transfer-Encoding: 8bit
| > | X-Trace: posting.google.com 1080240910 20081 127.0.0.1 (25 Mar 2004
| > 18:55:10 GMT)
| > | X-Complaints-To: groups-abuse@google.com
| > | NNTP-Posting-Date: Thu, 25 Mar 2004 18:55:10 +0000 (UTC)
| > | Path:
| >
cpmsftngxa06.phx.gbl!TK2MSFTNGXA01.phx.gbl!TK2MSFTNGP08.phx.gbl!newsfeed00.s
| >
ul.t-online.de!t-online.de!news.glorb.com!postnews2.google.com!not-for-mail
| > | Xref: cpmsftngxa06.phx.gbl microsoft.public.access.reports:134430
| > | X-Tomcat-NG: microsoft.public.access.reports
| > |
| > | Thank you Eric,
| > | I found the problem.
| > |
| > | I also added this code(below) and it works fine but I can't click
| > | anywhere else such as if I need to scroll done when it is in the
| > | preview mode or click on the navigator to see the second page of the
| > | report. Can you help me?
| > |
| > | intUserRespond = MsgBox("Do you want to print this report?", vbYesNo,
| > | "Print Report Window")
| > | If intUserRespond = vbYes Then
| > | DoCmd.PrintOut (acPrintAll)
| > |
| > |
| > |
| > |
| > |
| > | ebutts@online.microsoft.com (Eric Butts [MSFT]) wrote in message
| > news:<ej$NsWfEEHA.756@cpmsftngxa06.phx.gbl>...
| > | > Hi,
| > | >
| > | > Place a break point on the line
| > | >
| > | > DoCmd.OpenReport stDocName, acViewPreview, , strWhere
| > | >
| > | > Once the code stops at the above line select the menu option View >
| > | > Immediate Window
| > | >
| > | > In the Immediate Window type
| > | > ?strWhere
| > | > then hit enter
| > | >
| > | > In the Immediate Window type
| > | > ?intReportNumber
| > | > then hit enter
| > | >
| > | > This will give you an idea as to what's wrong with the code.
| > | >
| > | >
| > | > I hope this helps! If you have additional questions on this topic,
| > please
| > | > respond back to this posting.
| > | >
| > | >
| > | > Regards,
| > | >
| > | > Eric Butts
| > | > Microsoft Access Support
| > | > ebutts@online.microsoft.com
| > | > "Microsoft Security Announcement: Have you installed the patch for
| > | > Microsoft Security Bulletin MS03-026? If not Microsoft strongly
| > advises
| > | > you to review the information at the following link regarding
Microsoft
| > | > Security Bulletin MS03-026
| > | > <http://www.microsoft.com/security/security_bulletins/ms03-026.asp>
| > and/or
| > | > to visit Windows Update at <http://windowsupdate.microsoft.com/> to
| > install
| > | > the patch. Running the SCAN program from the Windows Update site
will
| > help
| > | > to insure you are current with all security patches, not just
MS03-026."
| > | >
| > | > This posting is provided "AS IS" with no warranties, and confers no
| > rights
| > | >
| > | >
| > | >
| > | > --------------------
| > | > | From: hnadir@cityofboise.org (Nadir)
| > | > | Newsgroups: microsoft.public.access.reports
| > | > | Subject: To open a specific report number by users input of the
| > report#.
| > | > | Date: 24 Mar 2004 11:41:11 -0800
| > | > | Organization: http://groups.google.com
| > | > | Lines: 49
| > | > | Message-ID: <629ab214.0403241141.2986203@posting.google.com>
| > | > | NNTP-Posting-Host: 204.228.240.57
| > | > | Content-Type: text/plain; charset=ISO-8859-1
| > | > | Content-Transfer-Encoding: 8bit
| > | > | X-Trace: posting.google.com 1080157271 20510 127.0.0.1 (24 Mar
2004
| > 19:41:11 GMT)
| > | > | X-Complaints-To: groups-abuse@google.com
| > | > | NNTP-Posting-Date: Wed, 24 Mar 2004 19:41:11 +0000 (UTC)
| > | > | Path:
| > | >
| >
cpmsftngxa06.phx.gbl!TK2MSFTNGXA01.phx.gbl!TK2MSFTNGP08.phx.gbl!newsfeed00.s
| > | >
| >
ul.t-online.de!t-online.de!border2.nntp.ash.giganews.com!border1.nntp.ash.gi
| > | >
| >
ganews.com!nntp.giganews.com!news.glorb.com!postnews2.google.com!not-for-mai
| > | > l
| > | > | Xref: cpmsftngxa06.phx.gbl microsoft.public.access.reports:134328
| > | > | X-Tomcat-NG: microsoft.public.access.reports
| > | > |
| > | > | Hi all, please help.
| > | > |
| > | > | Marshall Barton helped me with this code but I get 2 input message
| > | > | boxs and it still will open All of the reports there are. But if I
| > | > | will take this line out
| > | > |
| > | > | intReportNumber = InputBox("Please enter the report number you
wish to
| > | > | print")
| > | > |
| > | > | It will open one report BUT there are NO DATA in it.
| > | > |
| > | > |
| > | > | Else
| > | > | intReportNumber = InputBox("Please enter the report number you
wish
| > | > | to print")
| > | > | strWhere = "[qryBPLReport] = """ & intReportNumber & """"
| > | > | stDocName = "rptMasterBPLReport"
| > | > | DoCmd.OpenReport stDocName, acViewPreview, , strWhere
| > | > | End If
| > | > |
| > | > |
| > | > | The code from begging to end is:
| > | > | Option Compare Database
| > | > | Option Explicit
| > | > |
| > | > | Private Sub PrintByReport__Click()
| > | > | On Error GoTo Err_PrintByReport__Click
| > | > |
| > | > | Dim stDocName As String
| > | > | Dim intUserRespond As Integer
| > | > | Dim intReportNumber As Integer
| > | > | Dim strWhere As String
| > | > |
| > | > | If Me.Dirty Then 'save any edits
| > | > | Me.Dirty = False
| > | > | Else
| > | > | strWhere = "[qryBPLReport] = """ & [intReportNumber] &
""""
| > | > | stDocName = "rptMasterBPLReport"
| > | > | DoCmd.OpenReport stDocName, acViewPreview, , strWhere
| > | > | End If
| > | > |
| > | > | Exit_PrintByReport__Click:
| > | > | Exit Sub
| > | > |
| > | > | Err_PrintByReport__Click:
| > | > | MsgBox Err.Description
| > | > | Resume Exit_PrintByReport__Click
| > | > |
| > | > | End Sub
| > | > |
| > |
|