Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access application access 2000

application access 2000

11 réponses
Avatar
lou
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un formulaire

merci de votre aide
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Logipro
Bonjour Lou,

Voici la sollution :
http://www.mentalis.org/apilist/142D5FF627FD8EAEC36D2B985455BEAE.html

Salutation

Robert Simard
Logipro


"lou" a écrit dans le message de news:
4224c844$0$20674$
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un formulaire

merci de votre aide




Avatar
lou
bonjour robert
merci pour le code

aparament ça ne marche pas ou je m'y prends mal

je veux desactiver non pas la reduction n'y la fermeture de l'application
mais bien celui du milieu (le carré)

faut-il modifier quelque chose?
si oui quoi?
je ne suis pas tres expert en vb
merci
code a modifier !!!!!!!!!!!!
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long,
ByVal bRevert 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 Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)

If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE '
Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub




"Logipro" a écrit dans le message de news:

Bonjour Lou,

Voici la sollution :
http://www.mentalis.org/apilist/142D5FF627FD8EAEC36D2B985455BEAE.html

Salutation

Robert Simard
Logipro


"lou" a écrit dans le message de news:
4224c844$0$20674$
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un formulaire

merci de votre aide








Avatar
Codial
Bonjour,

Dans le code fourni par logipro il faut mofier comme suit:

'//----------------------------------------------------------------------------------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement
'---------------------------------------------------------------------------------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir
'-----------------------------------------------------------------------------------------

DrawMenuBar Application.hWndAccessApp


Codial





"lou" a écrit dans le message de news:
42256714$0$28074$
bonjour robert
merci pour le code

aparament ça ne marche pas ou je m'y prends mal

je veux desactiver non pas la reduction n'y la fermeture de l'application
mais bien celui du milieu (le carré)

faut-il modifier quelque chose?
si oui quoi?
je ne suis pas tres expert en vb
merci
code a modifier !!!!!!!!!!!!
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long,
ByVal bRevert 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 Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long,
ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)

If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE '
Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub




"Logipro" a écrit dans le message de news:

Bonjour Lou,

Voici la sollution :
http://www.mentalis.org/apilist/142D5FF627FD8EAEC36D2B985455BEAE.html

Salutation

Robert Simard
Logipro


"lou" a écrit dans le message de news:
4224c844$0$20674$
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un formulaire

merci de votre aide












Avatar
lou
merci de ton aide

décidement je suis vraiment nul mais je n'arrive toujours pas au résultat
escompté

pouvez vous me donner le code complet corrigé
je sais j'exagere
toutes mes excuses

lou

"Codial" a écrit dans le message de news:
O6goi#
Bonjour,

Dans le code fourni par logipro il faut mofier comme suit:


'//-------------------------------------------------------------------------

---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement

'---------------------------------------------------------------------------

------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir

'---------------------------------------------------------------------------

--------------

DrawMenuBar Application.hWndAccessApp


Codial





"lou" a écrit dans le message de news:
42256714$0$28074$
bonjour robert
merci pour le code

aparament ça ne marche pas ou je m'y prends mal

je veux desactiver non pas la reduction n'y la fermeture de
l'application


mais bien celui du milieu (le carré)

faut-il modifier quelque chose?
si oui quoi?
je ne suis pas tres expert en vb
merci
code a modifier !!!!!!!!!!!!
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long,
ByVal bRevert 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 Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long,
ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)

If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE '
Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub




"Logipro" a écrit dans le message de
news:



Bonjour Lou,

Voici la sollution :
http://www.mentalis.org/apilist/142D5FF627FD8EAEC36D2B985455BEAE.html

Salutation

Robert Simard
Logipro


"lou" a écrit dans le message de news:
4224c844$0$20674$
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un formulaire

merci de votre aide
















Avatar
Codial
Bonjour,
Le code complet du module.
Une fois le fenêtre Access maximalisée on ne peut plus la ramener au niveau
inférieur. Ca marche car je l'utilise souvent.
Dans la macro AutoExec mettre ExecuterCode => DisableX()
Cette fonction neutralise la croix de fermeture et la réduction de la
fenêtre.

Codial

'//============================================================ Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "user32" (ByVal Hwnd As Long,
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long)
As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As
Long

Public Const MF_BYPOSITION = &H400& '&H400&
Public Const MF_REMOVE = &H1000&

Public Function DisableX()

Dim hMenu As Long
Dim nCount As Long

hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
nCount = GetMenuItemCount(hMenu)

'//----------------------------------------------------------------------------------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement
'---------------------------------------------------------------------------------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir
'-----------------------------------------------------------------------------------------

DrawMenuBar Application.hWndAccessApp

End Function

"lou" a écrit dans le message de news:
4225a5b7$0$30169$
merci de ton aide

décidement je suis vraiment nul mais je n'arrive toujours pas au résultat
escompté

pouvez vous me donner le code complet corrigé
je sais j'exagere
toutes mes excuses

lou

"Codial" a écrit dans le message de news:
O6goi#
Bonjour,

Dans le code fourni par logipro il faut mofier comme suit:


'//-------------------------------------------------------------------------

---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement

'---------------------------------------------------------------------------

------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir

'---------------------------------------------------------------------------

--------------

DrawMenuBar Application.hWndAccessApp


Codial





"lou" a écrit dans le message de news:
42256714$0$28074$
bonjour robert
merci pour le code

aparament ça ne marche pas ou je m'y prends mal

je veux desactiver non pas la reduction n'y la fermeture de
l'application


mais bien celui du milieu (le carré)

faut-il modifier quelque chose?
si oui quoi?
je ne suis pas tres expert en vb
merci
code a modifier !!!!!!!!!!!!
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As
Long,
ByVal bRevert 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 Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long,
ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)

If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE '
Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub




"Logipro" a écrit dans le message de
news:



Bonjour Lou,

Voici la sollution :
http://www.mentalis.org/apilist/142D5FF627FD8EAEC36D2B985455BEAE.html

Salutation

Robert Simard
Logipro


"lou" a écrit dans le message de news:
4224c844$0$20674$
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un formulaire

merci de votre aide




















Avatar
lou
re bonjour
merci pour le code

petit probleme encore

la croix se desactive bien
mais pas le carré !!!!!
il faut absolument que je puisse le desactiver
che passa ??????????????????

merci pour l aide

"Codial" a écrit dans le message de news:

Bonjour,
Le code complet du module.
Une fois le fenêtre Access maximalisée on ne peut plus la ramener au
niveau

inférieur. Ca marche car je l'utilise souvent.
Dans la macro AutoExec mettre ExecuterCode => DisableX()
Cette fonction neutralise la croix de fermeture et la réduction de la
fenêtre.

Codial

'//============================================================ > Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "user32" (ByVal Hwnd As Long,
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long,
ByVal

nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As
Long)

As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As
Long

Public Const MF_BYPOSITION = &H400& '&H400&
Public Const MF_REMOVE = &H1000&

Public Function DisableX()

Dim hMenu As Long
Dim nCount As Long

hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
nCount = GetMenuItemCount(hMenu)


'//-------------------------------------------------------------------------

---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement

'---------------------------------------------------------------------------

------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir

'---------------------------------------------------------------------------

--------------

DrawMenuBar Application.hWndAccessApp

End Function

"lou" a écrit dans le message de news:
4225a5b7$0$30169$
merci de ton aide

décidement je suis vraiment nul mais je n'arrive toujours pas au
résultat


escompté

pouvez vous me donner le code complet corrigé
je sais j'exagere
toutes mes excuses

lou

"Codial" a écrit dans le message de news:
O6goi#
Bonjour,

Dans le code fourni par logipro il faut mofier comme suit:




'//-------------------------------------------------------------------------


---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement



'---------------------------------------------------------------------------


------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir



'---------------------------------------------------------------------------


--------------

DrawMenuBar Application.hWndAccessApp


Codial





"lou" a écrit dans le message de news:
42256714$0$28074$
bonjour robert
merci pour le code

aparament ça ne marche pas ou je m'y prends mal

je veux desactiver non pas la reduction n'y la fermeture de
l'application


mais bien celui du milieu (le carré)

faut-il modifier quelque chose?
si oui quoi?
je ne suis pas tres expert en vb
merci
code a modifier !!!!!!!!!!!!
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As
Long,
ByVal bRevert 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 Declare Function RemoveMenu Lib "user32" (ByVal hMenu As
Long,




ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)

If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
'




Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub




"Logipro" a écrit dans le message de
news:



Bonjour Lou,

Voici la sollution :

http://www.mentalis.org/apilist/142D5FF627FD8EAEC36D2B985455BEAE.html






Salutation

Robert Simard
Logipro


"lou" a écrit dans le message de news:
4224c844$0$20674$
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un formulaire

merci de votre aide
























Avatar
plumker
En utilisant les propriétés du formulaires, tu peux supprimer les 3 icones
"réduction","agrandissement" et "fermeture".
Ensuite dans ton formulaire, tu créer un bouton avec le "bitmap" (STOP),
cela te fais directement quitter l'appli...c'est peut-être une solution

"lou" wrote:

bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un formulaire

merci de votre aide





Avatar
Codial
Bonjour,
je ne comprends pas! C'était les deux petits carrés qu'il fallait
désactiver, c'est à dire rende impossible de réduire au un niveau inférieur.
Et ça marche, non?

Je t'envoie un autre module.
Avec celui çi tu sélectiones en fonction de tes besoins par exemple:

Function test() '// A mettre dans un module test
MenuAccessInactif (6) 'Interdit la fermeture
MenuAccessInactif (4) 'Interdit l'agrandissement

etc.....

End Function



'//=============================================== Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long

Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long

Global Const MF_BYPOSITION = &H400
Global Const MF_REMOVE = &H1000

Public Function MenuAccessInactif(Optional MenuItem)
'** MenuItem
'** 6 : Fermer
'** 5 : Barre de séparation
'** 4 : Agrandir
'** 3 : Reduire
'** 2 : Taille
'** 1 : Déplacer
'** 0 : Restaurer
'On Error Resume Next
Dim hMenu As Long
Dim menuItemCount As Long
Dim i As Integer
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
If hMenu Then
menuItemCount = GetMenuItemCount(hMenu)
If IsMissing(MenuItem) = True Then
For i = menuItemCount - 1 To 0 Step -1
Call RemoveMenu(hMenu, i, MF_REMOVE Or MF_BYPOSITION)
Next
Else
Call RemoveMenu(hMenu, MenuItem, MF_REMOVE Or MF_BYPOSITION)
End If
Call DrawMenuBar(Application.hWndAccessApp)
End If
End Function
'//=================================================================== Codial


"lou" a écrit dans le message de news:
4225ca81$0$30177$
re bonjour
merci pour le code

petit probleme encore

la croix se desactive bien
mais pas le carré !!!!!
il faut absolument que je puisse le desactiver
che passa ??????????????????

merci pour l aide

"Codial" a écrit dans le message de news:

Bonjour,
Le code complet du module.
Une fois le fenêtre Access maximalisée on ne peut plus la ramener au
niveau

inférieur. Ca marche car je l'utilise souvent.
Dans la macro AutoExec mettre ExecuterCode => DisableX()
Cette fonction neutralise la croix de fermeture et la réduction de la
fenêtre.

Codial

'//============================================================ >> Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "user32" (ByVal Hwnd As Long,
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long,
ByVal

nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As
Long)

As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As
Long

Public Const MF_BYPOSITION = &H400& '&H400&
Public Const MF_REMOVE = &H1000&

Public Function DisableX()

Dim hMenu As Long
Dim nCount As Long

hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
nCount = GetMenuItemCount(hMenu)


'//-------------------------------------------------------------------------

---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement

'---------------------------------------------------------------------------

------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir

'---------------------------------------------------------------------------

--------------

DrawMenuBar Application.hWndAccessApp

End Function

"lou" a écrit dans le message de news:
4225a5b7$0$30169$
merci de ton aide

décidement je suis vraiment nul mais je n'arrive toujours pas au
résultat


escompté

pouvez vous me donner le code complet corrigé
je sais j'exagere
toutes mes excuses

lou

"Codial" a écrit dans le message de news:
O6goi#
Bonjour,

Dans le code fourni par logipro il faut mofier comme suit:




'//-------------------------------------------------------------------------


---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement



'---------------------------------------------------------------------------


------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir



'---------------------------------------------------------------------------


--------------

DrawMenuBar Application.hWndAccessApp


Codial





"lou" a écrit dans le message de news:
42256714$0$28074$
bonjour robert
merci pour le code

aparament ça ne marche pas ou je m'y prends mal

je veux desactiver non pas la reduction n'y la fermeture de
l'application


mais bien celui du milieu (le carré)

faut-il modifier quelque chose?
si oui quoi?
je ne suis pas tres expert en vb
merci
code a modifier !!!!!!!!!!!!
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As
Long,
ByVal bRevert 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 Declare Function RemoveMenu Lib "user32" (ByVal hMenu As
Long,




ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)

If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
'




Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub




"Logipro" a écrit dans le message de
news:



Bonjour Lou,

Voici la sollution :

http://www.mentalis.org/apilist/142D5FF627FD8EAEC36D2B985455BEAE.html






Salutation

Robert Simard
Logipro


"lou" a écrit dans le message de news:
4224c844$0$20674$
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un formulaire

merci de votre aide




























Avatar
lou
re
oui c'est bien ça
les deux petits carrés qu'il faut
désactiver, c'est à dire rende impossible de réduire au un niveau
inférieur.


decidement ça ne marche toujours pas
je ne comprent pas ou est le probleme
ça marche chez toi????

tu ne sais pas envoyer une bd avec un form
comme exemple

ENCORE MERCI DE TON AIDE

"Codial" a écrit dans le message de news:

Bonjour,
je ne comprends pas! C'était les deux petits carrés qu'il fallait
désactiver, c'est à dire rende impossible de réduire au un niveau
inférieur.

Et ça marche, non?

Je t'envoie un autre module.
Avec celui çi tu sélectiones en fonction de tes besoins par exemple:

Function test() '// A mettre dans un module test
MenuAccessInactif (6) 'Interdit la fermeture
MenuAccessInactif (4) 'Interdit l'agrandissement

etc.....

End Function



'//=============================================== > Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long

Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long

Global Const MF_BYPOSITION = &H400
Global Const MF_REMOVE = &H1000

Public Function MenuAccessInactif(Optional MenuItem)
'** MenuItem
'** 6 : Fermer
'** 5 : Barre de séparation
'** 4 : Agrandir
'** 3 : Reduire
'** 2 : Taille
'** 1 : Déplacer
'** 0 : Restaurer
'On Error Resume Next
Dim hMenu As Long
Dim menuItemCount As Long
Dim i As Integer
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
If hMenu Then
menuItemCount = GetMenuItemCount(hMenu)
If IsMissing(MenuItem) = True Then
For i = menuItemCount - 1 To 0 Step -1
Call RemoveMenu(hMenu, i, MF_REMOVE Or MF_BYPOSITION)
Next
Else
Call RemoveMenu(hMenu, MenuItem, MF_REMOVE Or MF_BYPOSITION)
End If
Call DrawMenuBar(Application.hWndAccessApp)
End If
End Function
'//=================================================================== > Codial


"lou" a écrit dans le message de news:
4225ca81$0$30177$
re bonjour
merci pour le code

petit probleme encore

la croix se desactive bien
mais pas le carré !!!!!
il faut absolument que je puisse le desactiver
che passa ??????????????????

merci pour l aide

"Codial" a écrit dans le message de news:

Bonjour,
Le code complet du module.
Une fois le fenêtre Access maximalisée on ne peut plus la ramener au
niveau

inférieur. Ca marche car je l'utilise souvent.
Dans la macro AutoExec mettre ExecuterCode => DisableX()
Cette fonction neutralise la croix de fermeture et la réduction de la
fenêtre.

Codial

'//============================================================ > >> Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "user32" (ByVal Hwnd As Long,
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long,
ByVal

nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As
Long)

As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long)
As



Long

Public Const MF_BYPOSITION = &H400& '&H400&
Public Const MF_REMOVE = &H1000&

Public Function DisableX()

Dim hMenu As Long
Dim nCount As Long

hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
nCount = GetMenuItemCount(hMenu)




'//-------------------------------------------------------------------------


---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement



'---------------------------------------------------------------------------


------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir



'---------------------------------------------------------------------------


--------------

DrawMenuBar Application.hWndAccessApp

End Function

"lou" a écrit dans le message de news:
4225a5b7$0$30169$
merci de ton aide

décidement je suis vraiment nul mais je n'arrive toujours pas au
résultat


escompté

pouvez vous me donner le code complet corrigé
je sais j'exagere
toutes mes excuses

lou

"Codial" a écrit dans le message de news:
O6goi#
Bonjour,

Dans le code fourni par logipro il faut mofier comme suit:







'//-------------------------------------------------------------------------


---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement






'---------------------------------------------------------------------------


------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir






'---------------------------------------------------------------------------


--------------

DrawMenuBar Application.hWndAccessApp


Codial





"lou" a écrit dans le message de news:
42256714$0$28074$
bonjour robert
merci pour le code

aparament ça ne marche pas ou je m'y prends mal

je veux desactiver non pas la reduction n'y la fermeture de
l'application


mais bien celui du milieu (le carré)

faut-il modifier quelque chose?
si oui quoi?
je ne suis pas tres expert en vb
merci
code a modifier !!!!!!!!!!!!
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As
Long,
ByVal bRevert 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 Declare Function RemoveMenu Lib "user32" (ByVal hMenu As
Long,




ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)

If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or
MF_REMOVE






RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or
MF_REMOVE






'
Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub




"Logipro" a écrit dans le message
de






news:

Bonjour Lou,

Voici la sollution :

http://www.mentalis.org/apilist/142D5FF627FD8EAEC36D2B985455BEAE.html






Salutation

Robert Simard
Logipro


"lou" a écrit dans le message de news:
4224c844$0$20674$
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un
formulaire









merci de votre aide
































Avatar
Codial
Bonjour,

oui ça marche chez moi, je l'utilise souvent

Codial

"lou" a écrit dans le message de news:
4225db49$0$20677$
re
oui c'est bien ça
les deux petits carrés qu'il faut
désactiver, c'est à dire rende impossible de réduire au un niveau
inférieur.


decidement ça ne marche toujours pas
je ne comprent pas ou est le probleme
ça marche chez toi????

tu ne sais pas envoyer une bd avec un form
comme exemple

ENCORE MERCI DE TON AIDE

"Codial" a écrit dans le message de news:

Bonjour,
je ne comprends pas! C'était les deux petits carrés qu'il fallait
désactiver, c'est à dire rende impossible de réduire au un niveau
inférieur.

Et ça marche, non?

Je t'envoie un autre module.
Avec celui çi tu sélectiones en fonction de tes besoins par exemple:

Function test() '// A mettre dans un module test
MenuAccessInactif (6) 'Interdit la fermeture
MenuAccessInactif (4) 'Interdit l'agrandissement

etc.....

End Function



'//=============================================== >> Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long

Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long

Global Const MF_BYPOSITION = &H400
Global Const MF_REMOVE = &H1000

Public Function MenuAccessInactif(Optional MenuItem)
'** MenuItem
'** 6 : Fermer
'** 5 : Barre de séparation
'** 4 : Agrandir
'** 3 : Reduire
'** 2 : Taille
'** 1 : Déplacer
'** 0 : Restaurer
'On Error Resume Next
Dim hMenu As Long
Dim menuItemCount As Long
Dim i As Integer
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
If hMenu Then
menuItemCount = GetMenuItemCount(hMenu)
If IsMissing(MenuItem) = True Then
For i = menuItemCount - 1 To 0 Step -1
Call RemoveMenu(hMenu, i, MF_REMOVE Or MF_BYPOSITION)
Next
Else
Call RemoveMenu(hMenu, MenuItem, MF_REMOVE Or MF_BYPOSITION)
End If
Call DrawMenuBar(Application.hWndAccessApp)
End If
End Function
'//=================================================================== >> Codial


"lou" a écrit dans le message de news:
4225ca81$0$30177$
re bonjour
merci pour le code

petit probleme encore

la croix se desactive bien
mais pas le carré !!!!!
il faut absolument que je puisse le desactiver
che passa ??????????????????

merci pour l aide

"Codial" a écrit dans le message de news:

Bonjour,
Le code complet du module.
Une fois le fenêtre Access maximalisée on ne peut plus la ramener au
niveau

inférieur. Ca marche car je l'utilise souvent.
Dans la macro AutoExec mettre ExecuterCode => DisableX()
Cette fonction neutralise la croix de fermeture et la réduction de la
fenêtre.

Codial

'//============================================================ >> >> Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "user32" (ByVal Hwnd As
Long,
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long,
ByVal

nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As
Long)

As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long)
As



Long

Public Const MF_BYPOSITION = &H400& '&H400&
Public Const MF_REMOVE = &H1000&

Public Function DisableX()

Dim hMenu As Long
Dim nCount As Long

hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
nCount = GetMenuItemCount(hMenu)




'//-------------------------------------------------------------------------


---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement



'---------------------------------------------------------------------------


------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir



'---------------------------------------------------------------------------


--------------

DrawMenuBar Application.hWndAccessApp

End Function

"lou" a écrit dans le message de news:
4225a5b7$0$30169$
merci de ton aide

décidement je suis vraiment nul mais je n'arrive toujours pas au
résultat


escompté

pouvez vous me donner le code complet corrigé
je sais j'exagere
toutes mes excuses

lou

"Codial" a écrit dans le message de news:
O6goi#
Bonjour,

Dans le code fourni par logipro il faut mofier comme suit:







'//-------------------------------------------------------------------------


---------
'// Configuration normale de la fenêtre windows
'// Interdit l'action minimum et fermer
'// Autorise le l'agrandissement






'---------------------------------------------------------------------------


------------
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
'neutralise la croix
Call RemoveMenu(hMenu, nCount - 7, MF_REMOVE Or MF_BYPOSITION)
'désactive le carré agrandir






'---------------------------------------------------------------------------


--------------

DrawMenuBar Application.hWndAccessApp


Codial





"lou" a écrit dans le message de news:
42256714$0$28074$
bonjour robert
merci pour le code

aparament ça ne marche pas ou je m'y prends mal

je veux desactiver non pas la reduction n'y la fermeture de
l'application


mais bien celui du milieu (le carré)

faut-il modifier quelque chose?
si oui quoi?
je ne suis pas tres expert en vb
merci
code a modifier !!!!!!!!!!!!
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd
As
Long,
ByVal bRevert 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 Declare Function RemoveMenu Lib "user32" (ByVal hMenu As
Long,




ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)

If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or
MF_REMOVE






RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or
MF_REMOVE






'
Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub




"Logipro" a écrit dans le message
de






news:

Bonjour Lou,

Voici la sollution :

http://www.mentalis.org/apilist/142D5FF627FD8EAEC36D2B985455BEAE.html






Salutation

Robert Simard
Logipro


"lou" a écrit dans le message de news:
4224c844$0$20674$
bonjour

dans la fenetre de mon application access
il y a au dessus a droite un petit carre avec un -
un autre au milieu avec 2 petits carres et a droite la croix

je voudrais desactiver la case du milieu avec les 2 carres
comment proceder

ps : je dis bien fenetre de l application et non d'un
formulaire









merci de votre aide




































1 2