Run Access Command

F

Franky

Can anyone help me out, please?
I can't get this to work:

from in excel i need to run a command on some access form
after the command starts to run I need to wait 6 minutes

Thx
 
H

HatesIT

assuming you have the command button on that form in Access and that this is
the only way to get results

watch the linewrap on this. all text between the dashes is a single line
-----
getobject("C:\MyPath\MyDB.mdb").forms("frmMyForm").cmdMyCommandButton_Click
-----

it will wait until the procedure on that form completes
that should get you started

maybe if you gave more detail about what you are trying to do other options
could be given

hth
 
F

Franky

Hi, thx for the answer. I need to open that form and click on the command
button. Then a lot of code will be processed. I have to do it from in excel.

I tried your solution but it isn't working
 
F

Franky

problem solved:

Dim AccApp As Object
Dim AccPath As String

AccPath = "c:\test.mdb"
Set AccApp = CreateObject("Access.Application")

AccApp.Visible = False
AccApp.OpenCurrentDatabase AccPath
AccApp.DoCmd.OpenForm "form1"
AccApp.Forms("form1").Command0_Click
 
H

HatesIT

Yes, my solution assumed the database and form was opened

I would suggest moving all the code to excel OR access. Why have 2 apps hung
while the procedure completes?

good luck!
 
Top