Localizar com ADO e metodo FIND

[alissong 1]

Pessoal,

 

 

Tenho esse código que funciona ao digitar no InputBox o nome do fornecedor. Veja exemplo:

Private Sub cmdlocalizar_Click()

 

Dim BuscaString As String ' Usado para obtener una busqueda de texto del usuario

On Error GoTo erro_mdb 'inicia o tratamento de erros

 

AdoFornecedor.MoveFirst

BuscaString = InputBox$("Informe o Nome da Empresa ou CNPJ/CPF", "Buscar Empresa")

If Trim$(BuscaString) <> "" Then

AdoFornecedor.Find "nome_empresa like '*" & BuscaString & "*' ", adSearchForward

 

If AdoFornecedor.EOF Then

MsgBox "Fornecedor não localizado ?"

 

Else

nome_empresa.SetFocus

mostradados

 

End If

End If

gUltHora = Now

erro_mdb_exit:

Exit Sub

 

erro_mdb:

 

MsgBox Err.Description, vbInformation, "Erro ao [erro_mdb]"

 

 

End Sub

Porém, estou também tentando fazer a busca por dois critérios:

NOME OU CNPJ_CPF. Estou tentando assim:

AdoFornecedor.Find "nome_empresa like '*" & BuscaString & "*' OR cnpj_cpf like '*" & BuscaString & "*'", adSearchForward

Mas, não está funcionando.

 

Alguém pode me ajudar.

 

Um abraço.

 

 

Alissong

[scorpio 7]

Only a single-column name may be specified in criteria. This method does not support multi-column searches.

 

http://support.microsoft.com/kb/195222

 

Pode utilizar instruções SQL para fazer a pesquisa.

 

 

Abraços!