1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| 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)
'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 |
Partager