Bonjour,
J'ai trouvé ce code dans l'aide Access, mais je n'arrive pas à le faire fonctionner.
Le but étant d'empêcher le démarrage avec la touche shift.
Merci à tous
Exemple de propriété AllowBypassKey (ToucheDirecteAutorisée)
L'exemple suivant illustre une procédure nommée SetBypassProperty qui passe le nom de la propriété à paramétrer, son type de données et le paramétrage souhaité. La procédure générale ChangeProperty tente de définir la propriété ToucheDirecteAutorisée (AllowBypassKey) et, si elle est introuvable, utilise la méthode CreateProperty pour l'ajouter à la collection Properties. Cela est nécessaire, car cette propriété n'apparaît pas dans la collection Properties aussi longtemps qu'elle n'a pas été ajoutée.
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then' Propriété non trouvée.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Erreur inconnue.
ChangeProperty = False
Resume Change_Bye
End If
End Function