Activate an open database with VBA

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello,

On a timer event i let a pop-up form appear on my screen.

However, the pop-up appears behind the current program that i use on that
moment. If i click on the access-button in the blue bar below the screen
the pop-up becomes visible.

Is there a VBA code to make the access database visible.
I already tried Application.Visible = True but it doesn't work.
 
You might look at AppActivate or popup modal form. Also be aware that
ForegroundLockTimeout and ForegroundFlashCount may affect your results.

You might get your desired result by adjusting;

"ForegroundLockTimeout"
Specifies the time, following user input, during which the system will not
allow applications to force themselves into the foreground.

and

"ForegroundFlashCount"
Determines the number of times the taskbar button will flash to notify the
user that a background window has been activated by the system. If the time
elapsed since the last user input exceeds the value of
"ForegroundLockTimeout", the window will automatically be brought to the
foreground.

The D_Word values can be found at
HKEY_CURRENT_USER\Control Panel\Desktop

Setting them to zero should effectively disable them.

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

:
| Hello,
|
| On a timer event i let a pop-up form appear on my screen.
|
| However, the pop-up appears behind the current program that i use on that
| moment. If i click on the access-button in the blue bar below the screen
| the pop-up becomes visible.
|
| Is there a VBA code to make the access database visible.
| I already tried Application.Visible = True but it doesn't work.
|
|
| --
| Stefan
 
Glad to hear it. You're welcome.

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

:
| Thanks Dave,
|
| AppActivate "xxx" does the work.
|
| --
| Stefan
 
Back
Top