Errors after update to Office 365

[AdamFeerst]

Since updating to Office365 (not Access, still using 2010), I've been getting the following errors in code that worked before the update:

• Err#2046, The command or action 'Send Object' isn't available now." on the line "DoCmd.SendObject ..."
• "Run-time error '1004' Method 'Save' or object '_Application' failed" on the line "x1App.Save" where I'm saving an Excel file I created and manipulated from within Access.

Related, perhaps, is that the E-mail icon, under the External Data tab, is grayed out, even when a table is open.

This seems to be universal, with coworkers, and not just with this database.

Any ideas?

 

[Minty]

Check if Access or Outlook is being run with admin privileges - see this thread http://www.access-programmers.co.uk/forums/showthread.php?t=281087

Also .mdb databases won't talk to outlook 2013 I've discovered in the last couple of weeks...

 

[gemma-the-husky]

I was unable to use outlook 365 with A2003, only with A2013. (in my 365 suite)

It might be the same issue with A2010. I think the object model must be different. The MS office folder structure in office 15 is certainly quite different.

I actually use Wayne Philips/EverythingAcess email system, and that fails as well.

 

[AdamFeerst]

Minty,

Those boxes are grayed out for me. Could that be because I don't have admin privileges to the computer?

Adam

 

[GinaWhipp]

Hmm, post looks familiar...

A couple of things...
1. Check the References
2. If you are no longer using Outlook Desktop or Excel Desktop then Access cannot find the applications to do the requested.

 

[Minty]

Accdb format dB will definitely talk to an installed 2013 outlook

 

[GinaWhipp]

Minty... True but Office 2013 was not mentioned just Office 365 so I thought it was mentioning.

 

[AdamFeerst]

It's Microsoft Outlook 2013, part of Microsoft Office 365 ProPlus

 

[GinaWhipp]

Okay good... then are these the same References listed in the other Forum? If yes, then I replied to needed the balance of those checked and posted a link regarding Late Binding.

 

[AdamFeerst]

References checked include:
Microsoft Access 14.0 Object Library
Microsoft Office 15.0 access database Engine Object
Microsoft Outlook 15.0 Object Library
Microsoft Excel 15.0 Object Library

 

[AdamFeerst]

Yes, they are the same. Others checked:
VB for Applications
OLE Automation
Microsoft ActiveX Data Objects 2.8 Library
Microsoft ADO Ext. 2.8 for DDL and Security

I've been told I don't need both ActiveX and ADO, but don't understand which one I should keep. Nothing shows as missing.

I'll look into late binding. That too is a foreign concept.

 

[GinaWhipp]

I don't think you need those either. I recommend you make a BACKUP then remove them and Debug > Compile.

We're here if you get totally lost on the Late Binding. However, it will be helpful to post the Function or section of code that is relevant.

 

[gemma-the-husky]

Minty might be right about the accdb format. My failures were with mdb format.


I am still not so sure though. If you change from A2003 to A2010, the product reinstalls. If you change from A2003 to A365 it doesn't need to reinstall, so obviously the set up is a bit different. Maybe its to do with registry entries.

 

[AdamFeerst]

Upgrading to Access 2013 fixed the email problem. IT couldn't fix it by either the Run as Admin method or trying to fix registries. I couldn't fix it by adding libraries. So, they upgraded me to 2013 early. Sometimes it pays to complain.

 

[AdamFeerst]

The other problem still occurs, "Run-time error '1004' Method 'Save' or object '_Application' failed" on the line "x1App.Save"

Abbreviated code:
Dim stQryName, stFilePath, stFileName, stClient, stFileDate As String
Dim xlApp As Excel.Application
Dim xlDoc As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlRng As Excel.Range

DoCmd.TransferSpreadsheet acExport, , stQryName, stFileName
Set xlApp = CreateObject("Excel.Application")
Set xlDoc = xlApp.Workbooks.Open(stFileName)

Set xlSheet = xlDoc.Sheets("qryDetail")
SumRow = xlSheet.Range("A1").End(xlDown).row + 1
With xlSheet
...
End With

xlApp.Save

 

[GinaWhipp]

Try...

xlDoc.Save

As you're not trying to Save Excel just the Workbook.