Creando un formulario Login En Microsoft Access

Los formularios de inicio de sesión (login) o registro, es un punto de contacto crítico entre el usuario y la interfaz de un producto o servicio.
Por este motivo en fundamental que la experiencia que tenga el usuario cuando se enfrenta a completar uno, sea simple, rápida e intuitiva.
***********************************************************************
Código para programar el botón Aceptar del formulario Login:
Copiar y pegar el siguiente código VB:
***********************************************************************
Option Compare Database
Private Sub Comando1_Click()
Dim UserLevel As Integer
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("[Usuario]", "Usuarios", "[Usuario] ='" & Me.TxtUsuario.Value & _
"' And Pass = '" & Me.TxtPass.Value & "'"))) Then
MsgBox "Usuario y/o Contraseña incorrectos"
Else
UserLevel = DLookup("Nivel_Seguridad", "Usuarios", "Usuario = '" & Me.TxtUsuario.Value & "'")
If UserLevel = 1 Then
DoCmd.Close
MsgBox "Bienvenido al sistema Marco Gamboa!!!", , "Administrador"
DoCmd.OpenForm "FrmPrincipal"
Else
DoCmd.Close
DoCmd.OpenForm "FrmRegistrarUser"
End If
End If
End If
End Sub

[@user-vb6pd4bs9q]

GRANDEEEE

[@ranato5]

GRACIAS ETERNAS MARCO POR ESTE DOCTORADO, ES FANTÁCTICO, TODO HA SALIDO PERFECTO PERO NO SE DONDE PROGRAMARLE LOS USUARIOS Y CONTRASEÑAS QUE YO ELIJA. NO ME DA ACCESO. ¿ME PODRÍAS INDICAR DONDE Y COMO PODRÍA ASIGNARLE LOS USUARIOS Y CONTRASEÑAS A LOS MODOS ADMINISTRADOR Y USUARIO? UN SALUDO CORDIAL.

[@marcogamboal]

Hola Rafael gracias por comunicarte: Debes abrir la tabla usuarios y añadir tu usuario, contraseña y Nivel de seguridad. A continuación te envío una captura de pantalla drive.google.com/file/d/1PDY3pBPQNl5MXBwFWPa28c8hdrokYhlM/view?usp=share_link

[@sebastiancardenaspajuelo6421]

profesor salúdeme en su siguiente video
😍

[@jonathanjimenez1302]

si tengo una tabla en consultas, como la adaptop al formulario ya que en el código viene adaptada a las que se encuentran en la parte de formulario

[@horaciosilvaporras656]

Excelente video, pero me he dado cuenta que la ingresar las contraseñas, no distingue mayusculas y minusculas. Osea si tengo la siguiente contraseña: AbCdE. El access le da igual si pones ABCDE o abcde. Entonces se convierte en una falla de seguridad porque no estaría realizando la validación exacta. Como se solucionaría esta vulnerabilidad.

[@rafaelpirela4548]

Hola me podrías ayudar con un proyecto de base de datos

[@estudiandolangues]

muchas gracias , donde esta el código que vas a compartir??'

[@marcogamboal]

Option Compare Database
Private Sub Comando1_Click()
Dim UserLevel As Integer
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("[Usuario]", "Usuarios", "[Usuario] ='" & Me.TxtUsuario.Value & _
"' And Pass = '" & Me.TxtPass.Value & "'"))) Then
MsgBox "Usuario y/o Contraseña incorrectos"
Else
UserLevel = DLookup("Nivel_Seguridad", "Usuarios", "Usuario = '" & Me.TxtUsuario.Value & "'")
If UserLevel = 1 Then
DoCmd.Close
MsgBox "Bienvenido al sistema!!!", , "Administrador"
DoCmd.OpenForm "FrmPrincipal"
Else
DoCmd.Close
DoCmd.OpenForm "FrmRegistrarUser"
End If
End If
End If
End Sub

[@marcogamboal]

Asignar nombre al cuadro de texto: Usuario = txtUsuario
Asignar nombre al cuadro de texto: Contraseña = txtPass

[@oscarcruz8585]

​@@marcogamboal
Listo

[@jaimemartinromerorivadeney8395]

Cómo me contacto contigo?

[@CarlosGaelCABRERAAGUIRRE-jt2gg]

xd