OVH Cloud OVH Cloud

Afficher une barre de menu en mode MDE

1 réponse
Avatar
Codial
Bonjour,

j'ai traduit en code (Access 97) les options du menu Outils/démarrage en
fonction du mode MDB ou MDE de la base.

If EstMde Then
AjouteProprApp "StartupShowDBWindow", dbBoolean, False
AjouteProprApp "StartupShowStatusBar", dbBoolean, False
AjouteProprApp "AllowBuiltinToolbars", dbBoolean, False
AjouteProprApp "AllowFullMenus", dbBoolean, False
AjouteProprApp "AllowShortcutMenus", dbBoolean, False
AjouteProprApp "AllowBreakIntoCode", dbBoolean, False
AjouteProprApp "AllowSpecialKeys", dbBoolean, False
AjouteProprApp "AllowBypassKey", dbBoolean, False
AjouteProprApp "AllowToolbarChanges", dbBoolean, False
Call DésactiverMaj
Else
AjouteProprApp "StartupShowDBWindow", dbBoolean, True
AjouteProprApp "StartupShowStatusBar", dbBoolean, True 'False
AjouteProprApp "AllowBuiltinToolbars", dbBoolean, True
AjouteProprApp "AllowFullMenus", dbBoolean, True
AjouteProprApp "AllowShortcutMenus", dbBoolean, True
AjouteProprApp "AllowBreakIntoCode", dbBoolean, True
AjouteProprApp "AllowSpecialKeys", dbBoolean, True
AjouteProprApp "AllowBypassKey", dbBoolean, True
AjouteProprApp "AllowToolbarChanges", dbBoolean, True

End If


Ce que je n'ai pas troubé c'est comment afficher par code la barre de menu
de mon application en mode MDE et celle par defaut en mode MDB.

Quelqu'un peut m'expliquer quelle est la syntaxe ?

Cordialement

Codial

1 réponse

Avatar
Codial
Bonjour,

j'ai trouvé

Application.MenuBar = "MonMenu"

Excusez, cordialement

Codial


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

Bonjour,

j'ai traduit en code (Access 97) les options du menu Outils/démarrage en
fonction du mode MDB ou MDE de la base.

If EstMde Then
AjouteProprApp "StartupShowDBWindow", dbBoolean, False
AjouteProprApp "StartupShowStatusBar", dbBoolean, False
AjouteProprApp "AllowBuiltinToolbars", dbBoolean, False
AjouteProprApp "AllowFullMenus", dbBoolean, False
AjouteProprApp "AllowShortcutMenus", dbBoolean, False
AjouteProprApp "AllowBreakIntoCode", dbBoolean, False
AjouteProprApp "AllowSpecialKeys", dbBoolean, False
AjouteProprApp "AllowBypassKey", dbBoolean, False
AjouteProprApp "AllowToolbarChanges", dbBoolean, False
Call DésactiverMaj
Else
AjouteProprApp "StartupShowDBWindow", dbBoolean, True
AjouteProprApp "StartupShowStatusBar", dbBoolean, True 'False
AjouteProprApp "AllowBuiltinToolbars", dbBoolean, True
AjouteProprApp "AllowFullMenus", dbBoolean, True
AjouteProprApp "AllowShortcutMenus", dbBoolean, True
AjouteProprApp "AllowBreakIntoCode", dbBoolean, True
AjouteProprApp "AllowSpecialKeys", dbBoolean, True
AjouteProprApp "AllowBypassKey", dbBoolean, True
AjouteProprApp "AllowToolbarChanges", dbBoolean, True

End If


Ce que je n'ai pas troubé c'est comment afficher par code la barre de menu
de mon application en mode MDE et celle par defaut en mode MDB.

Quelqu'un peut m'expliquer quelle est la syntaxe ?

Cordialement

Codial