Rebonjour à tous,
Je viens d'éplucher tous les liens que vous m'avez envoyé mais je n'ai pas réussi à faire ce que je voulais.
Premièrement, il faut savoir que le volet de navigation est caché par défaut. Ce que je veux faire, par le biais d'un inputbox, c'est d'autoriser l'affichage du volet de navigation lorsque que la chaîne de caractères entrée est la bonne (une sorte de mot de passe).
Je suis conscient que j'ai oublié de le mentionner, mais je travaille sous access 2003 au bureau. Nous allons passer à access 2010 au courant du printemps prochain (enfin!). Cela implique donc qu'il n'y a pas de ruban non plus et que je n'ai pas besoin de le cacher.
Quant à la touche MAJ, je crois que ce n'est pas assez efficace pour assurer l'étanchéité de ma BD.
Je suis capable de modifier la propriété de démarrage de ma BD à l'aide du code suivant:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Private Sub Image_ModeModification_Click()
Dim BDD As DAO.Database
Set BDD = CurrentDb
Password = InputBox("Entrer le mot de passe pour accéder au mode modification")
If Password = "administrateur" Then
BDD.Properties("StartUpShowDBWindow") = True
Else: MsgBox ("Mot de passe erroné")
End If
End Sub |
Je suis en train de penser que je devrais continuer avec ce code, mais redémarrer la base de données ensuite. Finalement, lors de la fermeture de la base, désactiver l'ouverture du volet de navigation par
BDD.Properties("StartUpShowDBWindow") = False
Autrement, avez-vous autre chose à me proposer?
Merci à tous pour votre contribution et joyeuses fêtes!
Partager