[AccessD] Opening Access 97

Bill Patten bill_Patten at earthlink.net
Tue Oct 31 16:19:25 CST 2006


Oh, by the way Gary, you usually have to close the program and reopen it for 
the changes to take effect.

B
----- 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




More information about the AccessD mailing list