[A-03]Actication/Désactivation de la touche MAJ [Résolu]

[lucienkany]

Bonjour à tous.

Pour protéger une base de données en désactivant la touche Maj à l'ouverture j'utilise ce code.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
' ---
' ACTIVATION / DESACTIVATION DE LA TOUCHE MAJ
' ---
'
Function DefinirToucheMAJ(strBaseDeDonnees As String, blnEtat As Boolean)
Dim db As DAO.Database
Dim prp As DAO.Property
Dim blnResultat As Boolean
 
Const PROPRIETE_NON_TROUVEE = 3270
 
' Ouvrir la base de données
If Dir(strBaseDeDonnees) = "" Then
    MsgBox "Base de données introuvable.", vbExclamation
    Exit Function
End If
Set db = OpenDatabase(strBaseDeDonnees) 'C'est ici qu'il y a Erreur 
 
' Définir la propriété
On Error Resume Next
db.Properties("AllowBypassKey") = blnEtat
If Err.Number = PROPRIETE_NON_TROUVEE Then
    Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, blnEtat)
    db.Properties.Append prp
End If
 
' Libérer les objets
db.Close
Set db = Nothing
End Function

Voici mon problème,

Lorsque j'essaie de protéger une base de données sur laquelle j'ai mis un mot de passe, il y a une erreur (voir la ligne sur le code)

Code :

1
2
3
4
 
Erreur d'exécution 3031
 
Mot de passe non valide

Je pense qu'il me faut récupérer le mot de passe (ou l'inscrire directement dans le code) pour que la protection s'effectue.

Quelqu'un peut m'aider sur ce coup là.

D'avance merci.

[LedZeppII]

Bonjour,

le mot de passe de la base de données se met dans l'argument connect de la méthode OpenDatabase.
Voir ici

A+