[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.

Bom dia.

Coloquei o arquivo em anexo.

Att:

Josimar.

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.