[Resolvido]Pesquisar em qualquer parte da combobox, quer seja no começo ou no fim do texto.

Prezados boa noite.

Há algum exemplo de pesquisa para combobox ? Os exemplos ora postados aqui, se baseiam no inicio do campo.

Preciso de algo que faça a busca por qualquer parte do texto dentro da combobox.

Exemplo....usuário digita....0123 ( esse é o fim do texto ) e a combobox, através do dropdown, me mostra tudo o que tem com esse fim.

Grato a todos.

Silvio boa noite, ve se é isso que procura..

Tenta assim para uma caixa de texto: tx4 é o nome que dei à caixa de texto desvinculada

Private Sub tx4_Change()
Call fncFiltrar(Me!tx4.Name)
End Sub

Public Function fncFiltrar(NomeCampoFoco As String)
Dim X As String, filtro As String, strSplit As String
Dim f(4) As String, CP(4) As Variant
Dim k As Variant, P As Byte
Dim booFiltro As Boolean, booPos As Boolean

X = Me(NomeCampoFoco).text: P = 0
For P = 0 To 3
CP(P) = IIf(InStr(NomeCampoFoco, "tx" & P + 1) > 0, X, Me("tx" & P + 1))
Next

f(0) = "dnasci Like '*" & CP(0) & "*'"
f(1) = IIf(CP(1) = Chr(32), "Nome is null", "Nome Like '*" & CP(1) & "*'")
f(2) = IIf(CP(2) = Chr(32), "numero is null", "numero Like '*" & CP(2) & "*'")
f(3) = "telem Like '*" & CP(3) & "*'"

strSplit = Len(CP(0) & "") & "|" & Len(CP(1) & "") & "|" & Len(CP(2) & "") & "|" & Len(CP(3) & "")
k = Split(strSplit, "|")

filtro = "": P = 0
For P = 0 To UBound(k)
If Val(k(P)) > 0 Then
If booPos = False Then
filtro = f(P): booPos = True
Else
filtro = filtro & " AND " & f(P)
End If
booFiltro = True
End If
Next P

Me.Filter = filtro
Me.FilterOn = booFiltro
Me(NomeCampoFoco) = X
If booFiltro Then
Me(NomeCampoFoco).SelStart = Len(X & "")
Else
Me(NomeCampoFoco).SetFocus
End If
End Function

Prezados colegas, boa noite !

Estou analisando os exemplos de ambos.....

E desde já, presto aqui meus sinceros agradecimentos a ambos, pela presteza e o altruísmo em ajudar-me.

Para melhor compreensão " do rolo " que é essa combo, posto um exemplo retirado antes da implementação do mesmo.

A estrutura não mudou em nada, apenas os dados originais que eu deletei, pois o sistema já está rodando.

Enfim, resolvido.....retirei a combobox e inseri um botão com um formulário de busca com listbox e txt para pesquisa, em qualquer parte do campo.

Agradeço aos colegas envolvidos e os códigos passados.

Abraços a ambos.

Que bom que deu certo, obrigado pelo retorno meu amigo.. Sucesso!

Fernando usei este método que você postou

Fernando Bueno escreveu:Silvio boa noite, ve se é isso que procura..

Anexos

   LocalizarQualquerParte.zip
       (24 Kb) Baixado 9 vez(es)

mas estou com um problema. Toda vez que fecho o BD, quando abro novamente e tento fazer a busca ele retorna este erro: !

Aí é só eu entrar no modo layout, abrir o código de procedimento e fechar (salvando novamente mas sem alterar nada) e ele funciona normalmente.

Pode me ajudar com isso??

Obrigado!!

Ok, vou ver se verifico algum erro no bd..

Luis bom dia,

Testei o bd, pra mim não apresenta esse erro, faz um teste agora.

Como não tinha dados no meu BD, só na cópia que estava usando pra testar tudo, comecei um do zero e fiz tudo certinho. Erro não apareceu mais!!

Valeu pela ajuda!!

Ok por nada, bons estudos!