FredixBlog

Prevents the user to bypass auto-form or auto-macro by pressing shift key.
More options are set to user mode.
Function SetStartupProperties()
    ChangeProperty “StartupForm”, dbText, “Customers”
    ChangeProperty “StartupShowDBWindow”, dbBoolean, False
    ChangeProperty “StartupShowStatusBar”, dbBoolean, False
    ChangeProperty “AllowBuiltinToolbars”, dbBoolean, False
    ChangeProperty “AllowFullMenus”, dbBoolean, True
    ChangeProperty “AllowBreakIntoCode”, dbBoolean, False
    ChangeProperty “AllowSpecialKeys”, dbBoolean, True
    ChangeProperty “AllowBypassKey”, dbBoolean, True
End Function

Function ChangeProperty(strPropName As String,
varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then
    Set prp = dbs.CreateProperty(strPropName, _
        varPropType, varPropValue)
    dbs.Properties.Append prp
    Resume Next
Else
    ChangeProperty = False
    Resume Change_Bye
End If
End Function

No related posts.