[Resolvido]Consulta na caixa de listagem exata.

Bom dia.

Qual código utilizo para efetuar uma pesquisa exata na caixa de listagem.
ao digitar o numero 1, teria que aparecer somente ele, e não os demais números como o 10 e 11 em diante.

att:

Josimar.

Leaojo,

No campo de.pesquisa vc esta usando código VBA?
Por gentileza, poste seu código para analisarmos.
Provavelmente vc esteja utilizando o operador LIKE.

Bom dia.

Coloquei o arquivo em anexo.

Att:

Josimar.

Cara,

Não consigo abrir o seu sistema aqui na empresa pq não tenho o Access instalado na minha máquina.
Se voce postar o código que executa a pesquisa, eu consigo analisar e tentar te ajudar.

[]'s

Boa tarde.

Segue o código que uso.

Private Sub txtID_Change()
Dim C As String, X As String
X = Me.txtID.Text
C = " where ID like '*" & X & "*' or Fantasia like '*" & X & "*' or Rsocial like '*" & X & _
"*' or Endereco like '*" & X & "*' or Bairro like '*" & X & "*'"
'como será exibido na sua list box
Me.lstClientes.RowSource = " SELECT ID, Fantasia, RSocial, Endereco, Bairro FROM tbClientes " & C
End Sub

Private Sub txtID_GotFocus()
On Error Resume Next
txtID.SelStart = 0
txtID.SelLength = Len(txtID.Text)
End Sub


Att:
Josimar

Bom dia.

Qual código utilizo para efetuar uma pesquisa exata na caixa de listagem.
ao digitar o numero 1, teria que aparecer somente ele, e não os demais números como o 10 e 11 em diante.

Estou aguardando uma resposta.

Att:

Josimar.

Bom dia,
Veja assim

Código:

Private Sub txtID_Change()
Dim C As String, X As String
X = Me.txtID.Text
C = " where ID = '" & X & "' or Fantasia = '" & X & "' or Rsocial = '" & X & _
"' or Endereco = '" & X & "' or Bairro = '" & X & "'"
'como será exibido na sua list box
Me.lstClientes.RowSource = " SELECT ID, Fantasia, RSocial, Endereco, Bairro FROM tbClientes " & C
End Sub

Private Sub txtID_GotFocus()
On Error Resume Next
txtID.SelStart = 0
txtID.SelLength = Len(txtID.Text)
End Sub

Bom dia, a todos.

Não deu certo.
Ao colocar no campo txtcod. o numero 1, na caixa de listagem aparecem os outros números também, como o 10, 11, 100, etc.

Agradeço ao fórum, pela ajuda.

att:

Josimar.