Automation question… (97 SR-2)

Topic

New Reply

Hi Everyone…

Just curious… Can someone tell me if it is possible to execute an On Click event for a command button in a remote database…

So far, from within one database:
– I’ve gotten the other database to open
– Opened a form in that database
– Set a value for an option button to True
– Set focus on the command button on that form

Now all I need to do is get it to click… …or the equivalent of clicking… I need the code to run for that click event…
Can’t figure it out…

Is this possible?
TIA

Reply | Quote

Replies

In general, all you do is simply execute the procedure name associated with that object. You need to be sure to have reference set to that database, but that should do it.

Reply | Quote

Thanks Wendell… but the problem I’m having is with the syntax…
This is what I have so far for the code…

Dim acApp As Object ‘ Declare variable to hold the reference.
Dim acDatabase As DAO.Database

Set acApp = GetObject(“C:Documents and SettingstreaspaDesktopdb1.mdb”)

With acApp
.Visible = True
.DoCmd.OpenForm “Form1”
.Forms(“Form1”).frmOptions = 1
.Forms(“Form1”).cmdDone.SetFocus
‘cmdDone_Click ‘this is where I don’t know how to enter the command… I’ve tried a few things but I can’t get it right…
.Quit
End With

Set acApp = Nothing

End Function

P.S. This is just a sample… Not the real thing…

Reply | Quote

Have you tried replacing
.Forms(“Form1”).cmdDone.SetFocus
by
.Forms(“Form1”).cmdDone_Click

This is just a hunch.

Reply | Quote

Have you tried replacing
.Forms(“Form1”).cmdDone.SetFocus
by
.Forms(“Form1”).cmdDone_Click

This is just a hunch.

Reply | Quote

Thanks Patt, but that’s one of the things I tried…
I get error ‘Runtime Error 2465 – Application-defined or Object-defined error”

Reply | Quote

If you look at the code behind cmdDone_Click you will probably find that it is private which means that this procedure is not visible and available outside this form.
Changing private to public made it work for me.

Reply | Quote

… Ahhh… The scope… I should have thought of that…
Thanks a million John!

Reply | Quote

… Ahhh… The scope… I should have thought of that…
Thanks a million John!

Reply | Quote

If you look at the code behind cmdDone_Click you will probably find that it is private which means that this procedure is not visible and available outside this form.
Changing private to public made it work for me.

Reply | Quote

Thanks Patt, but that’s one of the things I tried…
I get error ‘Runtime Error 2465 – Application-defined or Object-defined error”

Reply | Quote

Thanks Wendell… but the problem I’m having is with the syntax…
This is what I have so far for the code…

Dim acApp As Object ‘ Declare variable to hold the reference.
Dim acDatabase As DAO.Database

Set acApp = GetObject(“C:Documents and SettingstreaspaDesktopdb1.mdb”)

With acApp
.Visible = True
.DoCmd.OpenForm “Form1”
.Forms(“Form1”).frmOptions = 1
.Forms(“Form1”).cmdDone.SetFocus
‘cmdDone_Click ‘this is where I don’t know how to enter the command… I’ve tried a few things but I can’t get it right…
.Quit
End With

Set acApp = Nothing

End Function

P.S. This is just a sample… Not the real thing…

Reply | Quote

In general, all you do is simply execute the procedure name associated with that object. You need to be sure to have reference set to that database, but that should do it.

Reply | Quote