COMPARAR DOS STRING CON UN IF VBA ACCES USANDO LIKE

         ¿COMO COMPARAR DOS STRING EN VBA ACES?

¿PARA QUE COMPARAR DOS STRING?

   En ocasiones nos resulta necesario compara dos cadenas de texto con un if. Sé que parece que esto se puede hacer desde vista diseño en ACCES. Pero en mi caso necesitaba saber cuantas veces se repetía un registro de dirección en una tabla utilizando dos parámetros que se encontraban en el mismo campo.

           Si conocemos parte de la dirección y el código postal, que me diga todos los registros que coincidan. Por lo que en esta tabla deseo saber todas aquellas direcciones que contenga Lopez y pertenezca al 41008. A demás necesito introducir los datos por un msg box.

Id	dirección
1	c/ Lopez Perea del remedo,7 41008
2	c/ Lopez Perea del remedo,8 41008
3	c/ Lopez Perea del remedo,8 41008
4	c/ Lopez Perea del remedo,10 41008
5	c/ lopez, 10 41008
6	c/ de lopez 1, 41008
7	ddddddddd 41009
8	eeeeeeee 41111

¿COMO UTILIZAR EL OPERADOR Like en VBA?

Para esto existe el operador de comparación Like.

•       Declaramos dos variable boleana y dos String donde guardar nuestos inputbox.

Dim Comparador1, Comparador2 As Boolean

Dim calle, cp As String

• .       Ahora Cargamos los datos del InputBox en las variables calle y cp

direccion = InputBox("dime direcciín")

cp = InputBox("dime el CP")

•        Like nos regresara un true o false por lo que es fácil guardar este resultado en un bolean. En mi caso genere un recorset que se llama MIRECORSET (original el nombre. ¿no?).El primer dirección se refiere a la fila

Comparador1 =  MIRECORSET! direccion Like dirección

Comparador2 = MIRECORSET! dirección Like cp

If Comparador1 = true and Comparador2 = true Then

‘aquí escribe tu codigo

End if