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

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!

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

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

Abraço

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;")

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

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,

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

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

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