Please help!!
I have been trying for the past 4 days to open up an application (on a shared-Network Drive) using Access 2010 (VB7). I have copied code from forum after forum and post after post…but I am still encountering the same problem (unable to focus and execute send keys to this application once it opens using the shell command).
I am able to get the application to open just fine, but I am not able to send keys (or anything else for that matter) unless I click on the program in the task bar after it opens.

Since I was not sure if it was the application I am trying to open (called “GA – General Agency Management System) I copied code that is supposed to open Notebook and send it some text after it is opened. This too – opens up just fine, but when the “sendkeys” attempts to send notepad some data, nothing happens.

Below are a couple of snippets of code I have tried, but could not get to work:

Private Sub probwontwork()
x = Shell("notepad.exe", vbNormalFocus)
AppActivate x
SendKeys "This is a test"
End Sub
“””””””””””””””””””””””””””””””””� ��”””””””””””””””””””””””””””””””
Private Sub probnotgonnawork()
AppActivate
MyAppID = Shell("\\fwa-app\ga agency")
AppActivate MyAppID End Sub
“””””””””””””””””””””””””””””””””� ��”””””””””””””””””””””””””””””””
Private Sub havingnoluck ()
x = Shell("GA – General Agency Management System", vbNormalFocus)
MyAppID = Shell("\\fwa-app\ga\Ga.exe Agency exe", ", vbNormalFocus)
AppActivate MyAppID
Dim instance As Control
Dim returnvalue As Boolean
returnvalue = instance.Focus
SendKeys "this is totally not gonna work'"
End Sub
“””””””””””””””””””””””””””””””””� ��”””””””””””””””””””””””””””””””
And many many more!!!

Basically, I just need to open up an application on a shared drive and then “sendkeys” based upon data calculated/created in my Access Database (2010- -VB7) using Win XP with sp3