Thread: Run Time Error
View Single Post
Old May 27th, 2004, 09:50 AM
JBond JBond is offline
Registered User
Join Date: May 2004
Location: Frederick, MD, USA.
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Run Time Error

In the following function I have code that sends an email.
It worked initially but as I have added other things to
the dbs it now gives me the following error. When I hit
the debug button it goes to the first DoCmd Line.

Any help is appreciated

Run-Time Error 2046
The Command or Action "Send Object" isn't available now.
*You may be in a read only database or an unconverted
databasefrom an earlier version of Mocrosoft Access
*The type of object the command applies to isn't currently
selected or isn't in the active window.

Use only yhe commands and macro actions that are currently
available for this database.

Function emailer1()
On Error GoTo emailer1_Err
If DCount("*", "Non_Special_Delivery") > 0 Then
acQuery, "Non_Special_Delivery", "MicrosoftExcel
(*.xls)", "Apperson Chris", "", "", "Test", "This is a
Test", False, ""
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qryUpdate_Sent_Non_Special_Delivery",
    DoCmd.SetWarnings True
    End If
    Exit Function

    Resume emailer1_Exit

End Function