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

    [Resolvido]Atualizar todos o Campos

    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar todos o Campos Empty [Resolvido]Atualizar todos o Campos

    Mensagem  Sidney 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 : Respeito às Regras 100%

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

    [Resolvido]Atualizar todos o Campos Empty Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Alexandre Neves 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 : Respeito às Regras 100%

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

    [Resolvido]Atualizar todos o Campos Empty Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Sidney 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 : Respeito às Regras 100%

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

    [Resolvido]Atualizar todos o Campos Empty Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Alexandre Neves 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 : Respeito às Regras 100%

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

    [Resolvido]Atualizar todos o Campos Empty Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Sidney 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 : Respeito às Regras 100%

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

    [Resolvido]Atualizar todos o Campos Empty Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Alexandre Neves 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 : Respeito às Regras 100%

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

    [Resolvido]Atualizar todos o Campos Empty Re: [Resolvido]Atualizar todos o Campos

    Mensagem  Sidney 18/3/2019, 16:45

    Resolvido.

      Data/hora atual: 16/6/2021, 15:28