Modifica nuevamente Login de access o inicio de login con selección automática de formularios según la resolución del sistema

Con esta función, consigues saber la resolución del monitor:

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long 
Const SM_CXSCREEN = 0 'X Size of screen 
Const SM_CYSCREEN = 1 'Y Size of Screen 
Private Sub Form_Load() 
MsgBox "Resolucion " & _ 
Str$(GetSystemMetrics(SM_CXSCREEN)) & "x" & Str$(GetSystemMetrics(SM_CYSCREEN)) 
End Sub 

https://www.lawebdelprogramador.com/foros/Access/1176685-resolucion-access.html 

Te devolverá una cadena de texto del estilo "1920x1080", "1200x800"...

Sabiendo eso, ya puedes integrarlo en tu código como creas conveniente.

Un saludo.

     bit.ly/ForoNkSv 

Hola amigo gracias por tu pronta respuesta pero como sabrás no me manejo para nada en código vba y bueno para no complicar las cosas me gustaría que el código que he dejado arriba le agregues la opción de que si se selecciona una resolución en la lista desplegables de la resoluciones y habrá el formulario correspondiente.

Los formularios serian los siguiente

Entorno_Principal que corresponde a 1920x1080p, Entorno_Principal1 que corresponde a 1600x900p y por ultimo Entorno_Principal2 que corresponde a 1360x768p

bueno acá el código de nuevo:

Private Sub CmdEntrar_Click()
If IsNull(Me.txtUsuario) Then
MsgBox "Por favor, escriba su Usuario", vbInformation, "Usuario requerido"
Me.txtUsuario.SetFocus
ElseIf IsNull(Me.txtPass) Then
MsgBox "Por favor, ingrese su Contraseña", vbInformation, "Contraseña requerida"
Me.txtPass.SetFocus
Else
If (IsNull(DLookup("[login]", "Usuarios", "[login] ='" & Me.txtUsuario.Value & _
"' And Password = '" & Me.txtPass.Value & "'"))) Then
MsgBox "Usuario y/o Contraseña incorrectos"
Else
UserLevel = DLookup("Admin", "Usuarios", "login = '" & Me.txtUsuario.Value & "'")
If UserLevel = -1 Then
LogedUser = Me.txtUsuario.Value
DoCmd.Close
DoCmd.OpenForm "Entorno_Principal"
Else
LogedUser = Me.txtUsuario.Value
DoCmd.Close
DoCmd.OpenForm "Entorno_Principal"
End If
End If
End If
End Sub

Lo que quieres ya te lo respondí en otra pregunta (¿Mejora Cuentas de Usuario Access? ), y no lo voy a volver a repetir... XD

Si la verdad es que ya me has contestado esta pregunta y me ha fusionando de maravilla, pero el código que deseo utilizar es completamente distinto.. el cual me permite trabajar con privilegios de manera más eficiente. Y bueno yo la verdad con mi poco conocimiento he reducido el montón de formularios principales con distintos privilegios a tan solo tres, que son los que corresponden a las distintas resoluciones. Y de verdad he intentado todo como para implementar lo del código anterior al actual y no me da nada de resultados. Soy nulo en esto

Independientemente del número de formularios principales que tengas, si a cada tipo de acceso le puede corresponder uno u otro en función de la resolución, has de hacer lo mismo que en la otra respuesta que te di: poner un select case (o varios Ifs) y contemplar las posibles resoluciones para abrir cada formulario. Tendrás que poner tantos como tipos de usuarios distintos tengas.

Sorry por ser tan majadero y tonto pero me arroja error  else sin if

Private Sub CmdEntrar_Click()
If IsNull(Me.txtUsuario) Then
MsgBox "Por favor, escriba su Usuario", vbInformation, "Usuario requerido"
Me.txtUsuario.SetFocus
ElseIf IsNull(Me.txtPass) Then
MsgBox "Por favor, ingrese su Contraseña", vbInformation, "Contraseña requerida"
Me.txtPass.SetFocus
Else
If (IsNull(DLookup("[login]", "Usuarios", "[login] ='" & Me.txtUsuario.Value & _
"' And Password = '" & Me.txtPass.Value & "'"))) Then
MsgBox "Usuario y/o Contraseña incorrectos"
Else
UserLevel = DLookup("Admin", "Usuarios", "login = '" & Me.txtUsuario.Value & "'")
If UserLevel = -1 Then
LogedUser = Me.txtUsuario.Value
DoCmd.Close
DoCmd.OpenForm "Entorno_Principal"
Else
LogedUser = Me.txtUsuario.Value
DoCmd.Close
DoCmd.OpenForm "Entorno_Principal"
End If
Else
Dim Acceso As Integer

Acceso = DLookup("Login", "Usuarios", "Login=" & Me![txtUsuario])

Select Case Acceso

Case 1 'Es el id_acceso del Super Administrador

MsgBox "Has ingresado al sistema con permisos de Super-Administrador, por lo tanto tienes acceso a toda la información, apartados del sistema y ademas la creación de cuentas de usuario", vbInformation, "INFORMACION"
Select Case TexResolucion

Case 1 '1920x1080p

DoCmd.OpenForm "Entorno_Principal", acNormal, "", "", , acNormal
DoCmd.Close acForm, Me.NAME '
Case 2 '1600x900p

DoCmd.OpenForm "Entorno_Principal 1600x900", acNormal, "", "", , acNormal
DoCmd.Close acForm, Me.NAME '
Case 3 '1366x768p

DoCmd.OpenForm "Entorno_Principal 1366x768", acNormal, "", "", , acNormal
DoCmd.Close acForm, Me.NAME '
End Select
End If
End If
End If
End Sub

Pues revisa que no hayas cerrado con End If todos los Ifs antes de poner el Else en el que te marca el error... 

no funciona nada el código no toma las resoluciones que le pido