Access 2000: opening a report with a button on more than one form.

[ItsMe]

I got it to print. YOu may need to format the report a little. It seems to want to print two pages. What you need to do.....

Remove the name of the macro from the click event for your control.
Save the database by clicking the "Save" icon
Go back to the click event for your control and click the elipses (...)
Select "Code Builder" from the prompt window.

The VBA editor should open and the cursor should be within the Click event handler for your control.
Replace the code in the middle of the handler.


Just below

Private Sub cmdPrintC5_Click()
On Error GoTo Err_cmdPrintC5_Click

and before

End Sub



paste the following code and save your DB

     Dim stDocName As String
    Dim strWhere As String
    strWhere = "[MailingListID] = " & Me.MailingListID

    stDocName = "rptPrintC5env"
    DoCmd.OpenReport stDocName, acNormal, , strWhere
Exit_cmdPrintC5_Click:
    Exit Sub
Err_cmdPrintC5_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrintC5_Click

[Ally1205]

ItsMe..... Brilliant! Thank you!! the button works on both forms now. After I coded the button on the first form, per your instructions, I copied the entire page of coding and pasted it into the button on the second form, and found that both buttons, on both forms work! That's what I wanted!! I still don't understand why it didn't work on both forms before.

Yes, there is indeed an issue with the report wanting to print to pages. That's another problem I have not been able to solve yet.

What I am going to do now, is try and get the other two printing buttons to work on both forms....

Thanks again!
Ally1205

[ItsMe]

Be careful copying all of the code from one procedure to another form's module. There is a reason I mentioned pasting the code a certain way. You want to avoid pasting the first and last lines in an event handler for a control.

These lines act as containers and it is onside these containers you want your code to go. If Access does not recognize the container, it will behave in a peculiar way. I recommend using the ellipses button in the Event tab of the controls properties pane to create a Sub Procedure to handle events.

As for why your DB was not working correctly, I do not know specifically. I did not look into it. I believe it is because of the where criteria you defined within the Macro. My preference is to manage this criteria at the form level. The code you pasted works because yesterday you removed the filter criteria from the report and today you removed the Macro. The criteria is now managed by the code you pasted.

[Ally1205]

ItsMe..... Brilliant! Thank you!! the button works on both forms now. After I coded the button on the first form, per your instructions, I copied the entire page of coding and pasted it into the button on the second form, and found that both buttons, on both forms work! That's what I wanted!! I still don't understand why it didn't work on both forms before.

Yes, there is indeed an issue with the report wanting to print to pages. That's another problem I have not been able to solve yet.

What I am going to do now, is try and get the other two printing buttons to work on both forms....

Thanks again!
Ally1205

[Ally1205]

I have now got the other buttons working too. As I prefer the report to open in preview mode, I deduced (after googling) that I needed to change:

acNormal
to
acViewPreview

It seems to work.... I've also solved the 2-pages-being-printed oddity.... I just had to experiment with changing the positions of the page edges in each report's design mode. I didn't understand what I was doing exactly, but trial and error prevailed, anyway! These problems have been dogging me for months... I'm so glad to have got them sorted at last (with your help, that is)!

Kind regards,
Ally1205

[ItsMe]

This code does not belong
Exit_cmdPrintC5_Click:
Exit Sub

Everything else looks good though

It should probably look like this

Private Sub CmdPrintDLenv_Click()
 On Error GoTo Err_CmdPrintDLenv_Click

Dim stDocName As String
Dim strWhere As String
    strWhere = "[MailingListID] = " & Me.MailingListID

    stDocName = "print Dl envelop"
    DoCmd.OpenReport stDocName, acNormal, , strWhere
 
 Err_CmdPrintDLenv_Click:
    MsgBox Err.Description
    Resume Exit_CmdPrintDLenv_Click

 End Sub

This is the code that is doing the work

Dim stDocName As String
Dim strWhere As String
    strWhere = "[MailingListID] = " & Me.MailingListID

    stDocName = "print Dl envelop"
    DoCmd.OpenReport stDocName, acNormal, , strWhere

The other code is error handling that is specific to the control's name. So this part of the code is not interchangeable between controls with different names.

[Ally1205]

Yes; I spotted my mistake, and altered my previous reply, but apparently you had already seen it. Sorry about that.
Everything is working perfectly now...
Thank you again for your help!