Discussion :

[Salsaboy60]

Bonjour,

Je ne sais pas si je suis à la bonne place ici, mais, j'ai une bdd Access (front end/back end). Tout va très bien, sauf, que j'ai constaté que le client sort parfois de l'application via la croix rouge pour fermer l'application au lieu d'utiliser les boutons créer pour l'occassion. ça provoque bien entendue une série de problème dans l'application.

Est-ce qu'il y à moyen de disable ce bouton?

Merci pour vos réponses

Hans

[madefemere]

Bonjour,

Il faut gérer cela dans les 3 propriétés Format du formulaire : Boîte contrôle - Bouton Fermer - Boutons MinMax

Bonne continuation

[jimbolion]

Salsaboy60, madefemere

Mandresy bonsoir, je pense que Salsaboy parlait non pas du formulaire mais de l'application !

Pour cela tu peux utiliser une API :

http://support.microsoft.com/kb/300688/fr

elle continue de fonctionner en 2010 (32 et 64 bits). Quant à la pérennité de son utilisation sur les versions 2013 voire future, je n'ai malheureusement aucune garantie.

La fermeture par ALT+F4 continue à être opérationnelle ! (Vérifier si cette séquence n'est pas interceptable toutefois)

JimBoLion

[Salsaboy60]

merci jimbolion,

oui, c'est exactement ça que je cherche.

Par contre, quand je essaie la procédure d'écrite sur le lien que tu viens me passer, j'obtien une code erreur 5 (argument ou appel de procédure incorrect) sur la ligne

Code :

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

1
2
3
4
 
Sub ExitMenuState(blnExitState As Boolean)
    Application.CommandBars("File").Controls("Exit").Enabled = blnExitState
End Sub

Une idée pourquoi?

Hans

[Salsaboy60]

bon, enfin compte, je n'ai pas besoin de ça, car l'utilisateur n'as pas accès au menu fichier/quitter.

l'autre fonction, pour disable le croix pour quitter l'application fonctionne bien, alors, mon problème est réglé.

maintenant, si qqn peux m'expliquer pourquoi l'erreur, ça me servira pour ma curiosité perso.

Merci quand même.

Hans

[jimbolion]

Salsaboy60

La gestion des menus ayant changée depuis 2007 tout simplement, et l'avènement des rubans

http://www.experts-exchange.com/Data..._26754366.html

J'ai fait comme toi en commentant la ligne

JimBoLion

[naphta]

bonjour,

je ne sais pas si le code plus correspond plus à ta demande
j'avais trouvé ceci avec google ça fonctionne nickel

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
24
25
26
 
 
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
 
 
Sub AccessCloseButtonEnabled(pfEnabled As Boolean)
 
  On Error Resume Next
 
  Const clngMF_ByCommand As Long = &H0&
  Const clngMF_Grayed As Long = &H1&
  Const clngSC_Close As Long = &HF060&
 
  Dim lngWindow As Long
  Dim lngMenu As Long
  Dim lngFlags As Long
 
  lngWindow = Application.hWndAccessApp
  lngMenu = GetSystemMenu(lngWindow, 0)
  If pfEnabled Then
    lngFlags = clngMF_ByCommand And Not clngMF_Grayed
  Else
    lngFlags = clngMF_ByCommand Or clngMF_Grayed
  End If
  Call EnableMenuItem(lngMenu, clngSC_Close, lngFlags)
End Sub

à bientôt

[jimbolion]

naphta,

Effectivement nickel merci encore

JimBoLion

[Salsaboy60]

peut on faire la même chose pour le bouton réduire l'application?

Car une fois, l'application réduite, on peut aussi le fermer via click droite.

Hans