Fazer pesquisa por nome ou sobrenome!

[Edson_csi 0]

Olá!

 

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

[Claudio Neto 3]

Olá!

 

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

Acho que depende do banco de dados que está usando, mas tente assim:

 

Dim ValorPesquisa As StringValorPesquisa = InputBox("Digite o nome do cliente que você quer encontrar:")DadosDadosP.Recordset.FindFirst "NomeC = '%" & ValorPesquisa & "%'"If DadosDadosP.Recordset.NoMatch = True ThenMsgBox "Este registro não foi encontrado."End If

[Alessandro-RS 0]

Faça o seguinte, use o comando LIKE:Dim ValorPesquisa As StringValorPesquisa = InputBox("Digite o nome do cliente que você quer encontrar:")DadosDadosP.Recordset.FindFirst "NomeC Like'*" & ValorPesquisa & "'*"If DadosDadosP.Recordset.NoMatch = True ThenMsgBox "Este registro não foi encontrado."End If