Como setar colunas de uma tabela com a caixa de combinação?

Olá pessoal, bom dia! Tudo bem com vocês? Espero que sim...

Criei um formulário chamado Frm_Buscar_Cadastro_Clientes e dentro dele tenho uma caixa de combinação onde eu inseri os valores do tipo: Código, Nome, CPF/CNPJ, RG/IE e Telefone WhatsApp. Ao lado dessa caixa de combinação eu adicionei uma caixa de texto. Criei a caixa de combinação com a finalidade de setar qual é a coluna que desejo buscar a informação e a caixa de texto é necessário para adicionar qual a informação que desejo localizar na coluna setada.
adicionei também ao lado da caixa de texto um botão chamado Btm_Filtrar e ao clicar nele o mesmo fará a busca e mostrará o resultado na caixa de listagem abaixo. Pesquisei alguns vídeos na internet para tentar me dar um norte. Poderiam me ajudar com o problema em questão?

Manda um exemplo, faz um modelo e zipado, só com essa tela e alguns exemplos, manda aí que já te ajudo.

Boa tarde
No acontecimento NoClique do botão coloque código que construa expressão de origem dos dados pretendidos, a partir do conteúdo da caixa de combinação e da caixa de texto
Do género:
CaixaListagem.rowsource="SELECT * FROM Tabela WHERE " & CxcFiltro &"='" & TxtFiltro &"'"

Olá amigos, boa noite!

Desculpa só mandar agora a mensagem como resposta.

Não consegui fazer o procedimento conforme o amigo Alexandre me enviou. Estou anexando uma cópia do banco para vê se conseguem me ajudar.

Boa tarde
Reveja, os nomes dos campos que filtra têm de existir na tabela

OBS os nome dos campos na combo devem ser os mesmos da tabela.
Ex.: Nome_Cliente


CaixaListagem.RowSource = "SELECT * FROM Tbl_Cadastro_Clientes WHERE " & Cbox_OpcoesFiltragem & " Like '*" & Me!Txt_InfoBusca & "*'"
CaixaListagem.Requery

Removi o select e deixei somente um campo pra buscar tudo, abre e veja como foi feito , ai e so aperfeiçoar, bom estudo!

Bom dia

Fiz um ajuste aqui adptando com uma funca que ja uso

Private Sub Btm_Filtrar_Click()
If Me.Txt_InfoBusca <> "" Then
Select Case Me.Cbox_OpcoesFiltragem
Case Is = "Código"
Lista_Cadastro_Clientes.RowSource = "SELECT * FROM Tbl_Cadastro_Clientes WHERE ID_Cliente =" & Me.Txt_InfoBusca
Case Is = "Nome"
Lista_Cadastro_Clientes.RowSource = "SELECT * FROM Tbl_Cadastro_Clientes WHERE Nome_Cliente Like '*" & Me.Txt_InfoBusca & "*'"
Case Else
Lista_Cadastro_Clientes.RowSource = "SELECT * FROM Tbl_Cadastro_Clientes"
End Select


Else

Lista_Cadastro_Clientes.RowSource = "SELECT * FROM Tbl_Cadastro_Clientes"

End If

Olá Alan,

No combobox para pesquisa, eu montei com 2 colunas, onde a coluna 0 é o nome do campo da tabela e a coluna 1 é a descrição amigável para o usuário.
Tabém fiz algumas modificações na Instrução SQL para montar a lista, onde inclui os alias (apelido) para serem exibidos como cabeçalho da coluna.

A instrução para montar a lista ficou assim:

Código:



Private Sub Btm_Filtrar_Click()
Dim sSQL As String

    '-- A instrução abaixo já vai com o ALIAS (apelido) do campo para ser exibido na coluna do listbox
    If Trim(Txt_InfoBusca) = Empty Or IsNull(Txt_InfoBusca) Then
        sSQL = "SELECT ID_Cliente              AS [Código], "
        sSQL = sSQL & " Nome_Cliente            AS [Cliente], "
        sSQL = sSQL & " Doc_Cliente            AS [CPF/CNPJ], "
        sSQL = sSQL & " RG_IE_Cliente          AS [RG/IE], "
        sSQL = sSQL & " TelefoneFixo_Cliente    AS [Tel Fixo], "
        sSQL = sSQL & " TelWhats_Cliente        AS [WhatsApp], "
        sSQL = sSQL & " Email_Cliente          AS [E-Mail], "
        sSQL = sSQL & " Vendedor_Cliente        AS [Vendedor]"
        sSQL = sSQL & " FROM Tbl_Cadastro_Clientes"
        sSQL = sSQL & " ORDER BY Nome_Cliente;"
    Else
        sSQL = "SELECT ID_Cliente              AS [Código], "
        sSQL = sSQL & " Nome_Cliente            AS [Cliente], "
        sSQL = sSQL & " Doc_Cliente            AS [CPF/CNPJ], "
        sSQL = sSQL & " RG_IE_Cliente          AS [RG/IE], "
        sSQL = sSQL & " TelefoneFixo_Cliente    AS [Tel Fixo], "
        sSQL = sSQL & " TelWhats_Cliente        AS [WhatsApp], "
        sSQL = sSQL & " Email_Cliente          AS [E-Mail], "
        sSQL = sSQL & " Vendedor_Cliente        AS [Vendedor]"
        sSQL = sSQL & " FROM Tbl_Cadastro_Clientes"
        sSQL = sSQL & " WHERE " & Cbox_OpcoesFiltragem.Column(0) & " LIKE '*" & Trim(Txt_InfoBusca) & "*'"
        sSQL = sSQL & " ORDER BY Nome_Cliente;"
    End If
   
    Lista_Cadastro_Clientes.RowSource = sSQL
    Lista_Cadastro_Clientes.Requery
   
   
End Sub



A instrução para montar o combo ficou assim:

Código:



'-- Alexandre Fim - 24/01/2022 - Carrega combo com 2 colunas para usar o campo da tabela para filtro de dados
'-- Coluna 0 -> Nome do campo na tabela
'-- Coluna 1 -> Descrição do campo para o usuário

Public Sub CarregaCbo()

    With Cbox_OpcoesFiltragem
        .ColumnCount = 2
        .ColumnWidths = "0;2cm"
        .RowSourceType = "Value List"
        .RowSource = Empty
        .Requery
        .AddItem "ID_Cliente;Cód. Cliente"
        .AddItem "Nome_Cliente;Nome"
        .AddItem "Doc_Cliente;CPF/CNPJ"
        .AddItem "RG_IE_Cliente;RG/IE"
        .AddItem "TelWhats_Cliente;WhatsApp"
        .Requery
    End With



End Sub



Segue versão para tua avaliação.
Espero ter ajudado.
Boa Sorte

Caro colega, analisando o teu projeto, identifiquei uma dificuldade que tive no passado.
Compartilho aqui, a solução que utilizo.
Tomei a liberdade e fiz as alterações no teu exemplo.

Primeiro, criei uma consulta, onde adicionei o campo "pesq". Neste campo foram adicionadas todas as informações que vou utilizar para filtro, sendo que, separei cada item com um espaço.

Você já digita direto o que quer filtrar, se for o cpf, é só digitar o numero do cpf, se for pelo telefone é só digitar direto o número completo do telefone, e assim por diante.

Dê uma olhadinha, e se te for útil, adapte para ti.