[Resolvido]Erro de sintaxe no FindFirst.....procurando por campo texto

Prezados boa tarde.

Necessito realizar uma busca por um determinado campo texto em uma tabela.
Estou usando a seguinte rotina abaixo

If x >= 1 Then
If MsgBox("Já existe um produto cadastrado !" & vbCrLf & _
"Deseja atualizar o estoque ?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else

'aqui faço a atualização do estoque
Dim Db As Database, Rs As Recordset
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("TblEstoque", dbOpenDynaset)
Rs.FindFirst "[descricao] LIKE " 'me.DescricaoProduto '" ...............linha que contém o erro
Rs.Edit
Rs("saldo") = Saldo + Me.Qtd
Rs.Update
Rs.Close
Set Rs = Nothing
Set Db = Nothing

End If
End If

Será que eu estou muito errado na sintaxe do FindFirst ?
Tanto o campo descrição como descriçãoproduto são textos.
Aparece:
Erro em tempo de execução '3077'
Erro de sintaxe(operador faltando) na expressão

Alguém pode me dar uma ajuda ?

Silvio,

A minha sugestão é utilizar instruções SQL, sem a necessidade de abrir um recordset. Assim:

Código:



    Set Db = CurrentDb

    sSQL = "UPDATE TblEstoque "
    sSQL = sSQL & " SET saldo = (me.Saldo+me.Qtd) "
    sSQL = sSQL & " WHERE descricao LIKE '*" & Me.DescricaoProduto & "*'"
    Db.Execute sSQL




Set Rs = Db.OpenRecordset("TblEstoque", dbOpenDynaset) >> Vale lembrar que esta linha está criando um recordset na memória, utilizando como origem todos os registro da tabela, o que é desnecessário, tornando sua aplicação lenta.


No caso da tua instrução, a forma correta é:

Rs.FindFirst "[descricao] LIKE '*" & Me.DescricaoProduto & "*'"

OBS: Você está utilizando operador LIKE com asterisco no inicio e no fim do campo, onde o Access irá atualizar os produtos que tem a descrição dentro destes asteriscos.

Ex.:
Se você informar a descrição do produto "Caneta", será atualizado os seguintes produtos:

Caneta esferográfica
Kit com caneta lápis e borracha
Lápis-Caneta


É isso

Esperto ter ajudado

[]'s

FIM

Alexandre, bom dia !!
Vi a tua rotina, pratica e limpa !
Porém está dando erro na instrução SQl (Erro 3061  / parâmetros insuficientes eram esperados 2 )

Silvio

No meu caso o campo "Ref" é texto

   RS.FindFirst "[Ref] = '" & Me![Ref] & "'"

Assis, bom dia / boa tarde a ti.

Perfeito...porém agora vou partir para outra luta....o saldo não está somando ( atualizando ).

Também estou esperando a resposta do Alexandre quanto ao erro que deu na SQL.

Para somar uso:

rs("adiantado") = Nz(rs("adiantado"), 0) + Nz(Me.Recebido, 0)

Assis, show de bola mesmo, agora sim, consigo atualizar o estoque do dito cujo.

Porém...sempre há um porém em tudo né ?

vou ter que dar baixa pelo IDPeca, e na tabela estoque não aparece o mesmo, tem como puxar esse idpeca para o produto ?


A imagem acima é da tblCadPeca.

------------------------------------------------------------------------------------------------------------------------------------------------------


-------------------------------------------------------------------------------------------------------------------------------------------------------
Exemplo, TRIPLICE FELINA, COM O ID 460, tem como " puxar " esse id junto com a descrição ?

Se puder me dar uma luz...fico agradecido.

Abraços.

Silvio,

No erro que vc informou, quais os campos que precisam ser calculados?

Não pode ser o 460, tem 3 com numero diferente

Assis, com relação as entradas em duplicatas, já resolvi isso.

Alexandre o único campo calculado é a soma do que está entrando com o saldo.

Boa tarde..

Com tudo que foi postado aqui....vou dar como resolvido o assunto.

Gratidão ao Assis e ao Alexandre.