Búsqueda DLOOKUP diferenciando mayúsculas y minúsculas
Hola apreciado experto Santiago:
¿Me podrías decir si hay alguna forma de que al realizar una búsqueda con DLOOKUP me devuela FALSE si el texto a buscar no coinciden con exactitud las mayúsculas y minúsculas?
Yo estoy utilizando el siguiente código:
Permiso = DLookup("[Vendedores].[NombreVendedor]", "[Vendedores]", "[NombreVendedor] Like '" & Forms![VENTAS]![NombreVendedor].Value & "*'")
Y el problema que me pantea que en ocasiones la variable "Permiso" es TRUE cuando me compara Jose Antonio con JOSE ANTONIO, cuando lo que necesito es que me devuelva FALSE.
Muchas gracias amigo experto.
¿Me podrías decir si hay alguna forma de que al realizar una búsqueda con DLOOKUP me devuela FALSE si el texto a buscar no coinciden con exactitud las mayúsculas y minúsculas?
Yo estoy utilizando el siguiente código:
Permiso = DLookup("[Vendedores].[NombreVendedor]", "[Vendedores]", "[NombreVendedor] Like '" & Forms![VENTAS]![NombreVendedor].Value & "*'")
Y el problema que me pantea que en ocasiones la variable "Permiso" es TRUE cuando me compara Jose Antonio con JOSE ANTONIO, cuando lo que necesito es que me devuelva FALSE.
Muchas gracias amigo experto.
1 Respuesta
Respuesta de santiagomf
1
Se me ocurre una pequeña 'burrada' que funciona.
Crea una función que te codifique de diferente forma los caracteres en mayúsculas y en minúsculas. Un ejemplo podría ser:
Function cambiarCaracteres255(ByVal txt As Variant) As Variant
Dim i As Integer
If IsNull(txt) Then
cambiarCaracteres255 = Null
Else
For i = 1 To Len(txt)
Mid$(txt, i, 1) = Chr$(255 - Asc(Mid$(txt, i, 1)))
Next i
cambiarCaracteres255 = txt
End If
End Function
Ahora sólo tienes que usar la función en la condición del 'dlookup' poniendo:
"cambiarCaracteres255([NombreVendedor]) Like cambiarCaracteres255('" & Forms![VENTAS]![NombreVendedor].Value & "*')"
Sé que es una chapuza, pero funcionará.
Crea una función que te codifique de diferente forma los caracteres en mayúsculas y en minúsculas. Un ejemplo podría ser:
Function cambiarCaracteres255(ByVal txt As Variant) As Variant
Dim i As Integer
If IsNull(txt) Then
cambiarCaracteres255 = Null
Else
For i = 1 To Len(txt)
Mid$(txt, i, 1) = Chr$(255 - Asc(Mid$(txt, i, 1)))
Next i
cambiarCaracteres255 = txt
End If
End Function
Ahora sólo tienes que usar la función en la condición del 'dlookup' poniendo:
"cambiarCaracteres255([NombreVendedor]) Like cambiarCaracteres255('" & Forms![VENTAS]![NombreVendedor].Value & "*')"
Sé que es una chapuza, pero funcionará.
