Cuadro combinado filtra formulario como?

Tengo dos formularios (f1 y f2) independientes. En f1 hay un cuadro combinado con 3 opciones me gustaría programar que en función de la elección que haga en el cuadro combinado de f1, f2 se me filtren los resultados. De las 3 opciones 1 me gustaría que no filtrará nada y se puedan ver todos los registros, con la 2ª opción seleccionada en el cuadro combinado de f1, en f2 se me vayan a mostrar solo los resultados que tienen asociado la 2ª opción a su registro y lo mismo que la 2ª para la 3ª opción del cuadro combinado. No sé si podría ser o yo no me explico muy bien. Si puede ser explicado casi paso a paso, tengo algo de conocimientos pero esto se me escapa un poco.

1

1 Respuesta

851.875 pts. No responderé preguntas de usuarios que no valoren las...

Supongamos que tu cuadro combinado se llama cboFiltroProvincia y sus opciones son "Todas","Madrid"y "Barcelona". Supongamos que tienes un botón en F1 para abrir fF2

En el evento "Al hacer click" del botón, le generas este código:

Select Case Me.cboFiltroProvincia
    Case "Todas"
        DoCmd.OpenForm "F2"  'Abres sin filtrar
    Case "Madrid","Barcelona"
        DoCmd.OpenForm "F2",,,"Provincia='" & Me.cboFiltroProvincia & "'" 'Filtras por el valor elegido
    Case Else
        MsgBox "No es un valor válido", vbCritical,"ERROR
End Select

Un saludo


pongo el código en el botón y siempre me manda al CASE ELSE, es como si no leyera las opciones del cuadro combinado, decir que el formulario es independiente y el cuadro combinado creo que también. No se si me puedes ayudar, gracias.

Tendría que saber el origen de los valores del cuadro combinado para poder decirte...

Viene de un tabla llamada TPrueba con sus registros de texto llamados USER y PASS y su código es: SELECT [TPrueba].[USER] FROM [TPrueba]; cboIden

Me explico un poco más, en f1 escojo como dices, todas, madrid, barcelona, f2 es un formulario con cuadros combinados y cuadros de texto que traen información sobre esas ciudades, me gustaría que cuando escoja madrid, y me abra f2, este formulario solo me muestre los registros relacionados con madrid. Espero que me puedan ayudar. Gracias

Pues si realmente lo tienes así, el código propuesto te tiene que funcionar.

Si quieres saber qué valor devuelve el cuadro combinado en cada caso, pon MsgBox Me. CboFiltroProvincia, y los valores que te devuelva son los que has de usar en los distintos "Case".

Si pones aquí el código que usas, quizás vea lo que te falla...

Ok, el código me funciona pero no me filtra, es como si no hiciera nada, f2 es como tu ejemplo de formulario de formularios independientes 1, con este código al abrir que igual puede ser culpa:

Private Sub Form_Load()

    Set rsDatos = CurrentDb.OpenRecordset("SELECT * FROM TDatos", dbOpenDynaset)

    misRegistros = rsDatos.RecordCount

    If misRegistros = 0 Then  ' Si no hay registros

        bolNuevo = True

        modoLectura False

        Me.EXPEDIENTE.SetFocus

    Else

        modoLectura True

    End If

End Sub

Y lo que me gustaría en el botón de aceptar en f1 para llevarme a f2 es que ademas del código de filtrar:

Private Sub Comando7_Click()

Select Case Me.cboUser.Value

    Case "Todas"

        DoCmd.OpenForm "F2"  'Abres sin filtrar

    Case "Madrid"

        DoCmd.OpenForm "F2", , , "Tuser='" & Me.cboUser & "'" 'Filtras por el valor elegido

    Case "Barcelona"

        DoCmd.OpenForm "F2", , , "Tuser='" & Me.cboUser & "'"

    Case Else

        MsgBox "No es un valor válido", vbCritical, "ERROR"

End Select

End Sub

Y además tenga el código(este me funciona perfectamente) para acceder con contraseña por elección también en combobox:

Dim vUser As Variant

    Dim vPass As Variant

    vUser = Me.cboUser.Value

    vPass = Me.txtpass.Value

    If IsNull(vUser) Then

        MsgBox "No ha seleccionado ningún usuario", vbInformation, "AVISO"

        Me.cboUser.SetFocus

        Exit Sub

    End If

    If IsNull(vPass) Then

        MsgBox "No ha introducido ninguna contraseña", vbInformation, "AVISO"

        Me.txtpass.SetFocus

        Exit Sub

    End If

    Dim rst As Recordset

    Set rst = CurrentDb.OpenRecordset("TPrueba", dbOpenSnapshot)

    If rst.RecordCount = 0 Then

        MsgBox "No existen usuarios", vbInformation, "AVISO"

        GoTo Salida

    End If

    rst.MoveFirst

    Do Until rst.EOF

        Dim Tuser, Tpass As String

        Tuser = rst.Fields(0).Value

        Tpass = rst.Fields(1).Value

        If Tuser = vUser Then

            If Tpass = vPass Then

                DoCmd.Close acForm, Me.Name

                DoCmd.OpenForm "F2"

            Else

                MsgBox "La contraseña introducida no es correcta", _

                    vbInformation, "INCORRECTO"

                Me.txtpass.SetFocus

                Me.txtpass.Value = Null

                GoTo Salida

            End If

        End If

       rst.MoveNext

    Loop

Salida:

    rst.Close

    Set rst = Nothing

End Sub

Espero que no sea muy engorroso y puedas ayudarme con el tema del filtrado de f2 a raiz de elección de un combox en f1, gracias.

F2 es como tu ejemplo de formulario de formularios independientes 1

Si hubieses empezado por ahí, te habría dado la solución a la primera, porque al ser los formularios independientes, es imposible que te filtre directamente sobre el formulario... Y de momento adivino no soy para saber cómo son las BDs de los usuarios que preguntan, jejeje...

Verás, con esta linea (Set rsDatos = CurrentDb.OpenRecordset("SELECT * FROM TDatos", dbOpenDynaset)), al abrir el formulario f2, cargas (en una variable rsDatos, que no en el formulario) todos los registros de la tabla TDatos, y luego más adelante (con cargaDatos) los vas mostrando en los controles del formulario.

Si quisieras filtrar solo los de "Madrid", la linea anterior tendría que ser:

Set rsDatos = CurrentDb.OpenRecordset("SELECT * FROM TDatos WHERE Provincia='Madrid'", dbOpenDynaset)

¿Ves por dónde voy?

Lo que has de hacer es comprobar, en el form_load de f2, varias cosas:

1º/ si f1 está cargado o no: si no lo está, cargas en el recordset todos los registros, y si lo está compruebas lo siguiente.

2º/ si el combo tiene un valor "todos" o no: si lo tiene, cargas todos los registros de la tabla, si no, cargas solo los del usuario (o provincia, o lo que quieras filtrar) seleccionado.

A ver si te sale.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas