Filtrar por varios campos a través de una elección sobre cuadro combinado
Publicado por Domingo (7 intervenciones) el 17/11/2012 12:46:42
Hola compañeros,
En un formulario tengo 4 campos que se cumplimentan por elección en lista desplegable (cuadros combinados con los mismos valores, pues un registro puede tener hasta cuatro de esos valores). Necesito efectuar un filtrado que devuelva todos los registros que, en cualquiera de esos cuadros combinados (=campos) aparezca el valor que elijamos de una lista.
He creado el siguiente código, pero alguna tontería se me escapa porque me da "error en tiempo de ejecución: No coinciden los tipos de datos en la expresión de criterios". ¿Podrían echarme un cabo?
Private Sub selTipoOVP_Click()
Form.RecordSource = "Select * from 1_General where (Tipo_de_Espacio_abierto1 or Tipo_de_Espacio_abierto2 or Tipo_de_Espacio_abierto3 or Tipo_de_Espacio_abierto4)='" & Form!selTipoOVP.Value & "'"
Me.Refresh
End Sub
--
Donde "selTipoOVP" es el cuadro combinado cuyos valores proceden de la tabla "Tipo de espacio abierto" y son los que usamos para filtrar, y
"Tipo_de_Espacio_abierto1" (hasta el 4) son los campos en los que se van acumulando los valores y sobre los que deseamos hacer la búsqueda. Sus valores también proceden de la tabla "Tipo de espacio abierto", que sólo tiene dos columnas: Id (autonumérico) y Tipo (texto).
Espero haberme explicado. De antemano,
Gracias por vuestra ayuda.
Saludos,
Domingo
En un formulario tengo 4 campos que se cumplimentan por elección en lista desplegable (cuadros combinados con los mismos valores, pues un registro puede tener hasta cuatro de esos valores). Necesito efectuar un filtrado que devuelva todos los registros que, en cualquiera de esos cuadros combinados (=campos) aparezca el valor que elijamos de una lista.
He creado el siguiente código, pero alguna tontería se me escapa porque me da "error en tiempo de ejecución: No coinciden los tipos de datos en la expresión de criterios". ¿Podrían echarme un cabo?
Private Sub selTipoOVP_Click()
Form.RecordSource = "Select * from 1_General where (Tipo_de_Espacio_abierto1 or Tipo_de_Espacio_abierto2 or Tipo_de_Espacio_abierto3 or Tipo_de_Espacio_abierto4)='" & Form!selTipoOVP.Value & "'"
Me.Refresh
End Sub
--
Donde "selTipoOVP" es el cuadro combinado cuyos valores proceden de la tabla "Tipo de espacio abierto" y son los que usamos para filtrar, y
"Tipo_de_Espacio_abierto1" (hasta el 4) son los campos en los que se van acumulando los valores y sobre los que deseamos hacer la búsqueda. Sus valores también proceden de la tabla "Tipo de espacio abierto", que sólo tiene dos columnas: Id (autonumérico) y Tipo (texto).
Espero haberme explicado. De antemano,
Gracias por vuestra ayuda.
Saludos,
Domingo
Valora esta pregunta
0