Combox pesquisando em dois campos textos

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.

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

Boa tarde Alvaro.

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

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

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.

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

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

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.

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

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.

Boas Maltas.....

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

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

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.

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.

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

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.



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

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