Imprimir página | Cerrar ventana

Varios Criterios de Buqueda

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85605
Fecha de impresión: 21/Enero/2021 a las 09:42


Tema: Varios Criterios de Buqueda
Publicado por: simonpru
Asunto: Varios Criterios de Buqueda
Fecha de publicación: 13/Noviembre/2020 a las 18:29
Buenas no se si ha comentado por aqui, tengo una tabla y quiero crear un formulario de busqueda que contenga varios campos, pero puede ser que los campos lleven algun valor o no, y el resultado que aparezca en otro formulario.

No se si me he explicado bien.

Gracias de antemano.

Un saludo.




Respuestas:
Publicado por: xavi
Fecha de publicación: 13/Noviembre/2020 a las 19:48
Hola,

El escenario que planteas es ambiguo y deja lugar a interpretaciones así que interpretaré mediante un ejemplo.

Tienes un formulario con los controles para filtrar y otro formulario basado en la tabla (imaginemos clientes) a la que quieres aplicar los filtros para acotar la cantidad de registros.

Inicias el criterio con algo que se cumpla siempre: que IdClientes (un autonumerico en la tabla de clientes) sea <> 0
strCriterio = "IdClientes <> 0 "

A partir de aquí evalúas si hay filtros aplicables.

If Me!cboFiltroComercial <> 0 Then
  strCriterio = strCriterio & "AND Comercial = " & Me!cboFiltroComercial & " "
End If

If Me!txtRazonSocial <> "" Then
  strCriterio = strCriterio & "AND RazonSocial Like '*" & Me!txtRazonSocial & "*' "
End If

Y así con todos los criterios. Al final acabas con una cadena de filtro que puedes utilizar en el argumento WhereCondition del OpenForm.

¿Te vale?

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: simonpru
Fecha de publicación: 20/Noviembre/2020 a las 16:57
Gracias Crack, se puede cerrar el tema




Imprimir página | Cerrar ventana