filmov
tv
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
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
Комментарии