[AccessD] Opening Access 97

Hey Mark, your right, actually I use a special log in password and it test 
to see if one of the items is true and if so it sets all of them to False, 
and if false sets them all to true. It's just switches back an forth. Been 
using if for several years to lock stuff for my customers and unlock them so 
I can work on them.

Bill
----- Original Message ----- 
From: "Mark A Matte" <markamatte at hotmail.com>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, October 31, 2006 1:39 PM
Subject: Re: [AccessD] Opening Access 97


Gary,

I used the same thing...but from my past experience I will share
this...build the backdoor FIRST!!!  The first db I disabled
"AllowBypassKey"...I forgot about how to get back into it...lol..I ended up
importing all objects...but scary at first.

Good luck.

Thanks,

Mark A. Matte


>From: "Bill Patten" <bill_Patten at earthlink.net>
>Reply-To: Access Developers discussion and problem
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem
>solving"<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Opening Access 97
>Date: Tue, 31 Oct 2006 12:34:17 -0800
>
>Hi Gary,
>
>I'm pretty sure I used this back in the 97 version
>
>Hope this helps.
>
>ChangeProperty "AllowBypassKey", dbBoolean, True ' (True to allow , false
>to
>disallow)
>
>
>  Some of the others that may be handy.
>*****************************
>    ChangeProperty "StartupShowDBWindow", dbBoolean, False
>    ChangeProperty "StartupShowStatusBar", dbBoolean, True
>    ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
>    ChangeProperty "AllowFullMenus", dbBoolean, True
>    ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>    ChangeProperty "AllowSpecialKeys", dbBoolean, True
>*****************************
>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  ' Property not found.
>     Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
>     dbs.Properties.Append prp
>     Resume Next
>   Else
>     ' Unknown error.
>     ChangeProperty = False
>     Resume Change_Bye
>   End If
>
>End Function
>----- Original Message -----
>From: "Gary J. Giever" <gjgiever at myway.com>
>To: <accessd at databaseadvisors.com>
>Sent: Tuesday, October 31, 2006 12:14 PM
>Subject: [AccessD] Opening Access 97
>
>
>
>I remember having a program that prevented one from opening an Access 97
>database by holding down the shift key while opening the database, thus
>getting access to the tables. I can't find it now or maybe I imagined the
>whole thing. Does this sound familiar to anyone out there?
>
>
>Gary J. Giever, M.A.
>Applications Developer
>ACCMHS
>
>_______________________________________________
>No banners. No pop-ups. No kidding.
>Make My Way  your home on the Web - http://www.myway.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com

_________________________________________________________________
Get FREE company branded e-mail accounts and business Web site from
Microsoft Office Live
http://clk.atdmt.com/MRT/go/mcrssaub0050001411mrt/direct/01/

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com