[Resolvido]Erro de compilação: Variável não definida

Estou tentando adaptar uma rotina para cadastro atraves de botões habilitados ou não.
a Rotina inicial é:

Private Sub Novo_Click()
On Error GoTo Err_Novo_Click

TxtCodProd.Enabled = True
TxtProduto.Enabled = True
Txtunid.Enabled = True
TxtPC.Enabled = True
TxtProduto.SetFocus
TxtGrupoMateriais.Enabled = True
TxtSubGrupo.Enabled = True
TxtReferencia.Enabled = True
Novo.Enabled = False
Btn_Alterar.Enabled = False
Excluir.Enabled = False
Btn_Salvar.Enabled = True

DoCmd.GoToRecord , , acNewRec

Exit_Novo_Click:
Exit Sub

Err_Novo_Click:
MsgBox Err.Description
Resume Exit_Novo_Click

End Sub

Coloquei assim:

Private Sub Btn_Novo_Click()
On Error GoTo Err_Novo_Click
TxtPedido.Enabled = True
TxtdtDataCadastro.Enabled = True
TxtDescricaoUnidade.Enabled = True
TxtDescricaoServico.Enabled = True
TxtDescricaoOficial.Enabled = True
DataSolicitacao.Enabled = True
TxtNumOfEntrada.Enabled = True
Txtfoto1.Enabled = True
Txtfoto2.Enabled = True
Txtfoto3.Enabled = True
Txtfoto4.Enabled = True
Txtfoto5.Enabled = True
Txtfoto6.Enabled = True
Txtfoto7.Enabled = True
Txtfoto8.Enabled = True
Txtfoto9.Enabled = True
Txtfoto10.Enabled = True
Txtfoto11.Enabled = True
TxtMaterialSolicitado.Enabled = True
TxtNumOfSaida.Enabled = True
TxtdtDataOfSaida.Enabled = True
TxtGrpAltCREQ.Enabled = True
TxtdtDataCREQ.Enabled = True
TxtdtDataAltCREQ.Enabled = True
TxtObsDataCREQ.Enabled = True
TxtGrpAltProcesso.Enabled = True
TxtdtDataProcesso.Enabled = True
TxtdtDataAltProcesso.Enabled = True
TxtObsDataProcesso.Enabled = True
TxtGrpAltCEPEO.Enabled = True
TxtdtDataCEPEO.Enabled = True
TxtdtDataAltCEPEO.Enabled = True
TxtObsDataCEPEO.Enabled = True
TxtGrpAltASSINFO.Enabled = True
TxtdtDataASSINFO.Enabled = True
TxtdtDataAltASSINFO.Enabled = True
TxtObsASSINFO.Enabled = True
TxtGrpAltContLicitacoes.Enabled = True
TxtdtContLicitacoes.Enabled = True
TxtdtDataAltContLicitacoes.Enabled = True
TxtObsContLicitacoes.Enabled = True
TxtGrpAltPregaoAdesao.Enabled = True
TxtdtDataPregaoAdesao.Enabled = True
TxtdtDataAltPregaoAdesao.Enabled = True
TxtObsPregaoAdesao.Enabled = True
TxtGrpAltEncerramento.Enabled = True
TxtdtDataEncerramento.Enabled = True
TxtdtDataAltEncerramento.Enabled = True
TxtObsEncerramento.Enabled = True
TxtGrpAltValor.Enabled = True
TxtValor.Enabled = True
TxtdtDataAltValor.Enabled = True
TxtObsValor.Enabled = True
BuscaFoto1.Enabled = True
BuscaFoto2.Enabled = True
BuscaFoto3.Enabled = True
BuscaFoto4.Enabled = True
BuscaFoto5.Enabled = True
BuscaFoto6.Enabled = True
BuscaFoto7.Enabled = True
BuscaFoto8.Enabled = True
BuscaFoto9.Enabled = True
BuscaFoto10.Enabled = True
Novo.Enabled = False
Btn_Alterar.Enabled = False
Excluir.Enabled = False
Btn_Salvar.Enabled = True

DoCmd.GoToRecord , , acNewRec

Exit_Novo_Click:
Exit Sub

Err_Novo_Click:
MsgBox Err.Description
Resume Exit_Novo_Click

End Sub


Da erro com o título do tópico.
Os campos estão desabilitados
Alguém poderia explica o porque?
Obrigado

Boas.....

Provavelmente alguns ou algum campo (s) deve(m) estar com outro nome.

Ou o campo novo.enabled= true é alguma variavel, se for basta apenas colocar a sintase abaixo do evento..... dim novo

Fora isso, apenas com o projeto em mãos para uma melhor analise.

Andei lendo e vi num forum a seguinte frase...


Você está abrindo um form num determinado registro e, no mesmo código AoClicar, você torna Desativados os campos ou não permite Adições, etc.

Só que não se pode fazer um controle (caixa, botão, etc) se tornar Desativado se o Foco vai prá ele próprio.

Experimente criar uma caixa de texto não acoplada (no form a ser aberto e sem estar referenciada no código do botão), coloque como ÍndiceDeTabulação=0 e abra o segundo form - não tem como não funcionar.

Seria essa a minha dificuldade?
Se sim.. como fazer essa aplicação?
Retirei daqui um exemplo de cadastro e criei um form1 com a mesma função e um campo só.
Mas dá erro.
Como resolver?
Ou seria melhor em vez de desabilitar os botões torná-los invisível?

Bom dia....

Primeiro, vamos ao formulário1;

a- na linha de comando do botão Comando1
Me.TxtGrupoMateriais.enable = True


Temos nesse comando dois erros.

1- o comando enable está escrito de forma errônea. Correto é: Enabled .
2- a entidade Me.TxtGrupoMateriais se refere a qual do formulário1 ? Por algum acaso não seria a combobox com o nome de: CodDeMateriais

Se for isso então, o correto é:
Private Sub Comando1_Click()
Me.CodDeMateriais.Enabled = True
End Sub

Achei um outro tópico deste grupo.
Trabalhei em cima dele e percebi onde poderia acertar.
Corrigi o erro.
Anexo aquilo que corrigi.
Obrigado