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

Article mis en ligne le 5 décembre 2006

dernière modification le 12 décembre 2006

par 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

Access 97 | Compatible |

Access 2003

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