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

Add a reference to Microsoft DAO 3.6 ... your code references objects
supplied by this library. Also, you should explicity refer to those objects:

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
etc etc

"RWC" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> 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
>
>
>