Disabling Shift Key to Show DB Window on Startup

Hello peeps!!

got another problem that is outta my league....

What i want (and can do) is to disable the DB window on startup,
(what i cant do) disable the shift key load...

Also

i need a way to get back the DB window

currently i have a custom logon and a table with logon info

tblLogonData:
StaffID,integer, FK
UserName, String
Password, String
AccessLevel, String (SuperAdmin, Admin, User)

the Access level as you would expect limits access, and i want only the superadmins (or posibly even another option (i.e. Manager..) to see the DB window.

Can this be done with out too much trouble?
(Preferably i would like to Completely disable the shift key load and handle that "In House")

Thanks if ya can help

Hello peeps!!

got another problem that is outta my league....

What i want (and can do) is to disable the DB window on startup,
(what i cant do) disable the shift key load...

Also

i need a way to get back the DB window

currently i have a custom logon and a table with logon info

tblLogonData:
StaffID,integer, FK
UserName, String
Password, String
AccessLevel, String (SuperAdmin, Admin, User)

the Access level as you would expect limits access, and i want only the superadmins (or posibly even another option (i.e. Manager..) to see the DB window.

Can this be done with out too much trouble?
(Preferably i would like to Completely disable the shift key load and handle that "In House")

Thanks if ya can help

1. Copy and Paste the following Public Function into a Standard Code Module:
   
   Expand|Select|Wrap|Line Numbers

   1. Public Function ChangeProperty(strPropertyName As String, varPropertyType As Variant, varPropertyValue As Variant) As Integer
   2. Dim MyDB As Database, MyProperty As Property
   3.  
   4. Set MyDB = CurrentDb()
   5.  
   6. On Error GoTo Err_ChangeProperty
   7. 'Property exists, so set its Value
   8. MyDB.Properties(strPropertyName) = varPropertyValue
   9. ChangeProperty = True
   10.  
   11. Exit_ChangeProperty:
   12.   Exit Function
   13.  
   14. Err_ChangeProperty:
   15. If Err.Number = 3270 Then       'Property not found
   16.   'Since the Property isn't found, create it!
   17.   Set MyProperty = MyDB.CreateProperty(strPropertyName, varPropertyType, varPropertyValue)
   18.   MyDB.Properties.Append MyProperty
   19.   Resume Next
   20. Else
   21.   'Unknown Error
   22.   ChangeProperty = False
   23.   Resume Exit_ChangeProperty
   24. End If
   25. End Function
2. In your Main Form's Open() Event, place the following code:
   
   Expand|Select|Wrap|Line Numbers

   1. Private Sub Form_Open(Cancel As Integer)
   2. Dim intRetVal As Integer
   3.  
   4. 'Do NOT Allow the use of the SHIFT ByPass Key combination
   5. intRetVal = ChangeProperty("AllowBypassKey", dbBoolean, False)
   6. End Sub
3. Save changes to the Database, then Exit.
4. Open the Database, then immediately Close it again.
5. From now on, you will not be able to hold down the SHIFT Key in order to Bypass the AutoExec Macro.

and is it possible to call the database window back up (if your logon details allow it) via code (and not have to exit and open again)

thanks for the help so far

Can i disable the F11 key (depending on my user status then?)

thanks

1. Setting its KeyPreview Property = Yes.
2. Copy and Paste the code below to the Form's KeyDown() Event:
   
   Expand|Select|Wrap|Line Numbers

   1. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   2.   If KeyCode = vbKeyF11 Then
   3.     KeyCode = 0
   4.   End If
   5. End Sub
3. The only problem with this approach is that it only applies to the specific Form, not other Forms unless the code and KeyPreview Property is duplicated, not other Objects opened by that Form as in: Queries, Reports, etc.

1. Disable the SHIFT By Pass.
2. Disable Special Access Keys, Shortcut Menus, etc.
3. Allow special Back-Door access which will Open the Start Up Dialog, Display the Database Window, etc.

Expand|Select|Wrap|Line Numbers

1. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
2.   If KeyCode = vbKeyF11 Then
3.     KeyCode = 0
4.   End If
5. End Sub

P.S. - My normal approach in similar cases is to:

1. Disable the SHIFT By Pass.
2. Disable Special Access Keys, Shortcut Menus, etc.
3. Allow special Back-Door access which will Open the Start Up Dialog, Display the Database Window, etc.

could i make that into a function and then only run the function on

Case "DBManager"
(x = blah blah) would that work anyhow?


please explain the last bullet..

thank you!!!

The database will be used by many (from a network location) so is there a way to only allow the special keys if the user is an admin (i am using a custom logon process)??

thanks again

but that would open up the database for everyone yes??

is there code to show the db window that i could use?

is there code to show the db window that i could use?

Is there anyway to reinstate every thing that has been disabled on startup (without having to restart)

my worry is upgrading the DB and creating specific queries when they are needed etc.

if i have to restart the app. it leaves room for someone else to access the BULK with out authorisation!!