[Resolvido]Campo de pesquisa texto em um Form levando em conta outro campo texto para uma listbox

Boa tarde,

Tenho um Formulário de consulta de notas fiscais onde tem um campo texto "txt1" para consultar por Fornecedor em uma listbox só que quero um outro campo texto "txt2" para consultar a Data do Faturamento levando em conta o filtro usado no campo de consulta de fornecedor "txt1".

exemplo: se eu digitar a letra "M" no "txt1" a listbox filtrará os fornecedores que começam com a letra "M", e se eu digitar o inicio da data "15" no campo "txt2" ele filtre as notas do fornecedor que começem com a letra "m" na data "15".

'codigo que uso para o "txt1"

Private Sub PesquisaEntradaPesquisa_Change()
On Error Resume Next

Dim txtName As String
txtName = Me.PesquisaEntradaPesquisa.Text
If txtName = "" Then
Me.ListaEntradaPesquisa.RowSource = _
"SELECT ConsultaEntrada.CodEntrada,ConsultaEntrada.Fornecedor,ConsultaEntrada.NotaFiscal," _
& " ConsultaEntrada.DataFaturamento,ConsultaEntrada.ValorNota,ConsultaEntrada.DataRecebimento," _
& " ConsultaEntrada.TipoPagamento,ConsultaEntrada.Transportadora,ConsultaEntrada.Boleto," _
& " ConsultaEntrada.Responsavel" _
& " FROM ConsultaEntrada" _
& " ORDER BY ConsultaEntrada.DataFaturamento DESC;"
Else
Me.ListaEntradaPesquisa.RowSource = _
"SELECT ConsultaEntrada.CodEntrada,ConsultaEntrada.Fornecedor,ConsultaEntrada.NotaFiscal," _
& " ConsultaEntrada.DataFaturamento,ConsultaEntrada.ValorNota,ConsultaEntrada.DataRecebimento," _
& " ConsultaEntrada.TipoPagamento,ConsultaEntrada.Transportadora,ConsultaEntrada.Boleto," _
& " ConsultaEntrada.Responsavel" _
& " FROM ConsultaEntrada" _
& " WHERE (((ConsultaEntrada.Fornecedor) Like '" & txtName & "%'))" _
& " ORDER BY ConsultaEntrada.DataFaturamento DESC;"
End If

End Sub

como seria o codigo para o txt2?

desde já agradeço.

Veja estes códigos que selecionam em uma list box... dois critério: Descrição e Código:
Este não fltra.. apenas seleciona a linha
Veja se lhe serve


Private Sub txtDescricao_Change()
    On Error Resume Next
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.txtDescricao.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To ltxListaProdutos.ListCount - 1
            strList = Me.ltxListaProdutos.Column(3, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.ltxListaProdutos.Selected(i) = True
                Me.ltxListaProdutos = Me.ltxListaProdutos.Column(0)
                Selecionado = True
                Exit For
            Else
                Me.ltxListaProdutos.Selected(i) = False
                Selecionado = False
            End If
        Next
    End If
End Sub



Private Sub txtCodigoBarras_Change()
    On Error Resume Next
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.txtCodigoBarras.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To ltxListaProdutos.ListCount - 1
            strList = Me.ltxListaProdutos.Column(1, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.ltxListaProdutos.Selected(i) = True
                Me.ltxListaProdutos = Me.ltxListaProdutos.Column(0)
                Selecionado = True
                Exit For
            Else
                Me.ltxListaProdutos.Selected(i) = False
                Selecionado = False
            End If
        Next
    End If
End Sub

Ja este está aplicado em um botão.. observe que após a SQL checa os outros campos se não estive nulo vai concatenando os filtros.

Dim StrSQL As String, StrSQL1 As String


    If IsNull(DataInicial) = True Or Me.DataInicial = "" Or IsNull(DataFinal) = True Or Me.DataFinal = "" Then
            MsgBox "é obrigatório o preenchimento dos campos Data Inicial e Data Final" & vbCrLf & _
                    "para efetuar a consulta", vbCritical, "Atençao!"
    Exit Sub
Else
    If Me.btnMes.Caption = "Filtrar" Then
        If Format(Me.DataInicial, "dd/mm/yyyy") > Format(Me.DataFinal, "dd/mm/yyyy") Then
            MsgBox "A Data Inicial não pode ser menor que a Data Final", vbCritical, "Atenção!"
        Exit Sub
    Else
Me.btnMes.Caption = "Filtrado"
Me.btnMes.ForeColor = vbRed
StrSQL = "SELECT tabCondenasTotais.ID_CodCondenas, tabCondenasTotais.CpData AS DATA," _
        & "tabgranjas.CpNomeGranja AS GRANJA, tabCondenasTotais.CpTipo AS TIPO," _
        & "tabCondenasTotais.CpAbcesso AS ABCESSO, tabCondenasTotais.CpAerosacolite AS AEROSACULITE," _
        & "tabCondenasTotais.CpArtrite AS ARTRITE, tabCondenasTotais.CpAscite AS ASCITE," _
        & "tabCondenasTotais.CpAspectoRepugnante AS [ASPECTO REPUGNANTE], tabCondenasTotais.CpCaquexia AS CAQUEXIA," _
        & "tabCondenasTotais.CpCelulite AS CELULITE, tabCondenasTotais.CpColibacilose AS COLIBACILOSE," _
        & "tabCondenasTotais.CpColigranulatose AS COLIGRANULATOSE, tabCondenasTotais.CpContaminacao AS CONTAMINAÇÃO," _
        & "tabCondenasTotais.CpContusaoFratura AS [CONTUSÃO/FRATURA], tabCondenasTotais.CpDermatose AS DERMATOSE," _
        & "tabCondenasTotais.CpEscaldagemExcessiva AS [ESCALDAGEM EXCESSIVA]," _
        & "tabCondenasTotais.CpEvisceracaoRetardada AS [EVISCERAÇÃO RETARDADA]," _
        & "tabCondenasTotais.CpMarek AS MAREK, tabCondenasTotais.CpMaSangria AS [MA SANGRIA]," _
        & "tabCondenasTotais.CpNeolplasia AS NEOPLASIA, tabCondenasTotais.CpSalpingite AS SALPINGITE," _
        & "tabCondenasTotais.CpSepticemia AS SEPTICEMIA, tabCondenasTotais.CpSindromeHemorragica AS [SINDROME HEMORRAGICA]," _
        & "tabCondenasTotais.CpTumores AS TUMORES, tabCondenasTotais.Cpdoeca1 AS [DOENCA 1]," _
        & "tabCondenasTotais.Cpdoeca2 AS [DOENCA 2], tabCondenasTotais.Cpdoeca3 AS [DOENCA 3]," _
        & "tabCondenasTotais.Cpdoeca4 AS [DOENCA 4], tabCondenasTotais.Cpdoeca5 AS [DOENCA 5]" _
        & " FROM tabgranjas LEFT JOIN tabCondenasTotais ON tabgranjas.ID_Granja = tabCondenasTotais.ID_Granja" _
        & " WHERE (((tabCondenasTotais.ID_CodCondenas) Is Not Null)) And ((tabCondenasTotais.CpData >=#" & Format(Me.DataInicial, "mm/dd/yyyy") & "#) And (tabCondenasTotais.CpData <=#" & Format(Me.DataFinal, "mm/dd/yyyy") & "#))"
If Me.CboGranja <> "" Then
   StrSQL = StrSQL & " And tabCondenasTotais.ID_Granja =" & Me.txtGranja & ""
End If
If Me.CboTipoAve <> "" Then
   StrSQL = StrSQL & " And tabCondenasTotais.CpTipo ='" & Me.CboTipoAve & "'"
End If
   StrSQL = StrSQL & " ORDER BY tabCondenasTotais.CpData;"
Me.lstConsulta.RowSource = StrSQL

End If
Else
Call LimpaFiltro
Me.txtAviso.Visible = False

Me.btnMes.Caption = "Filtrar"
Me.btnMes.ForeColor = vbBlack
End If
End If
If Me.txtQtdReg = -1 Then
    MsgBox "Não foi encontrado registro para esta consulta!", vbInformation, "Atenção"
    Me.txtAviso.Visible = True
End If
End Sub

Cumprimentos.

Veja este exemplo:


http://maximoaccess.forumeiros.com/t11036-resolvidocriar-uma-consulta-utilizando-combobox#107338

Boa tarde Piloto,

O exemplo do "Registro de Matricula Piloto2003-http://maximoaccess.forumeiros.com/download.forum?id=5644" , foi ótimo só que queria textbox no lugar da combobox e que filtre uma listbox e não um subform a medida em que digito letra por letra, e que cada filtro dependa do que já esta filtrado p/ outros filtros na listbox. Estou postando o arquivo p/ vc visualizar e vê como quero.

desde já agradeço,

...e o arquivo esta no Office2007.

Esta feito para o primeiro campo e o segundo.. observe e faça para os demais.

Cumprimentos.

Opa demorei mas finalmente tive tempo de testar... me enrolei a principio devido ao velho problema de versões 2003/2007 e os símbolos ("*" / "%"), após resolução, funcionou realmente conforme pedi "consulta sequencial" Fornecedor=>Nota Fiscal OK!!!

Obrigado!!!

Só faltou clicar no resolvido no Tópico amigão.

Cumprimentos.

kkkkk Cara até hoje não sei onde fica este botão "Resolvido", procurei e só encontrei a mãozinha ai pensei que fosse ela.


Encontrei!!!!!

A maozinha é o agradecimento pela ajuda que serviu ao propósito do tópico..

o resolvido é para encerrar o tópico.


O Fórum agradece o Retorno.