[Resolvido]DoCmd.RunSQL "UPDATE" - Atualizar 2 campos em uma unica tabela.

Boa tarde a todos,

Uso o código abaixo para atualizar 2(dois) campos "Quantidade e UltimaAlteraçao" em uma única tabela (tblProdutos) só que dou 2 viagens a tabela para tal, gostaria de unificar as duas instruções/Update para fazer a atualização uma única vez.

Como poderia fazer?

'--------------------------------------------------------------------------------------------------------------------
'Atualiza a "UnidadesEmEstoque" e UltimaAlteraçao da tabela tblProdutos => UnidadesEmEstoque = cbotxt1 + Quantidade
'--------------------------------------------------------------------------------------------------------------------
If selAtualizaçaonoEstoque = True Then
  DoCmd.SetWarnings False
  DoCmd.RunSQL "UPDATE tblMoveis Set [tblMoveis].[UnidadesEmEstoque] = [UnidadesEmEstoque] + '" & Me.txt3 & "' WHERE [tblMoveis].[CodMoveis] = " & Me.cbotxt1.Value & ""
  DoCmd.RunSQL "UPDATE tblMoveis Set [tblMoveis].[Ultima_Alteraçao] = '" & Me.UltimaAlteraçao.Value & "' WHERE [tblMoveis].[CodMoveis] = " & Me.cbotxt1.Value & ""
  DoCmd.SetWarnings True
End If

Obrigado.

Siga como exemplo este código.
Após a declaração do campo e o valor que receberá coloque uma vírgula .

Abraço.

Código:

CurrentDb.Execute "Update tblReberFiado " _
            & "Set totaldivida=(""" & txtValorDivida & """), Resta = (""" & Me.txtRestaApagar.Value & """),TotalPago = (""" & Me.txtTotalPago.Value & """), Troco = (""" & Me.txtTroco.Value & """) WHERE CodVenda = " & Me.txtCodVenda.Value & ""

 

Ok, Fiz as adaptações e deu certo, Obrigado!!!

O Fórum agradece o retorno.
Sucesso.