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]Atualizar todos o Campos

    Compartilhe
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 337
    Registrado : 08/10/2012

    [Resolvido]Atualizar todos o Campos

    Mensagem  Sidney em 13/3/2019, 19:11

    Pessoal Boa Tarde!!

    Tem como atualizar todos os campos de uma tabela, neste caso a tab_Principal tem os mesmo campos da tab_CriticaPrincipal , gostaria de atualizar todos os campos da tab_Principal com os campos da tab_CriticaPrincipal , estou usando a instruçao SQL, mas não estou conseguindo,

    Código:
    strSql_AtualizarRegistro = "UPDATE tab_Principal INNER JOIN tab_CriticaPrincipal ON tab_Principal.CodFamSis = tab_CriticaPrincipal.CodFamSis SET tab_Principal.*= tab_CriticaPrincipal.*"
     

    att; Sidney
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7193
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Alexandre Neves em 13/3/2019, 20:05

    Boa noite,
    Em vez do asterisco, discrimine os campos envolvidos


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 337
    Registrado : 08/10/2012

    Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Sidney em 13/3/2019, 20:29

    Alexandre, Boa tarde!!
    Então, o problema que são muito campos, para ser exato são 222, é um super formulário de questões, gostaria de saber se tem uma maneira mais prática para resolver isso.

    att; Sidney
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7193
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Alexandre Neves em 13/3/2019, 23:30

    Boa noite, Sidney

    Tente
    Código:
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim Rst As DAO.Recordset, Campo As DAO.Field
       
        Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tab_Principal")
       
        For Each Campo In Rst.Fields
            CurrentDb.Execute "UPDATE tab_Principal INNER JOIN tab_CriticaPrincipal ON tab_Principal.CodFamSis = tab_CriticaPrincipal.CodFamSis SET tab_Principal." & Campo.Name & "= tab_CriticaPrincipal." & Campo.Name
        Next


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 337
    Registrado : 08/10/2012

    Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Sidney em 14/3/2019, 12:08

    Alexandre, Bom dia!!

    Seu código atendeu certinho, mais uma vez muito obrigado! fique com Deus.

    att; Sidney
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7193
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Alexandre Neves em 15/3/2019, 16:35

    Boa tarde
    Faltou o Resolvido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 337
    Registrado : 08/10/2012

    Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Sidney em 18/3/2019, 16:45

    Resolvido.

      Data/hora atual: 23/3/2019, 13:30