le shift peut être désactiver, le bouton shift qui permet d'ouvrir la base en mode conception
Public Sub DésactiverMaj(ETAT As Boolean)
Dim blnAutoriserMaj As Boolean
' Si blnAutoriserMaj vaut False, la touche [Maj] sera désactivée.
' Si blnAutoriserMaj vaut True, la touche [Maj] sera activée.
blnAutoriserMaj = ETAT
ModifiePropr "AllowBypassKey", dbBoolean, blnAutoriserMaj
If blnAutoriserMaj Then
MsgBox "La touche [Maj] est activée. Fermez la base et réouvrez-la pour tester."
Else
MsgBox "La touche [Maj] est désactivée. Fermez la base et réouvrez-la pour tester."
End If
End Sub
Function ModifiePropr(chNomPropriété As String, varTypeProp As Variant, _
varValeurProp As Variant) As Integer
Dim bds As DAO.Database, prp As DAO.Property
Const conErreurPropNonTrouvée = 3270
Set bds = CurrentDb
On Error GoTo Change_Err
bds.Properties(chNomPropriété) = varValeurProp
ModifiePropr = True
Change_Sortie:
Exit Function
Change_Err:
If Err = conErreurPropNonTrouvée Then ' Propriété non trouvée.
Set prp = bds.CreateProperty(chNomPropriété, varTypeProp, varValeurProp)
bds.Properties.Append prp
Resume Next
Else
' Erreur inconnue.
ModifiePropr = False
Resume Change_Sortie
End If
End Function