MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    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.

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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 & ""

     

    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    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!!!

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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: Qua 07 Dez 2016, 08:36