Gary J. Giever
gjgiever at myway.com
Tue Oct 31 17:24:09 CST 2006
Thank you for the advise. Gary J. Giever, M.A. Applications Developer ACCMHS --- On Tue 10/31, Mark A Matte < markamatte at hotmail.com > wrote: From: Mark A Matte [mailto: markamatte at hotmail.com] To: accessd at databaseadvisors.com Date: Tue, 31 Oct 2006 21:39:21 +0000 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 listAccessD at databaseadvisors.comhttp://databaseadvisors.com/mailman/listinfo/accessdWebsite: http://www.databaseadvisors.com _______________________________________________ No banners. No pop-ups. No kidding. Make My Way your home on the Web - http://www.myway.com