J'ai utilisé la fonction ci-dessous pour désactiver la croix de fermeture
d'access :
Public Function DesactiverX()
'Objectif: Eviter la fermeture intempestive d'Access en désactivant la croix
de fermeture du menu système
' Elle est redessinée avec un fond grisé
Dim hMenu As Long
Dim nCount As Long
'Suppression du menu de fermeture et de son séparateur
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
'Redessiner l'écran pour signaler la désactivation de la croix de fermeture
DrawMenuBar Application.hWndAccessApp
End Function
Cette fonction qui fonctionnait tres bien sous A2K ne marche plus sous 2003
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonsoir.
essaie la fonction placée sur la page : http://access.vba.free.fr/suppression_quitter.htm, elle doit fonctionner sous 2003.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Free" a écrit dans le message de news:410cec39$0$1897$
J'ai utilisé la fonction ci-dessous pour désactiver la croix de fermeture d'access :
Public Function DesactiverX() 'Objectif: Eviter la fermeture intempestive d'Access en désactivant la croix
de fermeture du menu système ' Elle est redessinée avec un fond grisé Dim hMenu As Long Dim nCount As Long
'Suppression du menu de fermeture et de son séparateur Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION) Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
'Redessiner l'écran pour signaler la désactivation de la croix de fermeture
DrawMenuBar Application.hWndAccessApp
End Function
Cette fonction qui fonctionnait tres bien sous A2K ne marche plus sous 2003
Merci d'avance pour une solution de remplacement.
Bonsoir.
essaie la fonction placée sur la page :
http://access.vba.free.fr/suppression_quitter.htm, elle doit fonctionner
sous 2003.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Free" <a@aa.fr> a écrit dans le message de
news:410cec39$0$1897$636a15ce@news.free.fr...
J'ai utilisé la fonction ci-dessous pour désactiver la croix de fermeture
d'access :
Public Function DesactiverX()
'Objectif: Eviter la fermeture intempestive d'Access en désactivant la
croix
de fermeture du menu système
' Elle est redessinée avec un fond grisé
Dim hMenu As Long
Dim nCount As Long
'Suppression du menu de fermeture et de son séparateur
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
'Redessiner l'écran pour signaler la désactivation de la croix de
fermeture
DrawMenuBar Application.hWndAccessApp
End Function
Cette fonction qui fonctionnait tres bien sous A2K ne marche plus sous
2003
essaie la fonction placée sur la page : http://access.vba.free.fr/suppression_quitter.htm, elle doit fonctionner sous 2003.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Free" a écrit dans le message de news:410cec39$0$1897$
J'ai utilisé la fonction ci-dessous pour désactiver la croix de fermeture d'access :
Public Function DesactiverX() 'Objectif: Eviter la fermeture intempestive d'Access en désactivant la croix
de fermeture du menu système ' Elle est redessinée avec un fond grisé Dim hMenu As Long Dim nCount As Long
'Suppression du menu de fermeture et de son séparateur Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION) Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
'Redessiner l'écran pour signaler la désactivation de la croix de fermeture
DrawMenuBar Application.hWndAccessApp
End Function
Cette fonction qui fonctionnait tres bien sous A2K ne marche plus sous 2003