Access - Formulario de Busqueda con Varios Filtros

Val: 1

Formulario de Busqueda con Varios Filtros

Publicado por DreamerMX® (10 intervenciones) el 06/02/2005 22:12:04

Hola a todos.

Tengo que realizar un Formulario de Busqueda con VARIOS FILTROS a la vez (Como en el Ejemplo que muestro en el jpg adjunto o en la url) .... Como puedo realizar esto?

Realmente estoy perdido, soy bastante NOVATO en estos temas asi que agradeceria infinitamente me den bien detalladas las pautas que debo seguir o en el mejor de los casos un ejemplo en MDB.

Desde ya, muchisimas gracias a todos.

Adrian.-

http://members.tripod.com.mx/cadesign/access/formulariofiltros.jpg

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Formulario de búsqueda con varios filtros

Publicado por Alejandro (4142 intervenciones) el 24/05/2023 22:06:46

Para crear un formulario de búsqueda con varios filtros en Access, puedes seguir estos pasos:

1. Abre tu base de datos en Access y ve al modo de diseño de formularios.

2. Agrega los controles necesarios para tus filtros de búsqueda, como cuadros de texto, cuadros combinados o botones de opción. Puedes colocarlos en una sección de encabezado para mantenerlos visibles en todo momento.

3. Para cada control de filtro, establece las propiedades adecuadas. Por ejemplo, puedes establecer la propiedad "ControlSource" del cuadro de texto para que se vincule a un campo de la tabla.

4. Crea un botón de búsqueda y asigna el siguiente código VBA al evento "Click" del botón:

Private Sub btnBuscar_Click()

    Dim strFiltro As String

    Dim strWhere As String

    ' Construir el filtro en base a los valores de los controles de filtro

    If Not IsNull(Me.txtCampo1) Then

        strFiltro = "Campo1 = '" & Me.txtCampo1 & "'"

    End If

    If Not IsNull(Me.cboCampo2) Then

        If Len(strFiltro) > 0 Then

            strFiltro = strFiltro & " AND "

        End If

        strFiltro = strFiltro & "Campo2 = '" & Me.cboCampo2 & "'"

    End If

    ' Construir la cláusula WHERE completa

    If Len(strFiltro) > 0 Then

        strWhere = "WHERE " & strFiltro

    End If

    ' Aplicar el filtro al formulario

    Me.Filter = strWhere

    Me.FilterOn = True

End Sub

Este código construirá dinámicamente una cláusula WHERE en función de los valores de los controles de filtro. Luego, aplicará el filtro al formulario para mostrar solo los registros que cumplan con las condiciones especificadas.

Recuerda adaptar el código según los nombres de tus campos y controles en tu base de datos.

Espero que esto te ayude a crear un formulario de búsqueda con varios filtros en Access. ¡Buena suerte con tu proyecto!

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar