Buenas estoy realizando un login con macros pero me valida el usuario siempre me dice usuario incorrecto

Private Sub btnEntrar_Click()

Dim usuario, clave As String
Dim respuestaClave As Variant
Dim textoRespuestaClave As String
Dim rango As Range
Set rango = Worksheets("USUARIO").Range(Cells(4, 1), Cells(4, 4))
usuario = txtUsuario.Value
clave = txtClave.Value
respuestaClave = Application.VLookup(usuario, rango, 3, False)
textoRespuestaClave = CStr(respuestaClave)
If textoRespuestaClave <> "Error 2042" Then
If respuestaClave = clave Then
MsgBox ("Clave Correcta")
Else
MsgBox ("Contraseña Incorrecta")
End If
Else
MsgBox ("Usuario no Existe")
End If
End Sub

2 Respuestas

Respuesta
1

Si quieres guiate de aquí https://www.todoexpertos.com/preguntas/9kefrvbfhjsovbjl/inicio-de-sesion-con-usuario-y-contrasena-en-access?selectedanswerid=9kejvmqv7m76m6w9&nid=a8omhtkna8pq9u6lggnpfu4nhbw63hksggm6jseeh4qprgmrgcrqbsmcabr3  el usuario Julián González Cabarcos  me guio en este y funciona muy bien. Me paso la db si la necesitas avisa. 

Respuesta

H0la Norma:

Sería interesante ver tu tabla de usuarios, ya que esta línea extra el rango A4:D4

Set rango = Worksheets("USUARIO").Range(Cells(4, 1), Cells(4, 4))

Entonces la siguiente, si bien debiera funcionar, no se justifica para una sola fila

respuestaClave = Application.VLookup(usuario, rango, 3, False)

Por lo tanto, te recomiendo revisar eso y además verificar despues de esta línea, en tiempo de ejecución, cuál es el contenido de la variable clave y respuestaClave.

Si no sabes cómo detener el código, lo puedes hacer poniendo un MsgBox que te muestre ambas variables

MsgBox "Clave: " & clave & ", respuestaClave: " & respuestaClave

Así podrás ver si estás recibiendo lo que se supone, debieras recibir, de otra forma, tienes que buscar dónde está el error.

Sólo teniendo tu macro, es complicado poder ayudarte más.

S@lu2

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Conocer en VBA donde se encuentran las bases de Datos

Necesito a través de VBA conocer el emplazamiento de las Bases de Datos.
3 respuestas

¿Cómo hacer una copia del libro activo en Excel VBA?

Quiero una macro para crear una copia del libro activo con otro nombre en la misma ruta y con diferente nombre, cuando haga la copia (sera un libro .xlsm" ) habilitado para macros. Una vez hecha la copia (no se abre) y mi libro original que cierre...
1 respuesta

Filtrar un Formulario con vba para un único valor

Necesito filtrar en vba un form para un solo numero o números. Busco extraer los valores que necesito unicamente cuando los solicite en Campos numéricos pero solo los que contengan unicamente el valor solicitado. Encontrar los valores que sen igual a...
2 respuestas

Poner una x cuando doy click en una label y si doy otro click quitar la x

Tengo varias labels en un formulario: estoy usando este código pero seria mucho código. Private Sub Label31_Click() If Label31 = "" Then Label31.Caption = "X" Else Label31.Caption = "" End If End Sub Como hacerle para mejorar el código
1 respuesta

ACCESS: Crear campo tipo combo con codigo vba en tabla

Tengo qu hacer una importacion y en access creo una tabla y un campo necsitaria que sea tipo combo, porque correspode a un valor con id y nombre.. ¿Se entiende? El campo lo creo asi: Set campo = tabla.CreateField("PROVEEDOR", dbText) Tabla. Fields....
2 respuestas

Bloquear celdas al escribir y poder actualizar solo por medio de Formulario VBA

Profesionales me dirijo hacia ustedes con el motivo que deseo bloquear varias hojas de un libro, que la información solo se pueda ingresar por medio del formulario y la actualización de los datos sea por el mismo formulario.
1 respuesta

Varias opciones en AutoFilter de VBA EXCEL

Estoy intentado seleccionar varias opciones en un mismo AutoFilter en VBA EXCEL pero con Array solo consigo 2, alguien sabe como hacer más opciones. El código que utilizo es : Range("A1").AutoFilter FIELD:=1, Criteria1:=Array("Pantalones" & "*",...
2 respuestas

Pegar datos de una celda de Excel a otra celda, creando un ciclo for.

Necesito un ciclo que copie los datos de la celda G41 y los pegue en la celda D11, luego los datos de la celda G72 a la celda D42 y así sucesivamente hasta la celda 2000, se van incrementando de a 31 celdas.
3 respuestas

Correcto formato para Buscar Fechas con VLookup en Excel VBA

Estimados Expertos Muy cordiales saludos. Me encuentro entrampado en algo muy simple, pero que no había tocado, búsqueda de fecha usando application. Worksheetfunction. Vlookup Me propuse un cuadro simple, para buscar fechas, para tratar de ser más...
3 respuestas