Set Focus Back To Access Application (1 Viewer)

[ions]

Hello,

In my VBA I open the default browser using the following code.

 Application.FollowHyperlink "http://www.google.com", , False

Right after opening the browser I would like Focus to go back to Access.

How can I do this?

Thank you

 

[pr2-eugin]

Try adding Me.SetFocus after the Application.FollowHyperlink line.

 

[ions]

The code is executed from a report in Report View. Me.Setfocus doesn't seem to be available for reports.

 

[pr2-eugin]

See if this would be of any help : http://access.mvps.org/access/api/api0019.htm

 

[ions]

Pr2. Thanks for that link. I was hopeful that it would work but Call fSetAccessWindow(SW_SHOWMAXIMIZED) did not set the focus back to Access for some reason.

Since every user will have IE installed I decided to use the following solution.

Set objIEapp = CreateObject("InternetExplorer.Application") 'Set IEapp = InternetExplorer

With objIEapp
.Silent = True 'No Pop-ups
.Visible = False

.....
.Quit
.....