Erro no código de baixa de produtos na requisição.

Boa tarde senhores.
A muito tempo não participo do fórum, pois graças a DEUS ate agora tudo estava correndo bem, e estou sem internet em casa. Mas infelizmente na hora de salvar a minha requisição no código dela esta dando este erro.

Erro em tempo de execução '3075':
Erro de sintaxe (Operador faltando) na expressão de consulta 'Estoque_Pro -1&'.

Veja o código:

Código:


Private Sub ValorUnitario_AfterUpdate()
CurrentDb.Execute "Update tblProdutos set VlrVenda_Pro=" & Replace(CCur(Me.ValorUnitario), ",", ".") & ", Estoque_Pro = Estoque_Pro - " &_ Val(Me.Quantidade) & "" & " &"
End Sub


Desde ja agradeço a ajuda.

Obrigado.

Bom dia.

Por favor alguém pode me ajudar quanto a esta duvida?
Espero que sim.

Bom dia ...

Acho que esta duvida não vai ter solução, infelizmente os colegas não me auxiliaram ainda.
Mas vou continuar aguardando.

Esperimente agora amigo.


Private Sub ValorUnitario_AfterUpdate()
CurrentDb.Execute "Update tblProdutos set VlrVenda_Pro =" & Replace(CCur(Me.ValorUnitario), ",", ".") & ", Estoque_Pro = Estoque_Pro - " &_ Val(Me.Quantidade) & "" & " &"
End Sub

Boa tarde Rachid..

Muito obrigado pelo retorno.
Me desculpe a demora, mas estou desde ontem tentando fazer este código funcionar, mas infelizmente não funciona, o anderline a mais que você adicionou o sistema não aceita ele.

Não sei onde esta o erro mas vou continuar a quebrar a cabeça aqui..

Bom dia Pessoal..

Sera que se eu colocar um botão para baixa dos Produtos da requisição e colocar este código no evento on Click dele Funcionaria?