VB Code in invoke "Get External Data" window

[tinyevil777]

Morning all!

The title explains it all... I have designed a database that's being used by people in my team, however we have an issue with people using compatibility packs. Menus don't show up for some users, and these menus are vital as they need the "Get External Data" function.

Does anybody know of a code to literally invoke the "Get External Data" window?

Data import format needs to be Excel by the way.

Thank you in advance!


Tom

 

[tinyevil777]

See example

 

[vbaInet]

I believe that's

docmd.runcommand accmdimport

Why not create a custom menu for your application instead and include the import button in there. Custom menus are a standard before deploying apps.

 

[tinyevil777]

Do custom menus display even if they're running a compatibility pack? If they do, then i will look down that route also! Thanks for your reply!

 

[vbaInet]

Hang on a minute, that's Access 2007 or 2010 isn't it? It's a custom ribbon you need.

Yes, custom menus or ribbons tag along with the database.

 

[tinyevil777]

Just tried that code, and it says "you have tried to run an operation involving a function or feature that was not installed in this version of Microsoft Office Access"

What am i missing?

 

[vbaInet]

That code would have worked in Access 2003. These are all the 2007 constants associated with Runcommand:

acCmdImportAttachAccess
acCmdImportAttachdBase
acCmdImportAttachExcel
acCmdImportAttachHTML
acCmdImportAttachLotus
acCmdImportAttachODBC
acCmdImportAttachOutlook
acCmdImportAttachParadox
acCmdImportAttachSharePointList
acCmdImportAttachText
acCmdImportAttachXML

 

[tinyevil777]

Apologies, i know very little about vb coding. I've tried implementing "acCmdImportAttachExcel" into the onclick of a button, and i recieve a compile error, invalid use of a property.

I take it the code im using as below is incorrect?

Private Sub Command10_Click()
acCmdImportAttachExcel
End Sub

 

[vbaInet]

DoCmd.RunCommand acCmdImportAttachExcel

 

[tinyevil777]

Fantastic, thanks alot for your help!

 

[vbaInet]

No problemo!

 

[cyrusv]

for Excel 2000, just use docmd.runcommand accmdimport.. thanks VBA!