Tutorial crear login usuarios, contraseña en Access 2007 - 2010 - Español

Proximo en el canal abra un video para explicar el codigo y resolver dudas.... en link para descargar el codigo a continuación..

Creacion de login para varios usuarios en Access por medio de codigo de VisualBasic y formularios.

Link descarga codigo:

[senencanizares]

Pero hay que cambiar el nombre de las tablas ("Admin" y "usuario") y también lo de "login" y "Password" por "Usuario" y "Clave"

Un saludo,

[MsManfred]

Estimado Leonardo... Lo felicito por su tutorial...

Mas alla de si el tutorial se adapta a no o nuestras bases de datos, lo importante es que se ha dado el tiempo y la paciencia de compartirlo con todos nosotros... El ver su tutorial me ha dado ideas de como mejorar mis bases de datos en Access... 

Muchas gracias por su tiempo y paciencia. Saludos desde Chile...

[edwinloga]

Amigos aquí el código con una modificación para que jale lo del numero de intentos:


Option Compare Database
Option Explicit
Dim NumIntentos As Integer


Private Sub CmdEntrar_Click()
Dim AuxContraseña As String
'comprobamos que hay datos en las cajas de texto
If Nz(TxtLogin.Value, "") = "" Then
MsgBox "Seleccione un nombre de la lista para poder acceder", vbInformation, "ATENCION"
Me.TxtLogin.SetFocus
ElseIf Nz(Me.TxtPassword.Value, "") = "" Then
MsgBox "Introduzca la contraseña del usuario seleccionado", vbInformation, "ATENCION"
Me.TxtPassword.SetFocus

Else

If Nz(DLookup("Password", "Usuarios", "Id_Usuario=" & Me![TxtLogin]), "") <> "" Then
AuxContraseña = DLookup("Password", "Usuarios", "Id_Usuario=" & Me![TxtLogin])
End If

If AuxContraseña <> Me.TxtPassword.Value Then
If NumIntentos < 1 Then
NumIntentos = 1
MsgBox "La contraseña introducida es incorrecta" & vbCrLf & _
"Le queda " & NumIntentos & " intento" & vbCrLf & vbCrLf & _
"Por favor, introduzca otra", vbExclamation, "INTRODUCCION INCORRECTA"
Me.TxtPassword.Value = ""
Me.TxtPassword.SetFocus

Else

MsgBox "Ha superado el número de intentos", vbCritical, "ADIOS..."
DoCmd.Close acForm, Me.Name 'y cerramos el acceso

End If

Else
If DLookup("Id_Acceso", "Usuarios", "Id_Usuario=" & Me![TxtLogin]) = 1 Then
MsgBox "Ha entrado el administrador, mostramos todas las tablas", vbInformation, "BIENVENIDO ADMINISTRADOR"
Call Admin

Else

MsgBox "Ha entrado un Usuario, ocultamos todas las tablas", vbInformation, "BIENVENIDO USUARIO"
Call Usuar

End If

'DoCmd.OpenForm stDocName, , , stLinkCriteria 'Abrimos el formulario correspondiente
DoCmd.Close acForm, Me.Name ' y cerramos el de acceso

End If

End If

End Sub
Function Admin()
On Error GoTo Admin_Err
DoCmd.OpenForm "Admin", acNormal, "", "", , acNormal
Admin_Exit:
Exit Function

Admin_Err:
MsgBox Error$
Resume Admin_Exit

End Function
Function Usuar()
On Error GoTo Usuar_Err
DoCmd.OpenForm "Usuario", acNormal, "", "", , acNormal
Usuar_Exit:
Exit Function
Usuar
_Err:
MsgBox Error$
Resume Usuar_Exit
End Function

Private Sub Comando13_Click()

End Sub

[LuIsJ]

es la primera vez que realizo un comentario en un video y tengo muchisimo tiempo con este usuario pero aprovecho para FELICITARTE POR TU EXPLICACION lo haz hecho de maravilla felicidades lo hicistes en el 2011 y me ayudo en el 2015 jejeje

[caleman]

Muchas garcías... se que debo ver el vídeo varias veces y ademas si el codigo no esta debo buscar datos de como crear ese tipo de códigos, de hecho en la universidad dan clases de eso pero no he practicado lo suficiente como ara comprender la lógica del código, de todas formas es muy interesante las configuraciones que usted da a las tablas para crear un login Gracias de veras que si...

[gama]

Con permiso del autor, y excusa por la
¿ alguien nesesita el codigo..????
Nota: fecha y hora actual cogenlada por ingresa por primera vez. 

[daigorotunnertoy]

Esta bien explicado el tutorial, pero hay dos detalles importantes, el primero es que el codigo no hace que el formulario de ingreso se autoejecute al iniciar access y si haces una macros para que se autojecute ocurre un error, eso le falta al codigo y  segundo ese mensaje que muestra de "bloqueamos las tablas" o "mostramos las tablas" no tiene sentido porque el codigo no bloquea o desbloquea las tablas y en la practica eso es lo que realmente hace la diferencia entre ingresar como usuario y como admin. Tu codigo esta bueno pero terminalo para que realmente sea funcional.

[rodrigosantana]

Excelente video muchas gracias!!! si bien el código no oculta las tablas y demás formularios podemos esconderlos desde el panel de navegación y funciona perfecto..

Muchas gracias por el tutorial, saludos

[joseluis]

k bueno k las personas como este broder k hace sus videos tutoriales ayudan mucho a las personas sean de muy buen aporte no como otros k suben puras wevadas ...

[victorpinaaguilar]

¡Mil gracias! Nos has enseñado la solución que he buscado por meses.

[EugenioCriado]

Leonard,   Gracias por tu explicación y el código...  estaba atascado.  cuando lo adapte  a mi bbdd te comento

[nelsonperez]

era justo lo que estaba buscando, lo de poner asteriscos a la caja de texto gracias y te ganaste otro like.

[manuelcgl]

El videotutorial está magnífico y estaba buscando esto desde hace meses sin exito, hasta ayer. He seguido tus pasos pero debo de hacer algo mal que no me funciona.
Si puedes y si quieres podrias enviarme la BD tuya, te lo agradecería un monton.
Ánimo y a seguir posteando tan magistralmente.
Gracias nuevamente

[ariaslcesar]

Hola Leonard, Muy bueno, Gracias...
Solucion para tener el codigo!
Dado que para descargar el archivo se requiere de una cuenta premium y la mayoria no tenemos, pues facil: hagan una impresion de pantalla (por partes) a la sintaxis mostrada en el video, la imprimen en papel y luego la escriben. Creo que es mas beneficioso porque te ayuda a comprender lo que pasa en el codigo!

[EDWARDGUTIERREZ]

Buenas tardes a todos, como ustedes tenía problemas con la bitacora, pero la soución es algo sencillo de hacer; en el formulario ingreso vamos a las propiedades, en la pestaña eventos, donde dice al abrir, incrustamos una macro en accion le damos IrARegistro, tipo de objeto, formulario, "nombre del formulario de ingreso", Registro nuevo, lo guardamos, y al abrir nuevamente el formulario, ya almacena todos los ingresos a la bitácora, espero les sea de utilidad.

[jcesar]

Tienes que modificar la propiedad del formulario Ingreso: Datos---> Entrada de datos --> Si
Para que el formulario cree un nuevo registro cuando se abre.
Y gracias por este aporte.

[diablo]

muy buena explicacion, tengo que hacer varios informes y crear base de datos con usuarios y password, era exactamente lo que queria gracias :P

[gonzalogonzalo]

Sos un genio! Muy bien explicado y funcional!!! Te hace pensar al corregir algunas cositas y eso esta buenisimo!!! Te voy a visitar todos los dias

[Wagbermarinsjc]

Hola!! Eu Sou Brasileiro, e fico feliz por ter pessoas pessoas como você a se dedicar em atribuir seus conhecimento para todo!!!
Muito Grato Pele Aula!!!

[clase]

Man esta palabra "TEXTO" no se lee (NO se pronuncia) testo.
Despues tu tutorial me sirvio, gracias.