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



    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)