COMO CREAR UN SISTEMA DE BIBLIOTECA EN ACCESS 2016




About this tutorial:

Video duration: 02:00:09
COGIDO DEL LOGIN:
Dim IdUsuario As Integer

If InStr(Me.txtUsuario, “‘”) = 0 And InStr(Me.txtUsuario, “‘”) = 0 Then
If DCount(“*”, “Usuarios”, “[Usuario] = ‘” & Me.txtUsuario & “‘ AND [Pass] = ‘” & Me.txtPass & “‘”) Then
IdUsuario = DLookup(“[Id_Usuario]”, “Usuarios”, “[Usuario]= ‘” & Me.txtUsuario & “‘ AND [Pass] = ‘” & Me.txtPass & “‘”)
DoCmd.OpenForm “FormPrincipal”, , , , , , IdUsuario
DoCmd.Close acForm, “FormLogin”
Else
MsgBox “Usuario o contraseña incorrectos”, vbExclamation, “Aviso”
End If
Else

Post Author: OfficeTutes.com

Apple lover, ICT and LEAN consultant, MS Office lecturer My other website with video tutorials - Tutorials, guides and news for iPhones and iPads