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]Erro de compilação: Variável não definida

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 28/7/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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 28/7/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 29/7/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
    [Resolvido]Erro de compilação: Variável não definida AttachmentCadastro_de_Produtos_vs2007.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (63 Kb) Baixado 28 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 29/7/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 29/7/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
    [Resolvido]Erro de compilação: Variável não definida AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 11 vez(es)

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:07