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
15 11145
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
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
- 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
- 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
- Save changes to the Database, then Exit.
- Open the Database, then immediately Close it again.
- 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
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.
Can i disable the F11 key (depending on my user status then?)
thanks
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: - Setting its KeyPreview Property = Yes.
- 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
- 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: - Disable the SHIFT By Pass.
- Disable Special Access Keys, Shortcut Menus, etc.
- Allow special Back-Door access which will Open the Start Up Dialog, Display the Database Window, etc.
- 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:- Disable the SHIFT By Pass.
- Disable Special Access Keys, Shortcut Menus, etc.
- Allow special Back-Door access which will Open the Start Up Dialog, Display the Database Window, etc.
please explain the last bullet..
thank you!!!
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.
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
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
To the best of my knowledge, yes it can be done, but NOT without Closing then Opening the Database again.
but that would open up the database for everyone yes??
is there code to show the db window that i could use?
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?
You could use either of these 2 Methods: -
'Selects the Employees Table in the Database Window
-
DoCmd.SelectObject acTable, "Employees", True
-
-
'Opens Database Windows if F11 hasn't been disabled
-
'in the Forms KeyDown() Event
-
SendKeys "{F11}"
-
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!!
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!!
To the best of my knowledge, to modify Properties like the ones listed below, requires a Close and Open of the DB: -
StartUpShowDBWindow
-
StartUpShowStatusBar
-
AllowShortcutMenus
-
AllowFullMenus
-
AllowBuiltInToolbars
-
AllowToolbarChanges
-
AllowSpecialKeys
i have an idea that might work, dont have time to test it just yet..
but i am going to create two macros that run either an On or Off function and then i am goin to edit the shortcut to the database using command line switches i will be able to run either the on or the off macro, which then runs the on or off function.
hopefully this will work,
i may even create this in a batch file (or an exe) so that the shortcut canneot be changed by anyone in the know (easily) then i could also hide the DB on a hidden network location
thanks for your time so far and i will let you know if i crack it as described..
Sign in to post your reply or Sign up for a free account.
Similar topics
by: PerryC |
last post by:
I have search googles and there are hundreds of tips about
AllowByPassKey... however, none works for me... well, perhaps I am too
new to such high level functionality that it just does not make...
|
by: Nathan Bloom |
last post by:
Hi,
I was wondering if there was any way to disable certain menu items and
toolbar icons at runtime using VBA? Particularly the delete icon on the
tool bar and the delete option under edit. I...
|
by: Ghulam |
last post by:
I am using an Access 2k ADP (Converted into ADE) front end and SQL 2K
on the backend. Although I taught pretty much myself into these
concept with the help of some publications and users group...
|
by: cefrancke |
last post by:
I have set the Startup properties to the following...
All menus, toolbars, etc are turned off plus these are unchecked
Allow Full Menus
Allow Built-in Toolbars
Allow Default Shortcut Menus...
|
by: Steve |
last post by:
I have the MDI MFC application ported to .NET.
Now this application include mixed managed/unmanaged code.
The application displays progress dialog with the cancel button
during lenghtly...
|
by: Nalaka |
last post by:
Hi,
I suddenly started getting a lot of errors from html validation (some CSS)
so I followed the following instructions to disable it.
If you'd rather not have these types of HTML validation...
|
by: surya52 |
last post by:
I want to disable right click in my application.Here are my requirements.
1. I don't what to turn off shift click for the page. I want to turn it off for specific links.
2. I want shift-click to...
|
by: Joshua Ammann |
last post by:
I've searched for this and haven't found the answer yet, so here
goes. I'm using multiple versions of Access, all 2000 or later. Is
there a command line switch that will produce the same result as...
|
by: zandiT |
last post by:
hello
i have a database that ive converted to an mde because its going on the network and will be accessd by various users. on the startup option i unticked all the options available so users...
|
by: ryjfgjl |
last post by:
ExcelToDatabase: batch import excel into database automatically...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: PapaRatzi |
last post by:
Hello,
I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: Defcon1945 |
last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
|
by: Shćllîpôpď 09 |
last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
| |