Búsqueda DLookup diferenciando Mayúsculas y minúsculas
Hola Santiago, he intentado hacer funcionar tu código para buscar el nombre de usuario diferenciando las mayúsculas de las minúsculas. Y la verdad es que la función cambiarCaracteres255 funciona de maravilla, pero la expresión DLookup no funciona. ¿Puedes ayudarme?
Permiso = DLookup("[Usuarios].[Password]", "[Usuarios]", "cambiarCaracteres255([Password])Like cambiarCaracteres255('" & Forms![frmAutentificar]![KeyPassword].Value & "*')")
¿Qué es lo que está mal?
Permiso = DLookup("[Usuarios].[Password]", "[Usuarios]", "cambiarCaracteres255([Password])Like cambiarCaracteres255('" & Forms![frmAutentificar]![KeyPassword].Value & "*')")
¿Qué es lo que está mal?
Respuesta de santiagomf
1
Te dejo la instrucción como creo que deberías ponerla:
Permiso = DLookup("[Password]", "[Usuarios]", _
"cambiarCaracteres255([Password])Like " & _
"'" & cambiarCaracteres255(Forms![frmAutentificar]![KeyPassword].Value) & "*'")
De todas formas, si se refiere al mismo control de acceso que teníamos en la consulta de antes, podrías cambiar donde te ponía:
snOk = (rst!NombreUsuario = Forms![frmAutentificar]![NombreUsuario].Value) And _
(rst!Password = Forms![frmAutentificar]![KeyPassword].Value)
Y poner:
snOk = (cambiarCaracteres255(rst!NombreUsuario) = cambiarCaracteres255(Forms![frmAutentificar]![NombreUsuario].Value)) And _
(cambiarCaracteres255(rst!Password) = cambiarCaracteres255(Forms![frmAutentificar]![KeyPassword].Value))
Permiso = DLookup("[Password]", "[Usuarios]", _
"cambiarCaracteres255([Password])Like " & _
"'" & cambiarCaracteres255(Forms![frmAutentificar]![KeyPassword].Value) & "*'")
De todas formas, si se refiere al mismo control de acceso que teníamos en la consulta de antes, podrías cambiar donde te ponía:
snOk = (rst!NombreUsuario = Forms![frmAutentificar]![NombreUsuario].Value) And _
(rst!Password = Forms![frmAutentificar]![KeyPassword].Value)
Y poner:
snOk = (cambiarCaracteres255(rst!NombreUsuario) = cambiarCaracteres255(Forms![frmAutentificar]![NombreUsuario].Value)) And _
(cambiarCaracteres255(rst!Password) = cambiarCaracteres255(Forms![frmAutentificar]![KeyPassword].Value))
Muchas gracias Santiago, aunque ya lo había solucionado utilizando:
Dim Compara as Variant
Compara = StrComp(rst![Password], Forms![frmAutentificar]![KeyPassword].Value, 0)
If Compara = 0 Then
rst.Edit
rst!Intentos = 0
rst.Update
DoCmd.Close acForm, "frmAutentificar"
DoCmd.OpenForm "PANEL DE CONTROL"
End if
P.D.: Sigues siendo mi ídolo :-)
Dim Compara as Variant
Compara = StrComp(rst![Password], Forms![frmAutentificar]![KeyPassword].Value, 0)
If Compara = 0 Then
rst.Edit
rst!Intentos = 0
rst.Update
DoCmd.Close acForm, "frmAutentificar"
DoCmd.OpenForm "PANEL DE CONTROL"
End if
P.D.: Sigues siendo mi ídolo :-)
