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]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 Qui 30 Mar 2017, 14: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!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    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  Alvaro Teixeira Sex 31 Mar 2017, 04: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 Sex 31 Mar 2017, 14: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;")
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    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  Alvaro Teixeira Sex 31 Mar 2017, 19: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 Seg 03 Abr 2017, 08: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)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    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  Alvaro Teixeira Ter 04 Abr 2017, 08: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 Ter 04 Abr 2017, 09:19

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    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  Alvaro Teixeira Ter 04 Abr 2017, 11:04

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 22 Nov 2024, 12:51