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.
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.