Timer prioritaire sur tout le reste [Résolu]

[lbar012001]

Bonjour,
J'ai un timer+minuterie qui toutes les 10 minutes m'affiche une msgbox dans mon formulaire.
Je souhaite que l'affichage de cette msgbox prenne la main sur tout le reste, à savoir que quand elle se déclenche et que je suis autre part (excel, outlook, plsql...) access reprenne la main avec cette msgbox à l'écran (j'espere que je suis assez clair) et donc ne pas attendre que l'utilisateur retourne sous access pour constater qu'elle s'est affichée.
Est ce possible ?
merci
laurent

[JeanYves70]

Bonjour,

En mars j'ai posé une question similaire ici :
http://www.developpez.net/forums/d10...nctionne-plus/

Je n'ai pas eu de réponse.

Cette méthode fonctionnait en ACC2003 cela peut peut-être t'aider.
Tu ne précises pas ta version d'ACCESS.
Si tu trouve une solution pour ACC2010 cela m'interesse toujours.

Merci

[Arkham46]

bjr,

essayez vbSystemModal

Code :

MsgBox "blabla", vbOKCancel Or vbSystemModal

toute l'application n'est pas remonté à l'avant-plan, juste la boîte de message mais c'est peut-être suffisant pour vous

[lbar012001]

En fait j'ai trouvé ça et ça marche nickel
Merci en tout cas
Laurent

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
                                                    ByVal hWndInsertAfter As Long, _
                                                    ByVal X As Long, ByVal y As Long, _
                                                    ByVal cx As Long, ByVal cy As Long, _
                                                    ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
 
' Permet de placer un formulaire au-dessus de toutes les fenêtres de Windows
' Déclarer nécessairement ce formulaire indépendant
Public Sub TopMost(ByVal lhandleWindow As Long)
   Call SetWindowPos(lhandleWindow, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

puis dans mon formulaire d'alerte/warning à afficher j'ai mis

Code :

1
2
3
Private Sub Form_Load()
TopMost Me.Form.hwnd
End Sub