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
…