bypass shift key

 

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

Be carefull, there are some problems, your database can become unusable. 

I think this code lacks the password form, which will make it possible to disable the setbypassproperty or enabling it. Search internet for the answer for it.

Change_Bye:

Exit Function

Change_Err:

If Err = conPropNotFoundError Then ' Property not found.

Set prp = dbs.CreateProperty(strPropName, _

varPropType, varPropValue)

dbs.Properties.Append prp

Resume Next

Else

' Unknown error.

ChangeProperty = False

Resume Change_Bye

End If

End Function