sub doesn't work - "SetStartupProperties"

R

Rod

Hi there

I am having no success to secure my Access97 database
I've already place a hidden button to disable the startuproperties that will only be visible for my NetwrokID, but somehow nothing works

I am trying to use the following code, and I am calling the "sub" on Switchboard Onload - How should I call the sub properly

Any help will be appreciated
Ro

Sub SetStartupProperties(

ChangeProperty "StartupForm", dbText, "Switchboard
ChangeProperty "StartupShowDBWindow", dbBoolean, Fals
ChangeProperty "StartupShowStatusBar", dbBoolean, Fals
ChangeProperty "AllowBuiltinToolbars", dbBoolean, Fals
ChangeProperty "AllowFullMenus", dbBoolean, Fals
ChangeProperty "AllowBreakIntoCode", dbBoolean, Fals
ChangeProperty "AllowSpecialKeys", dbBoolean, Fals
ChangeProperty "AllowBypassKey", dbBoolean, Fals

End Su

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Intege
Dim dbs As Database, prp As Propert
Const conPropNotFoundError = 327

Set dbs = CurrentD
On Error GoTo Change_Er
dbs.Properties(strPropName) = varPropValu
ChangeProperty = Tru

Change_Bye
Exit Functio

Change_Err
If Err = conPropNotFoundError Then ' Property not found
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue
dbs.Properties.Append pr
Resume Nex
Els
' Unknown error
ChangeProperty = Fals
Resume Change_By
End I
End Functio
 
Top