Option Compare Database Option Explicit Function ap_DisableShift() On Error GoTo errDisableShift Dim db As Database Dim prop As Property Const conPropNotFound = 3270 Set db = CurrentDb() db.Properties("AllowByPassKey") = False Exit Function errDisableShift: If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowByPassKey", _ dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function '============================================================ Function ap_EnableShift() On Error GoTo errEnableShift Dim db As Database Dim prop As Property Const conPropNotFound = 3270 Set db = CurrentDb() db.Properties("AllowByPassKey") = True Exit Function errEnableShift: If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowByPassKey", _ dbBoolean, True) db.Properties.Append prop Resume Next Else MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function