Mettre à jour les propriétés d'une base par prog

Bonjour. Comment ça va ?

Liste des propriétés:
CurrentDb.Properties("apptitle").Value = Me.Titre_Application
CurrentDb.Properties("StartUpForm").Value = Me.Form_Demarrage
CurrentDb.Properties("StartUpShowDBWindow").Value = True
CurrentDb.Properties("StartUpShowStatusBar").Value = False
CurrentDb.Properties("AllowShortcutMenus").Value = True
CurrentDb.Properties("AllowFullMenus").Value = True
CurrentDb.Properties("AllowBuiltInToolbars").Value = True
CurrentDb.Properties("AllowToolbarChanges").Value = True
CurrentDb.Properties("AllowSpecialKeys").Value = True
CurrentDb.Properties("AppIcon").Value = Me.Logo

pour les mde/mdb , regarde sur la page:
http://access.vba.free.fr/base_mde.htm
tu as un exemple de test de mde/mdb

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"codial" <DEVcodial@DEVfree.fr> a écrit dans le message de
news:Ohj1OkoOEHA.808@tk2msftngp13.phx.gbl...

Bonjour,

Volà j'ai mis ce code dans un module de démarrage:

'//====================================== > '// Mettre à jour les propriétés de la base
'//====================================== > AjouteProprApp "StartupShowDBWindow", dbBoolean, False
AjouteProprApp "StartupShowStatusBar", dbBoolean, True 'False
AjouteProprApp "AllowBuiltinToolbars", dbBoolean, False
AjouteProprApp "AllowFullMenus", dbBoolean, True
AjouteProprApp "AllowBreakIntoCode", dbBoolean, False
AjouteProprApp "AllowSpecialKeys", dbBoolean, True
AjouteProprApp "AllowBypassKey", dbBoolean, False

deux questions SVP

1 - comment annuler également en prog les menus contextuels

2 - Est il possible en prog de sélectionner
si c'est un fichier mdb désactiver telles propriétés
si c'est un fichier mde désactiver telles autres propriétés

D'avance merci

Cordialement

Codial

Bonjour Raymond,
ça va bien je te remercie pour la réponse

Cordialement

codial


"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:ubyvSgrOEHA.3944@tk2msftngp13.phx.gbl...

Bonjour. Comment ça va ?

Liste des propriétés:
CurrentDb.Properties("apptitle").Value = Me.Titre_Application
CurrentDb.Properties("StartUpForm").Value = Me.Form_Demarrage
CurrentDb.Properties("StartUpShowDBWindow").Value = True
CurrentDb.Properties("StartUpShowStatusBar").Value = False
CurrentDb.Properties("AllowShortcutMenus").Value = True
CurrentDb.Properties("AllowFullMenus").Value = True
CurrentDb.Properties("AllowBuiltInToolbars").Value = True
CurrentDb.Properties("AllowToolbarChanges").Value = True
CurrentDb.Properties("AllowSpecialKeys").Value = True
CurrentDb.Properties("AppIcon").Value = Me.Logo

pour les mde/mdb , regarde sur la page:
http://access.vba.free.fr/base_mde.htm
tu as un exemple de test de mde/mdb

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"codial" <DEVcodial@DEVfree.fr> a écrit dans le message de
news:Ohj1OkoOEHA.808@tk2msftngp13.phx.gbl...

Bonjour,

Volà j'ai mis ce code dans un module de démarrage:

'//====================================== > > '// Mettre à jour les propriétés de la base
'//====================================== > > AjouteProprApp "StartupShowDBWindow", dbBoolean, False
AjouteProprApp "StartupShowStatusBar", dbBoolean, True 'False
AjouteProprApp "AllowBuiltinToolbars", dbBoolean, False
AjouteProprApp "AllowFullMenus", dbBoolean, True
AjouteProprApp "AllowBreakIntoCode", dbBoolean, False
AjouteProprApp "AllowSpecialKeys", dbBoolean, True
AjouteProprApp "AllowBypassKey", dbBoolean, False

deux questions SVP

1 - comment annuler également en prog les menus contextuels

2 - Est il possible en prog de sélectionner
si c'est un fichier mdb désactiver telles propriétés
si c'est un fichier mde désactiver telles autres propriétés

D'avance merci

Cordialement

Codial