Consulta

[Gabriel Cabral]

Olá pessoal....

intao....estou com uma duvida na consulta que desejo fazer...

a chave primária é o campo Cli_Cod

pra eu buscar o cliente pelo código, faço da seguinte maneira

Dim ValorPesquisa As String

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

DadosClientes.Recordset.FindFirst "Cli_Cod =" & Val(ValorPesquisa)

If DadosClientes.Recordset.NoMatch = True Then
MsgBox "Este registro não foi cadastrado.", vbExclamation, "Consulta"
End If

mas quando quero buscar o cliente pelo nome, e faço assim...

Dim ValorPesquisa As String

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

DadosClientes.Recordset.FindFirst "Cli_NomeFantasia =" & Val(ValorPesquisa)

If DadosClientes.Recordset.NoMatch = True Then
MsgBox "Este registro não foi cadastrado.", vbExclamation, "Consulta"
End If

...a busca não funciona

porque??

só dá certo se for com a chave primária???

Aguardo ajuda de vocês

vlw

[lumasai]

não costumo trabalhar com esse tipo de recordset mas da para perceber que não deu certo o teu codigo por causa da chave ... esse tipo d busca funciona com base na chave primaria ,,, indexes coisas assim

tenta usar comandos SQL para fazer a busca atravez do nome ou outros dados

[kuroi]

se o nome é uma string, então você num devia usar val(). val() é so pra numeros, tire o val() que deve funcionar.

[Gabriel Cabral]

kuroi, eu tirei o val() mas ainda ta dando erro

veja o que deu...

Run-time error '3077':

Syntax error (missing operator) in expression.

[kuroi]

tenta assim:

DadosClientes.Recordset.FindFirst "Cli_NomeFantasia = '" & ValorPesquisa & "'"

[Gabriel Cabral]

Valeu Kuroi

exatamente o que eu precisava

muito obrigado

até a proxima