Gary J. Giever
gjgiever at myway.com
Tue Oct 31 17:27:46 CST 2006
Thank you. I wasn't sure where to look. This helps a lot. Gary J. Giever, M.A. Applications Developer ACCMHS --- On Tue 10/31, Bill Patten < bill_Patten at earthlink.net > wrote: From: Bill Patten [mailto: bill_Patten at earthlink.net] To: accessd at databaseadvisors.com Date: Tue, 31 Oct 2006 14:19:25 -0800 Subject: Re: [AccessD] Opening Access 97 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 PMSubject: Re: [AccessD] Opening Access 97Gary,I used the same thing...but from my past experience I will sharethis...build the backdoor FIRST!!! The first db I disabled"AllowBypassKey"...I forgot about how to get back into it...lol..I ended upimporting 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 fromMicrosoft Office Livehttp://clk.atdmt.com/MRT/go/mcrssaub0050001411mrt/direct/01/-- AccessD mailing listAccessD at databaseadvisors.comhttp://databaseadvisors.com/mailman/listinfo/accessdWebsite: http://www.databaseadvisors.com-- 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