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. ...