Discussion :

[facteur]

Bonjour,

J'ai plusieurs formulaires que je dois afficher sur des differents ordinateurs de mon entreprise.
Sur ces formulaires , j'ai crée une barre de menu personnalisée où est inseré quelques commandes.
Mais je me heurte à un problème :
Pour que mes collegues ne quittent pas brutalement la base de donnée acccess, j'aimerais désactiver la bouton "fermer" des formulaires (symbolisé par la croix blanche sur fond rouge).
Seul resterait le bouton "fermer la fenetre " (symbolisé par la petite croix noir).

Merci de votre aide

[RobiPMS]

Bonjour.
Va voir cette discussion : http://www.developpez.net/forums/d71...croix-daccess/.
Cordialement.

[facteur]

Bonjour RobiPMS
Je viens de parcourire cette discussion .
Des demain, j'essaie d'adapter ce module a mes formulaires.
Merci pour l'info

[facteur]

Bonjour RobiPms

J'ai donc parcouru le module du lien http://www.developpez.net/forums/d71...croix-daccess/.
mais je n'arrive pas à l'inserer dans les propriétés des formulaires.
Il est dis que je dois inserer ce module dans la ligne "chargement" d'un formulaire.
Mais lorsque je clique sur la ligne "chargement" de la propriété du formulaire,
je n'ai pas accés au module.

Aie je loupé une étape.
Je remets ci dessous la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const SC_CLOSE = &HF060&
Public Const MF_BYCOMMAND = &H0&
 
Public Sub DesacFermeture()
Dim hSysMenu As Long
 
hSysMenu = GetSystemMenu(Application.hWndAccessApp, False)
RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
 
End Sub

Et voici ce qui est est dis sur le forum :

"Ensuite, utiliser par exemple sur chargement d'un formulaire (idéalement le menu général) ":
DesacFermeture

[RobiPMS]

Bonjour.
Procède comme ceci :
1. Ouvre un module indépendant (pas un module de formulaire ou d'état!). Si tu n'en as pas, cées-en un auquel tu donnes n'importe quel nom. Sous Access 2003, tu vas dans la fenêtre de base de données -> modules -> clic sur Nouveau.
2. Dans ce module, tu mets en haut (dans ce qu'on appelle les "Déclarations") le code

Code :

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

1
2
3
4
5
6
Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const SC_CLOSE = &HF060&
Public Const MF_BYCOMMAND = &H0&

3. Puis en dessous, dans le même module, tu mets la fonction :

Code :

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

1
2
3
4
5
6
7
Public Sub DesacFermeture()
Dim hSysMenu As Long
 
hSysMenu = GetSystemMenu(Application.hWndAccessApp, False)
RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
 
End Sub

4. Tu enregistres.
5. Tu ouvres en mode création le premier formulaire qui se charge quand tu ouvres ton application. Tu affiches les propriétés, onglet Evénement -> Sur chargement -> tu y indiques [Procédure événementielle](en le tapant ou en cliquant sur la liste de choix en bout de ligne. Tu ouvres cette procédure en cliquant sur le bouton à droite avec ... et là tu appelles la nouvelle fonction. Le code :

Code :

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

1
2
3
Private Sub Form_Load()
Call DesacFermeture
End Sub

Cela fonctionne très bien
Cordialement

[facteur]

Alors la Bravo
merci RobiPMS