Filtro pela caixa de combinação

Connekta Informatica 27/2/2013, 13:13

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº1

Filtro pela caixa de combinação

Mensagem Connekta Informatica 27/2/2013, 13:13

Bom dia

Em anexo envio o Banco de dados para me esclarecer uma dúvida.

No Banco de dados tenho o formulário com um sub formulário e uma caixa de combinação onde contém os nome s do filtros e uma caixa de texto .

A caixa de combinação servirá para selecionar os campo que é para filtrar e a caixa de texto onde eu digitarei o texto dependendo do que foi selecionado na caixa de combinação.

Tem como fazer este tipo de filtro?

Convidado 27/2/2013, 15:39

Convidado

Convidado: Convidado

Mensagem nº2

Re: Filtro pela caixa de combinação

Mensagem Convidado 27/2/2013, 15:39

é claro que é possivel

1 - Após atualizar a combo onde tem o campo, coloque o texto em uma variável

Dim StrCampo as String
StrCampo = Me.SuaCombo.Column(x) >>> onde x será o número da coluna com a informação

2 - Esta variável aplicara após a clausula Where de uma instrução SQL

3 - No evento ao alterar da caixa texto onde esta o filtro:


Dim StrSQL As String

StrSQL = "SELECT SeuCampo1, SeuCampo2," _
        & "SeuCampo3  FROM SuaTabela WHERE '" & StrCampo & "' Like '*" & Me.txtFiltro.Text & "*'"
Me.SeuSubForm.RowSource = StrSQL
Me.SeuSubForm.Requery

Cumprimentos.

Connekta Informatica 1/3/2013, 14:23

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1081
Registrado : 01/07/2011

Mensagem nº3

Re: Filtro pela caixa de combinação

Mensagem Connekta Informatica 1/3/2013, 14:23

Bom dia

Olha o erro que esta acontecendo.

**JPaulo** 1/3/2013, 15:38

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº4

Re: Filtro pela caixa de combinação

Mensagem JPaulo 1/3/2013, 15:38

Você não tem feito o trabalho de casa.

1º Não é uma listbox é um subformulario.

2º Os nomes dos campos a filtrar não são os que estão na combobox.


Private Sub txtFiltro_AfterUpdate()
Dim StrSQL As String
Dim StrCampo As String

StrCampo = Me.cboFiltro.Value
If StrCampo = "Nome do Cliente" Then StrCampo = "Nome"
If StrCampo = "CPF / CNPJ" Then StrCampo = "CPF_CNPJ"
If StrCampo = "CEP" Then StrCampo = "CEP"


StrSQL = "SELECT * FROM tblClientes WHERE " & StrCampo & " Like '*" & Me.txtFiltro & "*'"
Me.ListCliente.Form.RecordSource = StrSQL
Me.ListCliente.Form.Requery
End Sub

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

Filtro pela caixa de combinação Folder_announce_new

Utilize o Sistema de Busca do Fórum...
Filtro pela caixa de combinação Folder_announce_new

102 Códigos VBA Gratuitos...
Filtro pela caixa de combinação Folder_announce_new

Instruções SQL como utilizar...

Convidado 2/3/2013, 04:12

Convidado

Convidado: Convidado

Mensagem nº5

Re: Filtro pela caixa de combinação

Mensagem Convidado 2/3/2013, 04:12

Obrigado pela participação JP, estava em viagem e não pude responder... apenas sugeri de acordo com as informações fornecidas por ele.

Valeu.

Piloto.