Return focus to app, then send a command?

[PZero]

Hi, I have a button in an access database. When I press the button I want to focus on another application, then send a command to it. Is this possible?

My exact requirements are to press the button at which point some vba will run. The vba will check to see if autocad is open. If not open, it will open it and tell it to run a script. If it is already open, it will switch focus to autocad, then tell it to run the script.

 

[Remou]

Apparently this is possible a quick search returned this:

http://www.informit.com/articles/article.aspx?p=29033&seqNum=2&rl=1

 

[PZero]

Unfortunately I need to with the VBA in Acess, which deosn't support AutoCAD VBA.

 

[Remou]

I am confused. Why can you not:

Set A2K = CreateObject("AutoCAD.Application")

Or

Set A2K = GetObject(,"AutoCAD.Application")

And continue with A2K from there?

 

[PZero]

A better explanation of what I want to do is below;

I have a button on a form and I need it to do the following -

[ol][li]Check if AutoCAD is running[/li]
[li]If AutoCAD is running, maximise it and move the focus to it[/li]
[li]If AutoCAD is not running, start it and move the focus to it[/li][/ol]

I'm thinking this should be fairly simple, but I'm stuck fast and the deadline is looming. Can anyone please help?

 

[Remou]

If
Set A2K = GetObject(,"AutoCAD.Application")
Returns an error, Autocad is not running. A parallel example:

On Error Resume Next
Set w = GetObject(, "Word.Application")
If Err.Number > 0 Then
    Set w = CreateObject("Word.Application")
End If
On Error GoTo 0
w.Visible = True
w.Activate