Disabling Shift Key to Show DB Window on Startup

[Dan2kx]

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

[Dököll]

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

Hey there!

This may not be of great use but I fetched it for you anyway:

http://www.thescripts.com/forum/thread748067.html

Perhaps you can use some of what is said:-)

Please stay tuned for added support, and good luck to you...

Dököll

[ADezii]

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:
   

   Public Function ChangeProperty(strPropertyName As String, varPropertyType As Variant, varPropertyValue As Variant) As Integer
   Dim MyDB As Database, MyProperty As Property
    
   Set MyDB = CurrentDb()
    
   On Error GoTo Err_ChangeProperty
   'Property exists, so set its Value
   MyDB.Properties(strPropertyName) = varPropertyValue
   ChangeProperty = True
    
   Exit_ChangeProperty:
     Exit Function
    
   Err_ChangeProperty:
   If Err.Number = 3270 Then       'Property not found
     'Since the Property isn't found, create it!
     Set MyProperty = MyDB.CreateProperty(strPropertyName, varPropertyType, varPropertyValue)
     MyDB.Properties.Append MyProperty
     Resume Next
   Else
     'Unknown Error
     ChangeProperty = False
     Resume Exit_ChangeProperty
   End If
   End Function

2. In your Main Form's Open() Event, place the following code:
   

   Private Sub Form_Open(Cancel As Integer)
   Dim intRetVal As Integer
    
   'Do NOT Allow the use of the SHIFT ByPass Key combination
   intRetVal = ChangeProperty("AllowBypassKey", dbBoolean, False)
   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.

[Dan2kx]

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

[ADezii]

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

You can always bring the Database back up with the {F11} Key or Menus, unless, of course, you disallow these Options. Always test on a copy of the original DB.

[Dan2kx]

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

thanks

[ADezii]

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

thanks

You can effectively Enable/Disable the Use Special Access Keys on the Start Up ==> Advanced Options, but that would require Closing then Reopening the Database. You can disable the use of the F11 Key in the AutoKeys Macro, but that change would be Global, and to the best of my knowledge, cannot be assigned to individual Users depending on their Status. You can negate the effect of the F11 Key while a Form is Active by:

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

   Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     If KeyCode = vbKeyF11 Then
       KeyCode = 0
     End If
   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.

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.

[Dan2kx]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF11 Then
    KeyCode = 0
  End If
End Sub

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

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

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.

please explain the last bullet..

thank you!!!

[ADezii]

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!!!

I'll usually disable everything possible, then allow a specific Key Combination such as ALT+SHIFT+F7 in the AutoKeys Macro that will open the Start Up Properties Dialog Box. From there I can re-enable many Options that were previously disabled then eventually disable everything again.

[Dan2kx]

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