none
Como filtrar uma query através do VBA? RRS feed

  • Pergunta

  • Estou a construir uma BD. No menu tenho caixas de texto que mostram os diveros campos e tenho uma listbox que acompanha os valores mostrados nas caixas de texto.

    O problema surge quando preciso filtrar os dados.

    Se fizer uma filtragem por formulário a lista que acompanha os resultados não actualiza, mostrando na mesma todos os resultados. Além que no relatório gerado o filtro também não é aplicado.

    Como faço para que quando eu filtre os dados a lista seja actualizada e os relatórios também surjam filtrados?!?!

    Eu penso que tenho de fazer o filtro actuar na query, mas não sei como.

    Alguém me ajuda?

    URGENTE
    quarta-feira, 6 de janeiro de 2010 23:30

Respostas

  • muda, como querias....eu fiz isto a bastante tempo. agora trabalho com .NET, mais deve servir:

    On Error Resume Next
            Dim QueryFirstName As String
            Dim SearchFirstName As String
            SearchFirstName = InputBox("Type the name that you want to find. Thanks", "Find First Name")

            QueryFirstName = (" SELECT STUDENT.FirstName, STUDENT.ID, STUDENT.StudentID, STUDENT.Title, STUDENT.LastName, STUDENT.StreetName, STUDENT.City, STUDENT.PostCode, STUDENT.Telephone, STUDENT.Email, STUDENT.DOB " & _
                            "FROM STUDENT " & _
                            "WHERE STUDENT.FirstName= '" & SearchFirstName & "'")

            'QueryFistName = ("Select FirstName From Student Where FirstName = '" & SearchFirstName & "'")

            Ors = New ADODB.Recordset

            Ors.Open(QueryFirstName, Cnnn, ADODB.CursorTypeEnum.adOpenStatic)

            If Ors.EOF Then
                MsgBox("Nao exist Este Nome: " & SearchFirstName, MsgBoxStyle.Information, "Find Name")

            Else

                With Ors
                    lblStudentId.Text = .Fields!ID.Value
                    ComboBox1.Text = .Fields!Title.Value
                    txtFirstName.Text = .Fields!FirstName.Value
                    txtLastName.Text = .Fields!LastName.Value
                    txtStreetName.Text = .Fields!StreetName.Value
                    txtCity.Text = .Fields!City.Value
                    txtPostCode.Text = .Fields!PostCode.Value
                    txtTelephone.Text = .Fields!Telephone.Value
                    txtEmail.Text = .Fields!Email.Value
                    txtDB.Text = .Fields!DOB.Value
                    TxtStudentNumber.Text = .Fields!StudentID.Value

                End With
            End If


        End Sub


    Just Be Humble Malange!
    sexta-feira, 8 de janeiro de 2010 15:56