Need to Adjust Form based on User

[Dave14867]

Hello All,



I have a Login Form that check to see what User Type the person logged in has and opens another form and closes the Log in Form. What I want to do is based on that users User Type I want to show or hide subforms that are on the form that opens.

Here is a section of the code I am using.

If rs!UserType = 7 Then 'Checks to what user Priviledges User Has, opens frmMain
CurrentDb.Properties("AllowBypassKey") = False
DoCmd.Close acForm, "frmMain"
DoCmd.Close acForm, "frmLoginScreen"


I also want to be able to position the height of the subform based on the Used type

Can someone let me know how to add code to do this?

Thanks
Dave

[June7]

Could save user info somewhere that can be referenced when needed. This can be a global variable, a TempVar, or a textbox. Can pass UserType to second form with OpenArgs argument of OpenForm command. Then code in second form Open event sets its properties.

   Select Case Me.OpenArgs
      Case "this type"
         'do this
      Case "another type"
         'do this
   End Select

[Dave14867]

June7,
Where would I set that? I've been away from Access for at least 2 years and I am a little rusty.

[June7]

I said the form Open event.

Exactly which part of suggestion is not clear?

Why is your code closing frmMain? Shouldn't it be opening?

This is a common topic.

[Dave14867]

June7,

Yes, that was a mistake on my part which I have corrected, The code now states

If rs!UserType = 7 Then 'Checks to what user Priviledges User Has, opens frmMain

CurrentDb.Properties("AllowBypassKey") = False
DoCmd.Open acForm, "frmMain"
DoCmd.Close acForm, "frmLoginScreen"

I set the Public Variable as follows in the frmLoginScreen

Option Compare Database
Option Explicit
Public UserType As Integer

Is this the correct location?

Again, forgive me for not being as astute as I could be.

[June7]

Public global variable would have to be declared in a general module in order for it to be available to any module. Then you populate the variable with frmLoginScreen code and use it in frmMain Open event.

Beware, variables lose their value when code encounters unhandled run-time errors.

[Welshgasman]

I used to use TempVars()
Apparently they still exist after such errors?, but I was not aware of that at the time.