Mode création... mode présentation...

D 5 décembre 2006 H 19:20 A Patrice MOREL

Marre du raccourci de la touche Shift enfoncé pour ouvrir mon appli avec la fenêtre de base et les barres de menus...

Access 97 | Compatible |
Access 2003 | Compatible |

Utilisé dans ma Médiathèque et Cantor (VFE).

Une table (T_Admin) avec un champ texte ModeAffichage

Un formulaire (F_Admin) avec comme source la table T_Admin comportant 2 boutons et un contrôle :

BtnMaintenance_Access : « Rétablir les fonctions Access pour travailler sur la base »
BtnMaintenace_Mediatheque : « Rétablir les fonctions visiteur »

Contrôle :
— nom : CtrlBtnDemmarage
— source : ModeAffichage
— visible : non

Et un module :
ModAdminDemarrage par exemple... Public Sub SetPropertyString(PropertyName As String, PropertyValue As String) On Error Resume Next Dim Db As DAO.Database Dim prp As DAO.Property Set Db = CurrentDb() Db.Properties(PropertyName) = PropertyValue If Err.Number = 3270 Then Set prp = Db.CreateProperty(PropertyName, dbText, PropertyValue) Db.Properties.Append prp End If End Sub Public Sub SetPropertyBoolean(PropertyName As String, PropertyValue As Boolean) On Error Resume Next Dim Db As DAO.Database Dim prp As DAO.Property Set Db = CurrentDb() Db.Properties(PropertyName) = PropertyValue If Err.Number = 3270 Then Set prp = Db.CreateProperty(PropertyName, dbBoolean, PropertyValue) Db.Properties.Append prp End If End Sub

BtnMaintenance_Access
Sur l’évènement Sur clic :

Private Sub BtnMaintenance_Access_Click()
'Affichage ou non des propriétés de démarrage de la base (fonctionne avec le module ModAdminDemarrage) :
    'SetPropertyString "apptitle", "Mon titre" 'Met un titre à l'application
    'SetPropertyString "StartUpForm", "Formulaire1" 'Indique le formulaire à afficher au démarrage
    'SetPropertyString "AppIcon", "d:\apercu.ico" 'Indique le chemin de l'icone de l'application
    'SetPropertyBoolean "AllowByPassKey", True 'Concerne le mot de passe (par système access) d'ouverture de la base
    SetPropertyBoolean "StartUpShowDBWindow", True 'Affiche ou non la fenêtre de base de données
    SetPropertyBoolean "StartUpShowStatusBar", True 'Affiche ou non la barre de statut
    SetPropertyBoolean "AllowShortcutMenus", True 'Affiche ou non la barre de menus
    SetPropertyBoolean "AllowFullMenus", True 'Affiche ou non toutes les barres de menus
    SetPropertyBoolean "AllowBuiltInToolbars", True 'Affiche ou non la barre de d'outils
    SetPropertyBoolean "AllowToolbarChanges", True 'Permet ou non la modification des barres de menus
    SetPropertyBoolean "AllowSpecialKeys", True 'Utilise ou non les touches spéciales d'acces

CtrlBtnDemmarage = "ModeAdmin"
'DoCmd.Close acForm, "F_Cine"
MsgBox "La base données va se fermer afin de prendre en compte les changements.", vbInformation, "Avertissement"
DoCmd.Quit

End Sub

BtnMaintenace_Mediatheque
Sur l’évènement Sur clic :

Private Sub BtnMaintenace_Mediatheque_Click()
'Affichage ou non des propriétés de démarrage de la base (fonctionne avec le module ModAdminDemarrage) :
    'SetPropertyString "apptitle", "Mon titre" 'Met un titre à l'application
    'SetPropertyString "StartUpForm", "Formulaire1" 'Indique le formulaire à afficher au démarrage
    'SetPropertyString "AppIcon", "d:\apercu.ico" 'Indique le chemin de l'icone de l'application
    'SetPropertyBoolean "AllowByPassKey", True 'Concerne le mot de passe (par système access) d'ouverture de la base
    SetPropertyBoolean "StartUpShowDBWindow", False 'Affiche ou non la fenêtre de base de données
    SetPropertyBoolean "StartUpShowStatusBar", False 'Affiche ou non la barre de statut
    SetPropertyBoolean "AllowShortcutMenus", False 'Affiche ou non la barre de menus
    SetPropertyBoolean "AllowFullMenus", False 'Affiche ou non toutes les barres de menus
    SetPropertyBoolean "AllowBuiltInToolbars", False 'Affiche ou non la barre de d'outils
    SetPropertyBoolean "AllowToolbarChanges", False 'Permet ou non la modification des barres de menus
    SetPropertyBoolean "AllowSpecialKeys", False 'Utilise ou non les touches spéciales d'acces

CtrlBtnDemmarage = "ModeAdmin"
'DoCmd.Close acForm, "F_Cine"
MsgBox "La base données va se fermer afin de prendre en compte les changements.", vbInformation, "Avertissement"
DoCmd.Quit

End Sub

Formulaire F_Admin
Sur l’évènement Sur activation :

Private Sub Form_Current()

If CtrlBtnDemmarage = "ModeAdmin" Then
 BtnMaintenance_Access.Enabled = False
 BtnMaintenace_Mediatheque.Enabled = True
ElseIf CtrlBtnDemmarage = "ModeVisiteur" Then
 BtnMaintenance_Access.Enabled = True
 BtnMaintenace_Mediatheque.Enabled = False
End If

End Sub

Dans la même rubrique

18 février 2010 – Liste déroulante

26 janvier 2010 – Requête croisée

5 mars 2008 – Evènement sur Onglet

7 février 2008 – Astuces et pièges VBA

8 décembre 2007 – Envoi de mails

Rechercher

Traducteur

Mode création... mode présentation...

Dans la même rubrique

Rechercher

Traducteur

Les plus lus

5 articles au hasard

Les plus populaires