MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    Silvanio123
    Silvanio123
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvanio123 27/3/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
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  formiga10x 27/3/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
    Silvanio123
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvanio123 28/3/2014, 18:54

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  formiga10x 28/3/2014, 18:55

    O Fórum agradece o retorno.
    Sucesso.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 19:25