[Resolvido]Localiza e substitui-Dúvida com código.

Boa noite pessoal .Estou usando o código abaixo em um banco que montei, mas tô esbarrando num problema. Minha dúvida está da terceira linha do código.


Dim pxSQL As String

pxSQL = "UPDATE Areceber SET "

pxSQL = pxSQL & " situacao = Aberto parcial'" (Bem aqui quero que saia a expressão "Aberto parcial" ,mas não está dando certo)

pxSQL = pxSQL & " recebido ='" & Trim(Me.txtB) & "'"
pxSQL = pxSQL & " WHERE Documento = " & Trim(Me.txtdoc) & ""
'-- Executa instrução SQL
CurrentDb.Execute pxSQL


Desde já fico grato se puderem tirar essa minha dúvida.

Bom dia
pxSQL = pxSQL & " situacao = 'Aberto parcial'"

Obrigado alexandre. Testei, mas não funcionou.Vou tentar entender onde está o erro, se não conseguir eu volto aqui.

Boa tarde
Ou
pxSQL = pxSQL & " situacao = 'Aberto parcial',"

Obrigado.Resolvido.