[Resolvido]Error 3070 help me

Prezados, bom dia!


Estou com um problema que não conseguir resolver. Vejam, eu tenho um relatorio e um formulario baseado em uma tabela de datas. Essa tabela a cada mês muda automaticamente e com isso gera o error 3070. Já sei que o problema esta relacionado a campos que não existe na base de dados para alimentar o relatorio e o formulario, por isso, vou ate a estrutura e mudo a propriedade para visivel = não. Com esse procedimento funciona normalmente. Observem um exemplo:

JAN 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ' esse seriam os cotroles no formulario e no relatorio.
FEV 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ' esse seriam os cotroles no formulario e no relatorio.
Como no mês de FEV eu não tenho os campos 29, 30 e 31 na tabela que alimenta o formulario e o relatorio, logo esses controles apresentam o erro 3070.

Tem como criar uma rotina de verificação do formulario e do relatorio para mudar a propriedade deste controles para enable = false antes de abrir o mesmo?
Ou tem alguma função para tratar o Error?

Obrigado galera!

Trate o erro:


On Error Goto TrataErro
Codigo....


'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub
TrataErro:
Select Case err.Number
Case 3070
'Sua instrução
Case Else
DoCmd.Hourglass False
DoCmd.Echo True
MsgBox "Erro Gerado no: frmCursos (Procecimento XXXX)" _
& vbNewLine & "Erro Número: " & err.Number _
& vbNewLine & "linha: " & Erl _
& vbNewLine & "Descrição: " & err.Description _
& vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, err.Number & ", linha:" & Erl
End Select


Cumprimentos.

Não funcionou. Copiei e colequei o código no evente ao abrir e depois no ao carregar, mas ambos apresentaram a mesma mensagem.

Ver anexo!

Obrigado pelo retorno!

Descupe, a imagem ultrapassa o limite permitido.
A mensagem é a seguinte:

O mecanismo do banco de dados do Microsoft Access não reconhece '[31]' como nome de campo ou expressão válida.

Apenas o tratamento de erros aplicado no evento correto funcionaria...

Poste um exemplo do BD para que possamos ver isto pra ti.


Cumprimentos,

Galera, bom dia!!!



conseguir resolver meu problema da seguinte maneira:

Coloquei no evento ao abrir...

Case 28
Me.dtx29.ControlSource = ""
Me.dtx30.ControlSource = ""
Me.dtx31.ControlSource = ""
Me.dtx29.Visible = False
Me.dtx30.Visible = False
Me.dtx31.Visible = False

Case 29
Me.dtx29.ControlSource = 29
Me.dtx30.ControlSource = ""
Me.dtx31.ControlSource = ""
Me.dtx29.Visible = True
Me.dtx30.Visible = False
Me.dtx31.Visible = False
Case 30
Me.dtx29.ControlSource = 29
Me.dtx30.ControlSource = 30
Me.dtx31.ControlSource = ""
Me.dtx29.Visible = True
Me.dtx30.Visible = True
Me.dtx31.Visible = False
Case Else
Me.dtx29.ControlSource = 29
Me.dtx30.ControlSource = 30
Me.dtx31.ControlSource = 31
Me.dtx29.Visible = True
Me.dtx30.Visible = True
Me.dtx31.Visible = True
End Select

Gradeço a todos!

O Fórum agradece o retorno.