MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Ter 28 Jul 2015, 22:51

    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 28 Jul 2015, 23:29

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qua 29 Jul 2015, 15:15

    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?
    Anexos
    Cadastro_de_Produtos_vs2007.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (63 Kb) Baixado 5 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qua 29 Jul 2015, 15:33

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qua 29 Jul 2015, 15:38

    Achei um outro tópico deste grupo.
    Trabalhei em cima dele e percebi onde poderia acertar.
    Corrigi o erro.
    Anexo aquilo que corrigi.
    Obrigado
    Anexos
    Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 3 vez(es)

      Data/hora atual: Dom 04 Dez 2016, 06:07