MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

+3
Alexandre Neves
Edu_rubio
alantardivo
7 participantes

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

    avatar
    alantardivo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 27/02/2018

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

    Mensagem  alantardivo 21/1/2022, 14:14

    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?


    Como setar colunas de uma tabela com a caixa de combinação? Form_p10
    avatar
    Edu_rubio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/01/2018

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

    Mensagem  Edu_rubio 22/1/2022, 18:49

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

    alantardivo gosta desta mensagem

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8206
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves 22/1/2022, 19:02

    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 &"'"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    alantardivo gosta desta mensagem

    avatar
    alantardivo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 27/02/2018

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

    Mensagem  alantardivo 23/1/2022, 00:12

    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.
    Anexos
    Como setar colunas de uma tabela com a caixa de combinação? Attachmentdados.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 27 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8206
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves 23/1/2022, 14:14

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    ad1000r
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 16/04/2012

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

    Mensagem  ad1000r 23/1/2022, 15:09

    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
    avatar
    Edu_rubio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/01/2018

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

    Mensagem  Edu_rubio 24/1/2022, 10:56

    Removi o select e deixei somente um campo pra buscar tudo, abre e veja como foi feito , ai e so aperfeiçoar, bom estudo!
    Anexos
    Como setar colunas de uma tabela com a caixa de combinação? Attachmentdados.zip
    dados modificados
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 7 vez(es)
    avatar
    Tiago123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 31/05/2012

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

    Mensagem  Tiago123 24/1/2022, 11:54

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 24/1/2022, 14:54

    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
    Anexos
    Como setar colunas de uma tabela com a caixa de combinação? Attachmentdados_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 12 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Como setar colunas de uma tabela com a caixa de combinação? Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    joao batista
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 17/11/2011

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

    Mensagem  joao batista 24/1/2022, 23:45

    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.
    Anexos
    Como setar colunas de uma tabela com a caixa de combinação? Attachmentdados.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (87 Kb) Baixado 10 vez(es)

      Data/hora atual: 1/10/2022, 14:57