Fazer Pesquisa Por Nome Ou Sobrenome!

[Edson_csi]

lá!

Tenho uma formulário de cadastro que está acontecendo o seguinte erro.

Quando aciono o botão "Consultar", ele só busca os registros se eu digitar os nomes completos.

Teria como fazer uma pesquisa ou só pelo nome ou pelo sobrenome?

Desde já agradeço!

Private Sub cmdConsultar_Click()

Dim ValorPesquisa As String

ValorPesquisa = InputBox("Digite o nome do cliente que você quer encontrar:")

DadosDadosP.Recordset.FindFirst "NomeC = '" & ValorPesquisa & "'"

If DadosDadosP.Recordset.NoMatch = True Then

MsgBox "Este registro não foi encontrado."

End If

End Sub

[kuroi]

tenta assim:

DadosDadosP.Recordset.FindFirst "NomeC Like '%" & ValorPesquisa & "%'"

[Edson_csi]

tenta assim:

DadosDadosP.Recordset.FindFirst "NomeC Like '%" & ValorPesquisa & "%'"

Boa tarde!

Tentei esse código mas não funcionou ainda!

Mesmo assim veleu!

[kuroi]

então assim:

DadosDadosP.Recordset.FindFirst "NomeC Like '*" & ValorPesquisa & "*'"

[Edson_csi]

então assim:

DadosDadosP.Recordset.FindFirst "NomeC Like '*" & ValorPesquisa & "*'"

Maravilha Kuroi!

Valeu mesmo! Deu super certo.

Brigadão!