Gary J. Giever
gjgiever at myway.com
Tue Oct 31 17:23:03 CST 2006
Thank you ver much. I shall try that out. 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 12:34:17 -0800 Subject: Re: [AccessD] Opening Access 97 Hi Gary,I'm pretty sure I used this back in the 97 versionHope 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 = TrueChange_Bye: Exit FunctionChange_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 IfEnd Function----- Original Message ----- From: "Gary J. Giever" <gjgiever at myway.com>To: <accessd at databaseadvisors.com>Sent: Tuesday, October 31, 2006 12:14 PMSubject: [AccessD] Opening Access 97I 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 DeveloperACCMHS_______________________________________________No banners. No pop-ups. No kidding.Make My Way your home on the Web - http://www.myway.com-- 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