[Resolvido]Fazer update em 2 Campos da tabela

Bom dia estou tentando fazer update de dois campos da tabela  não estou conseguindo, só estou conseguindo fazer de um campo
vcs poderia me ajudar?

Dim sSQL As String
           sSQL = "UPDATE TB_ProdProjeto SET NCHAMADA = '" & Trim(Me.TxtNChamada) & "' "
           sSQL = sSQL & " WHERE Ra = '" & Trim(RA) & "' And IdProduto = " & Trim(codProduto) & ";"
           CurrentDb.Execute (sSQL)

Olá Fernando,

Se o código do produto for texto , deve colocar aspa simples, teste assim:

Código:

sSQL = "UPDATE TB_ProdProjeto SET NCHAMADA = '" & Trim(Me.TxtNChamada) & "' "
sSQL = sSQL & " WHERE Ra = '" & Trim(RA) & "' And IdProduto = '" & Trim(codProduto) & "';"

Abraço

no caso estou inseri um novo valor (TxtNChamadano) no campo NCHAMADA da tabela TB_ProdProjeto com os critério RA e IdProduto

Gostaria de inserir um novo valor (TxtNChamadano) no campo NCHAMADA e novo valor (TxtNContrato) no campo NContrato da tabela TB_ProdProjeto com os critério RA e IdProduto

Achei esse exemplo do Alexandre Fim e deu certo

https://www.maximoaccess.com/t39938-resolvidoerro-de-sintaxe-na-instrucao-update?highlight=update

Dim sSQL As String

sSQL = ""
sSQL = sSQL & " UPDATE TblCliente SET "
sSQL = sSQL & " DataCadastro = '" & Me.txtDataCadastro & "', "
sSQL = sSQL & " ,NomeCons = '" & Replace(Trim(Me.txtNomeCli), "'", "") & "'"
sSQL = sSQL & " ,NascCli = '" & Me.txtDataNasc & "'"
sSQL = sSQL & " ,SexCli = '" & Trim(Me.CboSexo) & "'"
sSQL = sSQL & " ,EmailCli = '" & Trim(Me.txtEmail) & "'"
sSQL = sSQL & " ,TelCli = '" & Trim(Me.TxtCel) & "'"
sSQL = sSQL & " ,ObsCli = '" & Trim(Me.txtObs) & "'"
sSQL = sSQL & " ,ConCli = '" & Trim(Me.TxtConc) & "'"
sSQL = sSQL & " WHERE CodCli = " & Me.txtCodCli
CurrentDb.Execute sSQL

Olá Fernando,

Fico feliz por ter conseguido resolver.
Obrigado pelo feedback, o forum agradece.

Abraço