HELP! Trying to set Start Up properties in A2K2 / XP

[RWC]

Hello,

I have just converted a database from A97 to A2K2. I had a procedure for
changing start up properties that worked really well. For some reason, they
don't work in A2K2 and I'm having a tough time finding out what the
"replacement values" are. These are the items I'm trying to change;

ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowByPassKey", dbBoolean, True
ChangeProperty "StartUpShowDBWindow", dbBoolean, True
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
ChangeProperty "AllowFullMenus", dbBoolean, True

and this is the ChangeProperty code

Public Function ChangeProperty(strPropName As String, varPropType As
Variant, varPropValue As Variant) As Integer
On Error GoTo ChangeProperty_Err

'************************************************* **************************
*****
'*** Generic Method of changing properties
'************************************************* **************************
*****

Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb

dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

ChangeProperty_Exit:

Exit Function

ChangeProperty_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 ChangeProperty_Exit
End If
End Function

Any help that anyone could provide would be great. You can reply to the
group or just remove the underscores and the caps from my email address.

Thanks!
RWC

[Douglas J. Steele]

Define "don't work".

Have you set a reference to DAO? When you did so, did you remove the
reference to ADO? If not, try changing prp As Property to prp As
DAO.Property

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(No private e-mails, please)

"RWC" <he*****************************@shaw.ca> wrote in message
news:PWuxb.507067$6C4.496731@pd7tw1no...

Hello,

I have just converted a database from A97 to A2K2. I had a procedure for
changing start up properties that worked really well. For some reason, they don't work in A2K2 and I'm having a tough time finding out what the
"replacement values" are. These are the items I'm trying to change;

ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowByPassKey", dbBoolean, True
ChangeProperty "StartUpShowDBWindow", dbBoolean, True
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
ChangeProperty "AllowFullMenus", dbBoolean, True

and this is the ChangeProperty code

Public Function ChangeProperty(strPropName As String, varPropType As
Variant, varPropValue As Variant) As Integer
On Error GoTo ChangeProperty_Err

'************************************************* ************************** *****
'*** Generic Method of changing properties
'************************************************* ************************** *****

Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb

dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

ChangeProperty_Exit:

Exit Function

ChangeProperty_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 ChangeProperty_Exit
End If
End Function

Any help that anyone could provide would be great. You can reply to the
group or just remove the underscores and the caps from my email address.

Thanks!
RWC