Mettre une application Access au premier plan

**funkyjul** · 20/05/2008, 14h47

Bonjour tout le monde,

Un petit soucis me taraude! Je travaille avec passablement d'applications différentes (appli Access, ERP, mail, etc etc). Parmi ces applications, certaines lancent des calculs relativement longuets (entre 3 et 20 minutes). Vous pensez bien que je ne peux pas me permettre d'aller boire 5 cafés et fumer 3 paquets de clopes pendant que mes calculs se font alors je passe à autre chose.

Ce que j'aurais voulu est de mettre certaines applications Access au 1er plan (niveau windows) une fois les calculs effectués... Croyez-vous que cela est possible?? Et accessoirement comment?

Merci pour vos réponses

Julius

**electrosat03** · 20/05/2008, 14h51

Salut,

Oui, c'est possible.

Je regarde à ça et poste la réponse

A+

**funkyjul** · 20/05/2008, 14h58

cool coool

Merci bien electrosat03

**electrosat03** · 20/05/2008, 14h58

Voilà,

Dans un module tu mets cette procédure public

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Compare Database
 
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

Dans la procédure qui effectue le calcul, tu place ceci à la suite du code qui termine le calcul

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    TopMost Me.Form.hwnd

Le formulaire où se trouve cette ligne s'affichera au dessus de toutes les applis windows.

Ne pas oublier de mettre se formulaire en indépendant.

A+