Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Runtime Error 2585 (this action can't be carried out while processing a form or report event)

Posted on 2008-06-16
1
Medium Priority
?
1,734 Views
Last Modified: 2013-12-05
I have a command button (cmdPurchaseOrderPrint) on my form (Orders) that opens a print dialog box for a report.  When I click 'ok' to print the form I see Error # 2585, This action can't be carried out while processing a form or report event.  Debugging reveals the offending statement is RunCommand acCmdPrint.    

Here's the code behind the click event of the command button:
DoCmd.OpenReport "PurchaseOrder", acViewPreview

And here's the code behind the on open event of the report:

Private Sub Report_Open(Cancel As Integer)

On Error GoTo Error_Handling:

Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection

Dim rstOrders As New ADODB.Recordset
Dim strSQL As String

If CurrentProject.AllForms("Orders").IsLoaded = False Then
    Dim OrderNum As String

Get_Input:
    OrderNum = InputBox("Enter Order #")
    If OrderNum <> "" Then
        strSQL = "SELECT Order_Num FROM tblOrders WHERE Order_Num = '" & OrderNum & "' "
        rstOrders.Open (strSQL), cn, adOpenForwardOnly, adLockReadOnly
        If rstOrders.EOF = True Then
            MsgBox "Order #" & OrderNum & " Not Found!", vbCritical
            rstOrders.Close
            GoTo Get_Input
        Else
            strSQL = "SELECT * FROM tblOrders WHERE Order_Num = '" & OrderNum & "' "
            Me.RecordSource = strSQL
        End If
    Else
        End
        DoCmd.Close
    End If

Else
    strSQL = "SELECT * FROM tblOrders WHERE Order_Num = " & Forms!Orders!Order_Num
    Me.RecordSource = strSQL
    RunCommand acCmdPrint    
End If

Exit Sub

Error_Handling:
If Err.Number = 2501 Then  'user canceled print dialog box
    End  
Else
    MsgBox Err.Number
    MsgBox Err.Description
End If

End Sub

Any idea what I'm doing wrong?

Thanks in advance.

0
Comment
Question by:hennessym
1 Comment
 
LVL 1

Accepted Solution

by:
hennessym earned 0 total points
ID: 21795351
Solved it - the key was to put RunCommand acCmdPrint in the OnActivate event.
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
Windows Explorer let you handle zip folders nearly as any other folder: Copy, move, change, and delete, etc. In VBA you can also handle normal files and folders, but zip folders takes a little more - and that you'll find here.
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…
This lesson discusses how to use a Mainform + Subforms in Microsoft Access to find and enter data for payments on orders. The sample data comes from a custom shop that builds and sells movable storage structures that are delivered to your property. …

972 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question