Variable user admin can set for use in multiple VBA Class Objects in App

[grahamkida]

In VBA I have created a simple method to hide/ show content based on user type using an unbound field (usually hidden in the underlying form) - "Me![Version]"

'SetversionMe![Version] = "Usertype3"


If Me![Version] = "Usertype1" Then
Me![NavigationButtonManagementReports].Visible = False
End If


If Me![Version] = "Usertype2" Then
Me![NavigationButtonManagementReports].Visible = False
End If


If Me![Version] = "Usertype3" Then
Me![NavigationButtonManagementReports].Visible = True

The issue I'm having is that this this is used across multiple forms to control visible content and for each I have to manually code in the the User type in VB editor before creating a release version for that user type.

Is there a way to set the UserType once (using a form or table) for Me![Version] which can then be referenced for user type across all form class VB objects?

Thanks Graham

[CJ_London]

usual way is to have a user table and perhaps a group table (admin/management/data processor/whatever), perhaps with related tables which set the permissions for that group for what they can see and do.

not clear how your usertype/version values are being populated, my assumption below is it is being populated in the recordsource when the form is loaded

if it is always just the NavigationButtonManagementReports button you want to hide/show and it is called the same in every form you can create a public function in a module

function showHideReports(frm as form)
    frm.NavigationButtonManagementReports.Visible=frm.Version = "Usertype3"
end function

and in each form load event property put

=showHideReports([FORM])

where you would normally see [Event Procedure]

[grahamkida]

Thanks for this suggestion - currently I prepare 4 user group variations of the Access App to deploy into specific folders which only certain users (aligned to their type) can access. Users do not log into the app. Without redesigning the user access I just want to set the current version once in each app before deployment and not in every form where the code show's/hide's elements based on usertype.

Basically replacing Set Me![Version] = "UserType3" to Set Me!![Version] = GlobalVariable (Set to "UserType3" once somewhere else) or = RecordSource [UserStatusTable]UserSetField (Again set to "UserType3" in single record/ field of table).

I think this must be possible - I just can't find the method/ syntax on how this can be done..

[CJ_London]

seems a weird way of managing it, version control will be unnecessarily complex. Also from your description, you could have multiple users of each type opening the same front end (I presume the database is split) which is a really big no-no - that way lies corruption.

But lets say you stick with your method, then your code could reference the project path to identify the folder it is in

function showHideReports(frm as form)
frm.NavigationButtonManagementReports.Visible=instr(currentproject.path,"managers")>0
end function

[Welshgasman]

In the Autoexec you could set a Tempvar to your User Type and refer to that perhaps?

Your test as you have posted only needs to be

If TempVars("UserType").Value = "Usertype3" Then
    Me![NavigationButtonManagementReports].Visible = True
Else
    Me![NavigationButtonManagementReports].Visible = False
End If

Otherwise I would use a Select Case statement

[grahamkida]

Thanks everyone for your advices - will give them a go and let you know how I get on

[Gicu]

You can use a TempVar as already suggested, a (hidden) control on a hidden startup form, a global variable, a dLookup in a users table (get the logged user using Environ("UserName") and look up the corresponding version in the table)....
Have a look at my free utility that does custom access control here:
https://forestbyte.com/ms-access-uti...access-levels/

Cheers,