Fermeture Formulaire

"Annie" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:cc3601c48aa1$c0a19840$a501280a@phx.gbl...

Bonsoir,
Je veux interdire la fonction de fermeture par la croix du
formulaire. J'ai testéles propietés unload, désactivé ...
sans aucun résultat.
merci pour votre aide à toutes et tous

J'ai vu ce post dans microsoft.public.fr.vb, ça pourrait t'interesser :

####### Début du post #######
bonjour

j'ai trouvé chez microsoft le code pour désactiver le bouton de fermeture

et je voudrais en meme temps désactiver aussi le bouton MAXIMIZE
je n'y arrive pas

voici le code en question pouvez vous ajouter pour desactiver le bouton
MAXIMIZE
MERCI

Option Compare Database
Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&
Const SC_SIZE = &HF000&
Const SC_MINIMIZE = &HF020&
Const SC_MAXIMIZE = &HF030&
Public Function SetEnabledState(blnState As Boolean)
Call CloseButtonState(blnState)
''''''Call ExitMenuState(blnState)
End Function
'Disable the Menu Option
Sub ExitMenuState(blnExitState As Boolean)
Application.CommandBars("File").Controls("Exit").Enabled = blnExitState
End Sub
'Disable the Close Button Option
Sub CloseButtonState(boolClose As Boolean)
Dim hWnd As Long
Dim wFlags As Long
Dim hMenu As Long
Dim result As Long

hWnd = Application.hWndAccessApp
hMenu = GetSystemMenu(hWnd, 0)
If Not boolClose Then
wFlags = MF_BYCOMMAND Or MF_GRAYED
Else
wFlags = MF_BYCOMMAND And Not MF_GRAYED
End If

result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
End Sub

'Disable the maximize Button Option
####### Fin du post #######

Tu vas dans propriete du formulaire et dans format tu
as "Close button" oui / non ( mon access est en anglais
donc pas sur du titre)... tu peux soit le boquer soit le
cacher avec controle box oui / non...

Salut Annie,
Dans les propriétés de ton formulaire (onglet Format), tu
en as une qui s'appelle Boutton de Fermeture (Close
Button en anglais), mets la valeur à non et le tour et
joué...

Bye
Yann

-----Message d'origine-----
Bonsoir,
Je veux interdire la fonction de fermeture par la croix
du

formulaire. J'ai testéles propietés unload,
désactivé ...

sans aucun résultat.
merci pour votre aide à toutes et tous
.