Início
FabioPaes 14/3/2017, 14:03O Objetivo aqui é construir de forma simples um filtro em todos os campos da tabela, onde o Cliente seleciona em uma ComboBox o Campo a ser aplicado o filtro e na outra ComboBox Seleciona/digita o valor a ser filtrado!
A medida que seleciono um Campo da tabela, automaticamente é preenchido a 2ª ComboBox com os valores ja lançados.
Apos selecionar o Valor da pesquisa é aplicado o filtro....
O Mais importante aqui é a forma como é feito o Preenchimento da 2ª Combobox, que evita ter que escrever muita coisa...
Me.cboValor.RowSource = "SELECT " & Me.cboCampo & " FROM tbVeiculos GROUP BY " & Me.cboCampo & " ORDER BY " & Me.cboCampo & ""
Com uma única linha é possível carregar os valores na ComboBox "cboValor" independente do Campo selecionado ou da quantidade de campos da tabela!
Obs:
Me.cboCampo Mostrará todos os campos da tabela;
Me.cboValor Mostrará todos os dados ja lançados na tabela, para o campo selecionado na Me.cboCampo.
Tópicos Relacionados:
https://www.maximoaccess.com/t29602-listar-nomes-dos-campos-em-caixa-de-combinacao#206533 <== Preencher automaticamente a ComboBox com os campos da Tabela.
A medida que seleciono um Campo da tabela, automaticamente é preenchido a 2ª ComboBox com os valores ja lançados.
Apos selecionar o Valor da pesquisa é aplicado o filtro....
O Mais importante aqui é a forma como é feito o Preenchimento da 2ª Combobox, que evita ter que escrever muita coisa...
Me.cboValor.RowSource = "SELECT " & Me.cboCampo & " FROM tbVeiculos GROUP BY " & Me.cboCampo & " ORDER BY " & Me.cboCampo & ""
Com uma única linha é possível carregar os valores na ComboBox "cboValor" independente do Campo selecionado ou da quantidade de campos da tabela!
Obs:
Me.cboCampo Mostrará todos os campos da tabela;
Me.cboValor Mostrará todos os dados ja lançados na tabela, para o campo selecionado na Me.cboCampo.
Tópicos Relacionados:
https://www.maximoaccess.com/t29602-listar-nomes-dos-campos-em-caixa-de-combinacao#206533 <== Preencher automaticamente a ComboBox com os campos da Tabela.
- Anexos
Filtro em Todos os Campo Tabela.zip - 14/03/2017 09:01
- Você não tem permissão para fazer download dos arquivos anexados.
- (42 Kb) Baixado 770 vez(es)
Última edição por FabioPaes em 24/3/2017, 18:25, editado 1 vez(es)
