[Resolvido]Prrencher campo pesquisa

Boa noite colegas....
Não com dificuldade para na combobox digitar um nome para pesquisa em um campo não aclopado:
exemplo: nomes: clovis e clovis augusto
não estou conseguinto filtro só o clovis ou só o clovis augusto.
já alterei com outros códigos mas não consigo o que deixa preencher a combobox mas dai não filtra correto
o codigo
If IsNull(Me.Finalidade) Then
MsgBox "Não foi fornecido nenhum parâmetro válido para pesquisa.", vbOKOnly + vbInformation, "Sem resultados"
Else
Me.lstFiltro.Requery
If Me.lstFiltro.ListCount = 0 Then
MsgBox "Nenhum registro corresponde à pesquisa atual.", vbOKOnly + vbInformation, "Sem resultados"
End If
End If

Olá Cafpr

Se é o que eu entendi, você quer que ao digitar um nome na combo, a mesma vá preenchendo a lista suspensa dela com todos os nome parececido?
Explique melhor, ok?
Copie e cole o código do filtro para a combobox.
Aguardando ...

abraços

Bom dia Kiel...
Agora estou usando somente o codigo abaixo;
o código na combobox:
Private Sub Tp_Imovel_AfterUpdate()
Me.lstFiltro.Requery
End Sub

http://speedy.sh/hQpum/balem.rar

Cafpr

Vendo a tua ss entendi o seguinte:

É um formulário de pesquisa, preenchendo qualquer uma daquelas combobox irá retornar o resultado no subformulário em modo folha de dados abaixo.
Portanto não vejo razão de estar usando combobox, pode usar caixa de texto.
Peguei aqui um exemplo de código dos meus alfarrábios que poderá te ajudar.
Tente adaptar no teu aplicativo

Código:



Dim txtName As String
txtName = Me.txtNome.Text 'aqui o txtNome é o nome da caixa de texto
If txtName = "" Then
  TeuForm.RowSource = ""
Else
  ' aqui você irá colocar a consulta da origem de registro do teu subform
  Teuform.RowSource = "SELECT DISTINCTROW tblClientes.NomeCliente FROM tblClientes WHERE (((tblClientes.NomeCliente) Like '" & txtName & "*')) ORDER BY tblClientes.NomeCliente"
End If


Abraços

Boa tarde colega, usar caixa de texto ao invés de combobox, eu sei tenho e tem vários exemplos no forum...
Estou pesquisando não em subform mas em ob nãoaclopado...
o cliente prefere que seja atraves de combobox. para mudar para subform eu terei que alterar tudo e é muito trabalho, por isso procura uma solução dessa maneira que coloquei.....casa não haja paciência.....

Entendo.

Mas creio que o principio seja o mesmo.

Se pude me enviar esse form e a tabela em questão darei uma estudada nele.

Abraços

Obrigado colega. Vou separar a tbl,cs e form e anexar....

Desculpe a demora colega.... vou rever os criteiros e codigos da pesquisa. o problema deve estar aqui. caso consiga posto a pesquisa.....