MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 24/08/2011

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

    Mensagem  Silvanio123 em Qui 27 Mar 2014, 19:06

    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.
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 11/09/2013

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

    Mensagem  formiga10x em Qui 27 Mar 2014, 20:02

    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 & ""

     
    avatar
    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 24/08/2011

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

    Mensagem  Silvanio123 em Sex 28 Mar 2014, 18:54

    Ok, Fiz as adaptações e deu certo, Obrigado!!!
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 11/09/2013

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

    Mensagem  formiga10x em Sex 28 Mar 2014, 18:55

    O Fórum agradece o retorno.
    Sucesso.

      Data/hora atual: Ter 26 Set 2017, 06:43