MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Combox pesquisando em dois campos textos

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    Combox pesquisando em dois campos textos Empty Combox pesquisando em dois campos textos

    Mensagem  Silvio em 3/7/2020, 12:02

    Prezados, bom dia / boa tarde !

    Será que algum de vocês tem um exemplo de pesquisa em combobox, mas que pesquise em dois campos textos ?

    Infelizmente tem que ser em combobox mesmo.

    Se alguém tiver, por favor, disponibilize aqui. Fico agradecido.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  ahteixeira em 3/7/2020, 12:30

    Olá Silvio,

    Desconheço, mas já tentou fazer uma consulta UNION, assim pesquisa "dos dois campos" numa unica ComboBox.

    https://www.maximoaccess.com/t31470-resolvidounir-2-consultas-com-campos-iguais

    Abraço

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Silvio em 3/7/2020, 12:45

    Boa tarde Alvaro.

    Eu também desconheço isso, mas, a pesquisa será feita na mesma tabela ou na mesma consulta.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  ahteixeira em 3/7/2020, 13:55

    Boa tarde Silvio,

    Pelo que compreendi pretende a pesquisa em dois campos.
    Se unir esses dois campos num só (nem que seja só para a pesquisa) acho que já consegue obter o mesmo resultado e creio que fica mais simples.
    Será uma questão de testar.
    Se tiver dificuldades, monte um pequeno exemplo para teste e partilhe.

    Abraço
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Silvio em 3/7/2020, 17:46

    Boa tarde Alvaro, estou tendo sim um certa dificuldade aqui, estou subindo um exemplo ( real ) que eu tenho aqui.
    Não há problema para mim, em haver dados reais, são apenas nomes de peças de carros e valores.
    Desde já agradeço imensamente a tua ajuda e disponibilização.

    Obs: abra o Frm SFSaidaPeca...tem uma combobox lá. Nela que eu preciso que seja feita a pesquisa tanto pelo código da peça quanto pela descrição da mesma.
    Anexos
    Combox pesquisando em dois campos textos AttachmentPesquisadoiscampos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 21 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 236
    Registrado : 19/08/2010

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  marcelo3092 em 3/7/2020, 18:40

    Uma ideia seria concatena na pesquisa da combox e fazer um filtro para pesquisa em qualquer parte da combox acho que daria certo
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Celso Roberto em 4/7/2020, 01:01

    Olá Silvio..

    Não vi o seu exemplo porque estou atualizando meu pc.

    Mas tente adaptar este exemplo ao seu, veja na clausura WHERE que busca por tres campos

    Código:
    Private Sub cboBanco_Change()
        StrSQL = "SELECT CodBanco,NomeDoBanco,Agencia,NºConta FROM tblBancos" _
        & " WHERE NomeDoBanco & Agencia & NºConta Like '*" & Me.cboBanco.Text & "*' ORDER BY NomeDoBanco, NºConta"
        Me.cboBanco.RowSource = StrSQL
        Me.cboBanco.Dropdown
    End Sub

    Espero que ajude

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Silvio em 4/7/2020, 12:54

    Bom dia / boa tarde a todos.

    Celso, show de bola a instrução, era isso mesmo que eu estava a precisar.

    Agradeço a ti e a Alvaro, pelo tempo e paciência dispensado a minha duvida.

    Vou deixar aqui as alterações, compartilhando o código para que outros tenham acesso também.

    Código:
    Private Sub bt_limpar_Click()  ' limpando a combobox, e chamando a instrução
    Me.CodigoPeca = ""
    Me.CodigoPeca.SetFocus
    Me.CodigoPeca.Dropdown
    Call CodigoPeca_Change
    End Sub

    Private Sub CodigoPeca_AfterUpdate()  ' depois de alterado, a combo popula os campos que preciso
    Me.CodigoPeca = Me.CodigoPeca.Column(0)
    Me.Descricao = Me.CodigoPeca.Column(2)
    Me.PrecoVenda = Me.CodigoPeca.Column(3)
    Me.QtdSaida.SetFocus
    CurrentDb.Execute ("delete * from Pecas Where Codigopeca IS NULL Or descricao IS NULL") ' caso tenha algum cadatrado em branco na tblPEças, aqui eu apago para evitar registros em branco.

    End Sub

    Private Sub CodigoPeca_Change()  ' faço a busca pelo código da peça ou pela descrição da mesma e também de quebra...pelo preço de venda.
    On Error Resume Next
    Dim strSql As String
        strSql = "SELECT Idpeca, codigoPeca, Descricao, PrecoVenda FROM QryPecas" _
        & " WHERE Codigopeca & Descricao & PrecoVenda Like '*" & Me.CodigoPeca.Text & "*' ORDER BY CodigoPeca, Descricao"
        Me.CodigoPeca.RowSource = strSql
        Me.CodigoPeca.Dropdown
    End Sub


    Mais uma vez, meu muito obrigado a todos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Alexandre Neves em 4/7/2020, 15:06

    Olá Sílivio
    Conforme a tua assinatura, Caso tenha resolvido a tua duvida, coloque o tópico como resolvido


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Silvio em 4/7/2020, 18:10

    Alvaro, estou a adaptar ainda.

    Acontece que quando coloco uma peça, perfeito...aparece o que eu preciso ( codigopeca, descricao e preco venda ) porém ao adicionar mais de um item a anterior ( codigopeca ) desaparece e assim sucessivamente.

    Por esse motivo eu ainda não posso dar por encerrado o tópico, pois estou adaptando o mesmo as minhas necessidades.

    Grato pela compreensão.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Silvio em 6/7/2020, 14:38

    Boas Maltas.....

    O código do Celso Roberto para formulário simples, é perfeito.
    Porém batendo a cabeça para formulário continuo.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Celso Roberto em 6/7/2020, 23:39

    Olá Silvio..

    Baixei o teu exemplo, atualizei com os codigos que voce postou na mensagem 8.
    Em simulações aqui não encontrei o problema que voce mencionou.
    exclui todos os 62000 registros e adicionei varios linha a linha e esta normal.

    De mais detalhes de como agir para acontecer o que mencionou
    Anexe também exemplo atualizado com o problema

    Aguardamos

    Abraços



    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Silvio em 7/7/2020, 19:30

    Celso, é o mesmo exemplo que postei.

    Aqui, quando coloca uma peça nova a anterior some, o que some é o código da peça e não a descrição e preço e sim o código.

    Note que a combobox fica vazia.

    Se o seu deu certo, suba ele aqui, pode ser que eu tenha feito alguma coisa errada.

    Grato,pelo tempo e pela ajuda.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 236
    Registrado : 19/08/2010

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  marcelo3092 em 7/7/2020, 19:42

    Caro amigo acho que vc devia reformulario seu sistema de inserção na lista tenta fazer um campo fora do subformulario tipo no formulario

    Busca Cod_Peça descrição / cria os campos nao acoplado e coloca no botao a função para anexa no subformulario




    Ai funciona certim. é uma ideia.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Celso Roberto em 8/7/2020, 02:52

    Olá Silvio..

    Realmente acontece o que informou.

    O motivo da combobox ficar vazia é porque a fonte de controle da combobox é CodigoPeca e no evento após atualizar voce pede para atualizar para a Column(0) do select da origem da linha da combo que é IdPeca.

    Então quando voce adiciona itens e da enter a combo atualiza e fica normal, mas quando voce adiciona itens com o mouse o codigo após atualizar não é acionado e a combo fica vazia.

    Aconselho voce a mudar para o evento ao perder o foco e também não alterar a fonte de controle da combo.

    Aguardamos retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Silvio em 9/7/2020, 13:38

    Bom dia / boa tarde a todos.

    Celso, vou fazer isso sim.  Mas em outro momento devido a dois desenvolvimentos que eu estou a fazer.

    Bom, como " gambiarra ", deixei a combobox como estava mesmo e adicionei um formulário desacoplado, um botão que abre esse formulário desacoplado e  junto com uma Listbox nesse formulário para buscar as peças através de codigo da peça ou pela descrição.
    Tive que fazer isso, pois a outra pessoa que trabalha lá, não está familiarizada com os códigos das peças.   Até que ficou bom, mas é uma " gambi " daquelas.

    Terminando uma parte de relatórios que estou a desenvolver aqui, vou voltar nisso, por enquanto está funcional e tranquilo para ambos os funcionários.
    Combox pesquisando em dois campos textos Forum12


    Por enquanto, não vou dar como resolvido ainda.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    Combox pesquisando em dois campos textos Empty Re: Combox pesquisando em dois campos textos

    Mensagem  Celso Roberto em 9/7/2020, 22:18

    Olá Silvio..

    Não achei Gambiarra e sim uma outra forma de trabalho.
    Particularmente eu prefiro desta maneira que deixou agora.

    Mas ficamos no aguardo

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 2/12/2020, 16:27