Discussion :

[Mors_Ubyte]

Bonjour,
Je souhaiterais utiliser une fonction qui spécifierait à Microsoft Access de ne pas redessiner l'écran du moniteur, pendant que des formulaires en fenêtre indépendante sont redimensionnés.

je pensais utiliser le code suivant :

Code :

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

application.echo

Mais ce dernier ne fonctionne pas avec les fenêtres indépendantes.

Merci par avance.

Version Access : 2002

[=JBO=]

Bonjour,

Voici un exemple de code pour verrouiller tout l'affichage sur le bureau (carrément ).

Je ne sais plus d'où vient ce code, mais c'est ultra simple et ultra bloquant si tu appelles LockWindow() et qu'ensuite tu oublies l'appel à UnlockWindow() (par exemple en cas de bug à l'exécution).
Donc prudence !

A toi de l'adapter à tes besoins.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
 
Public Sub LockWindow()
    LockWindowUpdate GetDesktopWindow
    DoCmd.Hourglass True
End Sub
 
Public Sub UnLockWindow()
    LockWindowUpdate False
    DoCmd.Hourglass False
End Sub

[Mors_Ubyte]

C'est pas parfait, mais c'est beaucoup mieux, je te remercie =JBO=.
A bientôt