Salut, encore merci Mr Raymond pour "Disablex", mais aussi je veux active
quand j'ai modifier, par ex :
*** POUR DESACTIVE ***
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
