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]Criação e nomeação automática de coluna

    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Criação e nomeação automática de coluna Empty [Resolvido]Criação e nomeação automática de coluna

    Mensagem  gabrielpn06 30/3/2017, 18:26

    Boa tarde caros,
    Tenho um relatório no qual gostaria que fosse criada automaticamente uma coluna todo mês com o mês e ano respectivos.
    Estou usando o seguinte código: CurrentDb.Execute
    Código:
    ("ALTER TABLE Tb_ContingenciaConsolidada ADD COLUMN novacoluna Text;")
    Porém tenho que ficar nomeando manualmente as novas colunas criadas. (O comando está vinculado ao evento ao clicar em um botão).
    Desde já agradeço!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7182
    Registrado : 15/03/2013

    [Resolvido]Criação e nomeação automática de coluna Empty Re: [Resolvido]Criação e nomeação automática de coluna

    Mensagem  ahteixeira 31/3/2017, 08:47

    Olá Gabriel,
    Para obter ano, exemplo:
    Year(date())

    Para o mês:
    Month(date())

    Abraço
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Criação e nomeação automática de coluna Empty Re: [Resolvido]Criação e nomeação automática de coluna

    Mensagem  gabrielpn06 31/3/2017, 18:55

    Boa tarde muito obrigado pelo retorno!
    Então o código ficaria dessa forma?
    Código:
    ("ALTER TABLE Tb_ContingenciaConsolidada ADD COLUMN Year(date()) Text;")
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7182
    Registrado : 15/03/2013

    [Resolvido]Criação e nomeação automática de coluna Empty Re: [Resolvido]Criação e nomeação automática de coluna

    Mensagem  ahteixeira 31/3/2017, 23:08

    Olá,
    Sim, nesse caso deverá criar 2017 testou?
    Abraço
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Criação e nomeação automática de coluna Empty Re: [Resolvido]Criação e nomeação automática de coluna

    Mensagem  gabrielpn06 3/4/2017, 12:38

    Bom dia, testei porém não obtive sucesso. Devo estar fazendo algo errado, segue anexo o BD caso possa dar uma olhada.
    Desde já agradeço,
    Anexos
    [Resolvido]Criação e nomeação automática de coluna AttachmentConsolidada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 5 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7182
    Registrado : 15/03/2013

    [Resolvido]Criação e nomeação automática de coluna Empty Re: [Resolvido]Criação e nomeação automática de coluna

    Mensagem  ahteixeira 4/4/2017, 12:58

    Olá Gabriel,
    Do exemplo que postou , altere o código por este abaixo e teste:
    Código:
    Private Sub BtIncluirColuna_Click()
    Dim strCampoNovo
    strCampoNovo = Format(Date, "mmm") & Year(Date)

        CurrentDb.Execute ("ALTER TABLE Tb_ContingenciaConsolidada ADD COLUMN  " & strCampoNovo & " Long")

        MsgBox ("Inclusão Realizada com Sucesso!")
    End Sub


    Abraço
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Criação e nomeação automática de coluna Empty Re: [Resolvido]Criação e nomeação automática de coluna

    Mensagem  gabrielpn06 4/4/2017, 13:19

    Era exatamente o que eu precisava, Muito obrigado pelo tempo gasto e pela paciência!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7182
    Registrado : 15/03/2013

    [Resolvido]Criação e nomeação automática de coluna Empty Re: [Resolvido]Criação e nomeação automática de coluna

    Mensagem  ahteixeira 4/4/2017, 15:04

    Olá Gabriel, fico feliz por ter ajudado!
    Obrigado pelo retrono, os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: 13/4/2021, 14:38