Greetings, all -
I have an Access2016 shared DB with a primary navigation form. I have programmed so that users only see certain tabs depending on their security level (a field in their user record in the db). It seems that the first tab's subtabs are visible (accessible) even if the tab they are connected to is not visible. One has to click on the visible tab (even if only one is visible) if it's not the first tab of the navigation form.
This makes no sense. It defeats the security of the design, adds extra effort on the user and different user levels access certain tabs. There's no one tab that all use that could be first. It also effects the flow of the design for those who access many or all tabs.
What am I missing?
The code is simple. The following is a sample of a function that is called after the user logs in:
Etc., etc.
Thanks for any ideas.
I have an Access2016 shared DB with a primary navigation form. I have programmed so that users only see certain tabs depending on their security level (a field in their user record in the db). It seems that the first tab's subtabs are visible (accessible) even if the tab they are connected to is not visible. One has to click on the visible tab (even if only one is visible) if it's not the first tab of the navigation form.
This makes no sense. It defeats the security of the design, adds extra effort on the user and different user levels access certain tabs. There's no one tab that all use that could be first. It also effects the flow of the design for those who access many or all tabs.
What am I missing?
The code is simple. The following is a sample of a function that is called after the user logs in:
Code:
Public Function MainNavSecurity(UserLevel As Integer)
Select Case UserLevel
Case 1 'Admin: all records access - no editing or deleting
Forms![frmDatabaseMainNavigation]!navClinician.Visible = True
Forms![frmDatabaseMainNavigation]!navAdministrative.Visible = True
Forms![frmDatabaseMainNavigation]!navProgressNotes.Visible = True
Forms![frmDatabaseMainNavigation]!navReports.Visible = True
Forms![frmDatabaseMainNavigation]!NavClinical.Visible = True
Forms![frmDatabaseMainNavigation]!navAudit.Visible = True
Forms![frmDatabaseMainNavigation]!navAllTxRecords.Visible = True
Forms![frmDatabaseMainNavigation]!navRecReq.Visible = True
Case 2 'Clinical-Tx Rec: Clinician Entry
Forms![frmDatabaseMainNavigation]!navClinician.Visible = True
Forms![frmDatabaseMainNavigation]!navAdministrative.Visible = False
Forms![frmDatabaseMainNavigation]!navProgressNotes.Visible = False
Forms![frmDatabaseMainNavigation]!navReports.Visible = False
Forms![frmDatabaseMainNavigation]!NavClinical.Visible = False
Forms![frmDatabaseMainNavigation]!navAudit.Visible = False
Forms![frmDatabaseMainNavigation]!navAllTxRecords.Visible = False
Forms![frmDatabaseMainNavigation]!navRecReq.Visible = False
Etc., etc.
Thanks for any ideas.