[AccessD] Opening Access 97

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