' Remove the system menu Fermeture,Agrandissement,Réduction,Dimension,Déplacement ' separator line, Restauration '-- For i = 1 To menuItemCount Call RemoveMenu(hMenu, menuItemCount - i, MF_REMOVE Or MF_BYPOSITION) Next
'Force à redessinez le menu. Cela rafraîchit le titlebar, en bloquant le X Call DrawMenuBar(Application.hWndAccessApp)
End If
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
Salut Guy du Lac,
Voici ce que j'ai dans un BD sous Access 2000 et cela fonctionne bien.
' Remove the system menu
Fermeture,Agrandissement,Réduction,Dimension,Déplacement
' separator line, Restauration
'--
For i = 1 To menuItemCount
Call RemoveMenu(hMenu, menuItemCount - i, MF_REMOVE Or
MF_BYPOSITION)
Next
'Force à redessinez le menu. Cela rafraîchit le titlebar, en bloquant
le X
Call DrawMenuBar(Application.hWndAccessApp)
End If
End Sub
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31
' Remove the system menu Fermeture,Agrandissement,Réduction,Dimension,Déplacement ' separator line, Restauration '-- For i = 1 To menuItemCount Call RemoveMenu(hMenu, menuItemCount - i, MF_REMOVE Or MF_BYPOSITION) Next
'Force à redessinez le menu. Cela rafraîchit le titlebar, en bloquant le X Call DrawMenuBar(Application.hWndAccessApp)
End If
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
Guy du Lac
Salut Bernard,
J'ai essayé ton code sans plus de succès. Je pense que le problème est lié à Access2007.
J'aimerais savoir si quelqu'un a essayé le code de Raymond dans une base 2007 -- Merci, Guy du Lac
Salut Guy du Lac,
Voici ce que j'ai dans un BD sous Access 2000 et cela fonctionne bien.
' Remove the system menu Fermeture,Agrandissement,Réduction,Dimension,Déplacement ' separator line, Restauration '-- For i = 1 To menuItemCount Call RemoveMenu(hMenu, menuItemCount - i, MF_REMOVE Or MF_BYPOSITION) Next
'Force à redessinez le menu. Cela rafraîchit le titlebar, en bloquant le X Call DrawMenuBar(Application.hWndAccessApp)
End If
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
Salut Bernard,
J'ai essayé ton code sans plus de succès. Je pense que le problème est lié à
Access2007.
J'aimerais savoir si quelqu'un a essayé le code de Raymond dans une base 2007
--
Merci,
Guy du Lac
Salut Guy du Lac,
Voici ce que j'ai dans un BD sous Access 2000 et cela fonctionne bien.
' Remove the system menu
Fermeture,Agrandissement,Réduction,Dimension,Déplacement
' separator line, Restauration
'--
For i = 1 To menuItemCount
Call RemoveMenu(hMenu, menuItemCount - i, MF_REMOVE Or
MF_BYPOSITION)
Next
'Force à redessinez le menu. Cela rafraîchit le titlebar, en bloquant
le X
Call DrawMenuBar(Application.hWndAccessApp)
End If
End Sub
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31
' Remove the system menu Fermeture,Agrandissement,Réduction,Dimension,Déplacement ' separator line, Restauration '-- For i = 1 To menuItemCount Call RemoveMenu(hMenu, menuItemCount - i, MF_REMOVE Or MF_BYPOSITION) Next
'Force à redessinez le menu. Cela rafraîchit le titlebar, en bloquant le X Call DrawMenuBar(Application.hWndAccessApp)
End If
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
Guy du Lac
Désolé, voici le lien pour voir le code que j'ai copié dans ma bd. http://officesystem.access.free.fr/apidisablex.htm -- Merci, Guy du Lac
Salut Bernard,
J'ai essayé ton code sans plus de succès. Je pense que le problème est lié à Access2007.
J'aimerais savoir si quelqu'un a essayé le code de Raymond dans une base 2007 -- Merci, Guy du Lac
Salut Guy du Lac,
Voici ce que j'ai dans un BD sous Access 2000 et cela fonctionne bien.
' Remove the system menu Fermeture,Agrandissement,Réduction,Dimension,Déplacement ' separator line, Restauration '-- For i = 1 To menuItemCount Call RemoveMenu(hMenu, menuItemCount - i, MF_REMOVE Or MF_BYPOSITION) Next
'Force à redessinez le menu. Cela rafraîchit le titlebar, en bloquant le X Call DrawMenuBar(Application.hWndAccessApp)
End If
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
Désolé, voici le lien pour voir le code que j'ai copié dans ma bd.
http://officesystem.access.free.fr/apidisablex.htm
--
Merci,
Guy du Lac
Salut Bernard,
J'ai essayé ton code sans plus de succès. Je pense que le problème est lié à
Access2007.
J'aimerais savoir si quelqu'un a essayé le code de Raymond dans une base 2007
--
Merci,
Guy du Lac
Salut Guy du Lac,
Voici ce que j'ai dans un BD sous Access 2000 et cela fonctionne bien.
' Remove the system menu
Fermeture,Agrandissement,Réduction,Dimension,Déplacement
' separator line, Restauration
'--
For i = 1 To menuItemCount
Call RemoveMenu(hMenu, menuItemCount - i, MF_REMOVE Or
MF_BYPOSITION)
Next
'Force à redessinez le menu. Cela rafraîchit le titlebar, en bloquant
le X
Call DrawMenuBar(Application.hWndAccessApp)
End If
End Sub
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31
' Remove the system menu Fermeture,Agrandissement,Réduction,Dimension,Déplacement ' separator line, Restauration '-- For i = 1 To menuItemCount Call RemoveMenu(hMenu, menuItemCount - i, MF_REMOVE Or MF_BYPOSITION) Next
'Force à redessinez le menu. Cela rafraîchit le titlebar, en bloquant le X Call DrawMenuBar(Application.hWndAccessApp)
End If
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31