Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

VBA: Switch front Application in VBA

Posted on 2006-11-05
3
Medium Priority
?
1,776 Views
Last Modified: 2013-11-18
I am trying to send some information from MS Access to another application (Cumulus) and then have that application display data related to the information.

The Cumulus Application used to be fully VB scriptable but has since a few years switched to JAVA instead. However, it does have one single Object in it's VB Dictionary: The Application object, and this one supports only ONE Function (which allows me to have it start one of its JAVA plug-ins, called EJPs and pass some data to it)

I am succesful in using the command to send the data to Cumulus, and if Cumulus is not already running, it will launch and come to the front and then execute my command (by executing my JAVA plug-in with the data that was sent from Acceess)

HOWEVER: If Cumulus is already running, it will NOT come to the front and the user will therefore not see the result.

My Question: How can I either force MS Access to the background or bring Cumulus to the foreground? Is there a general command in VBA that would allow this?



For reference, here is the simple code snippet in Access:

Private Sub Command0_Click()
Set cuApp = CreateObject("Cumulus6.Application")
reply = cuApp.CallEJP("com.modula4.testing.MainEJP", "Hi")
MsgBox reply
End Sub
0
Comment
Question by:Bohumil
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 48

Accepted Solution

by:
Wayne Taylor (webtubbs) earned 2000 total points
ID: 17879332
Hi Bohumil,

You could try this....

    AppActivate "Cumulus"

...which activates the named application. Or you might like to try something like this....

    Set cuApp = GetObject("Cumulus6.Application")

...which retreives a running instance of the application.

Regards,

Wayne
0
 

Author Comment

by:Bohumil
ID: 18025004
Thanks Wayne,
For some reason I did not seem to get a notification when you posted your suggestion--so please excuse the late acceptance. The AppActivate "..." command did the trick in principle. The problem is however that it wants the exact Window Title as an argument, and that is a bit of a problem since it depends on a number of things in Cumulus--but I think I'll be able to find a way to determine the title in the JAVA code and return it to VB as a first step and then call the Application a second time to bring it to the front and execute the actual command I am interested in.
0

Featured Post

What’s Wrong with Your Cloud Strategy ?

Even as many CIOs are embracing a cloud-first strategy, the reality is that moving to the cloud is a lengthy process and the end-state is likely to be a blend of multiple clouds—public and private. Learn why multicloud solutions matter in this webinar by Nimble Storage.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question