Discussion :

[[ZiP]]

Bonjour,

J'utilise le code suivant : http://access.developpez.com/sources...=acc#supprSyst

J'exécute ce code dans une macro via AutoExec à l'ouverture d'Access.

Le problème que je rencontre, c'est que visuellement tout reste inchangé jusqu'à ce que je clique sur la barre de titre ou l'intérieur de la fenêtre d'Access (j'imagine que c'est parce que je fais une action qui provoque un SetFocus ou une mise à jour de l'interface principale).

Et je n'ai pas trouvé de SetFocus pour Application.

Je ne sais donc pas comment placer un SetFocus sur l'application Access suite à l'exécution de ma macro.

Savez-vous comment je peux faire ?

Merci,
ZiP

[Taoueret]

Bonjour j'ai fait comme ceci :

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
17
18
19
20
21
22
23
 
Function RemoveSystemMenu(hwnd As Long)
 
    Dim OldStyle As Long, NewStyle As Long
    On Error Resume Next
 
    Application.Echo False
 
    ' Recupere le style de la fenêtre
    OldStyle = GetWindowLong(hwnd, GWL_STYLE)
 
    ' Créer le style l'identique sans la croix
    NewStyle = OldStyle And Not WS_SYSMENU
    'Affecte le nouveau style
    OldStyle = SetWindowLong(hwnd, GWL_STYLE, NewStyle)
 
    Application.RefreshTitleBar
    DoCmd.Minimize
    DoCmd.Maximize
    DoCmd.Restore
    Application.Echo True
 
End Function

le application.echo désactive le rafraichissement de l'écran
L'association de Minimize et Maximize fait effectivement disparaitre le menu système
Le Restore permet de revenir à l'état initial (fenêtre plus ou moins agrandie)
et enfin le application.echo True rafraichit l'IHM principale. Comme ça, la succession de minimize, maximize et restore est invisible pour l'utilisateur.

Ce n'est peut-être pas la meilleure solution mais ça a le mérite de marcher.

[[ZiP]]

Effectivement ça fonctionne !

J'ai juste un petit problème, mon formulaire principal qui est lancé au démarrage reste, lui, minimisé

Je ne sais pas quelle commande utiliser pour le restaurer...

ZiP

[[ZiP]]

J'ai résolu mon problème en retirant la ligne suivante :

Code :

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

DoCmd.Minimize

Et j'ai placé mon formulaire en non indépendant car :

La méthode Echo ne supprime pas l'affichage des boîtes de dialogue modales, telles que les messages d'erreur et les formulaires indépendants (les feuilles de propriétés, par exemple).

Maintenant ça fonctionne !

Merci,
ZiP