Como agregar acceso a distintos formularios en mi login
Tengo mi formulario de login que resulta muy bien y todo pero deseo mejorarlo aun mas
Este es el formulario:
Que esta asociado al siguiente código vba:
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 "Resolucion del sistema"
Else
LogedUser = Me.txtUsuario.Value
DoCmd.Close
DoCmd.OpenForm "Resolucion del sistema"
End If
End If
End If
End Sub
Lo que deseo hacer es algo como el siguiente formulario de abajo, donde existe un tercer campo el cual se encuentran las resoluciones, para que el usuario escoja según su sistema. Claro esta que cada resolución llama a un formulario distinto.
Por lo tanto lo que busco es utilizar el código anterior y adaptarlo para que permita la tarea de llamada a cada formulario según la resolución escogida en el campo.