Discussion :

[Luisito31]

Bonjour !

J'aimerai savoir s'il est possible de désactiver la croix de fermeture (blanche avec fond rouge) sur toute mon application access ? si oui comment ?

En effet je veux que l'utilisateur ne puisse utiliser que les bouton que j'ai mis dans mes formulaires ...

merci par avance

[Chtulus]

Bonjour,

Fais un petit tour ici

http://access.developpez.com/faq/?pa...ace#DispBtnFen

[Luisito31]

re

Je précise bien que je veux enlever la croix tout en haut et non pas la petite croix du formulaire...

[pev15]

Ajoute le ce code dans le module de formulaire d'accueil :

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
Option Compare Database
Option Explicit
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
Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
 
Public Function DisableX()
    Dim hMenu As Long
    Dim nCount As Long
    hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
    nCount = GetMenuItemCount(hMenu)
    Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
    DrawMenuBar Application.hWndAccessApp
End Function

Ensuiste tu appel la fonction DisableX() sur l'évenement "chargement" du formulaire

[Luisito31]

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
Private Sub Form_Load()
Public Function DisableX()
    Dim hMenu As Long
    Dim nCount As Long
    hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
    nCount = GetMenuItemCount(hMenu)
    Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
    DrawMenuBar Application.hWndAccessApp
End Function
 
LoadLibrary "T:\Stagiaire_DILT\LUIS 05-2008\MouseWheelDVPNoReg.dll"
MouseWheelHook Me.hWnd, False
 
 
End Sub

Il me dit End Sub attendu :s

[sunbeam]

Salut,
extrait ta fonction de la procedure onload et appelle la, ca devrait allez mieux!

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
 
Private Sub Form_Load()
 
LoadLibrary "T:\Stagiaire_DILT\LUIS 05-2008\MouseWheelDVPNoReg.dll"
MouseWheelHook Me.hWnd, False 
Call DisableX
 
End Sub
 
Public Function DisableX()
    Dim hMenu As Long
    Dim nCount As Long
    hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
    nCount = GetMenuItemCount(hMenu)
    Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
    DrawMenuBar Application.hWndAccessApp
End Function

[Luisito31]

Code :

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

1
2
3
4
5
6
7
8
Public Function DisableX()
    Dim hMenu As Long
    Dim nCount As Long
    hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
    nCount = GetMenuItemCount(hMenu)
    Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
    DrawMenuBar Application.hWndAccessApp
End Function

Erreur : Sub ou Fonction non defini

[pev15]

as tu bien ajouté ce code en entete de ton module :

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
Option Explicit
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
Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&

il faut qu'il soit en haut de ton module a la place du option compare database.

[Luisito31]

en effet je l'avais mis dans un autre module :s ptite bourde !

Merci beaucoup !!

[Luisito31]

Il y a toujours un probleme en effet ! On peut toujours quitter en faisant fichier -> quitter ....

Comment éviter cela ?

[sunbeam]

Si tu colle le code de pev15 dans un module et que tu appel la fonction disableX au chargement de ton formulaire ca fonctionne.

Sinon pour faire simple dans les propriété de ton formulaire dans l'ongelt format ta une propriété "bouton fermer" a mettre a non

[pev15]

LA j'ai pas de solution par contre. désolé

[pev15]

Si tu colle le code de pev15 dans un module et que tu appel la fonction disableX au chargement de ton formulaire ca fonctionne.

Sinon pour faire simple dans les propriété de ton formulaire dans l'ongelt format ta une propriété "bouton fermer" a mettre a non

Lusito veut bloquer la fermeture d'access, et non du formulaire.

[azertix]

Pour empêcher le Alt+F4, utilise l'évènement KeyPress et le code Ascii des touches

[Luisito31]

C'est bon pas grave j'ai en effet contourner mon probleme ^^ merci pour tout

[Domi2]

Bonjour,

Il y a toujours un probleme en effet ! On peut toujours quitter en faisant fichier -> quitter ....

Comment éviter cela ?

En affichant une barre de menus personnalisée pour ton application.

Voir l'aide

Domi2

[azertix]

Tu as testé comme je t'ai dit ?

[Luisito31]

En gros je voulais pas qu'ils quitent sans passer par mon bouton sinon l'enregistrement meme vide s'affichait dans la bdd...

J'ai donc bidouillé un peu et la j'ai plus ce probleme merci quand meme

[sunbeam]

Lusito veut bloquer la fermeture d'access, et non du formulaire.

Désolé j'ai lu en diagonale

sinon pour verrouiller le quitter via le menu y a ca

Code :

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

1
2
3
4
 
Dim cbar As CommandBar
Set cbar = Application.CommandBars("file")
cbar.Controls(33).Enabled = False

[Arola78]

Bonjour,
Si tu ne veux pas que l'utilisateur accède à d'autres boutons que ceux définis dans ton formulaire, passes le en Plein Ecran.
http://access.developpez.com/sources...rms#PleinEcran