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


    [Resolvido]Erro no botão de comando

    avatar
    cjoliveira01
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 28/07/2011

    [Resolvido]Erro no botão de comando Empty Erro no botão de comando

    Mensagem  cjoliveira01 24/4/2012, 23:19

    Olá a todos.

    Estou com o seguinte problema em minha BD. Tem alguns formulários em que o botão de comando "Fechar" que inserir dentro dos recursos do próprio Access, ao ser pressionado para fechar o formulário me retorno o seguinte erro:
    "Você inseriu uma expressão que contém uma referencia inválida à propriedade Dirty."

    Troquei o comando e nada.

    Grato

    Carlos Oliveira
    avatar
    Convidad
    Convidado


    [Resolvido]Erro no botão de comando Empty Re: [Resolvido]Erro no botão de comando

    Mensagem  Convidad 24/4/2012, 23:30


    Olá!

    Cole aqui o código do evento Click do botão.
    avatar
    cjoliveira01
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 28/07/2011

    [Resolvido]Erro no botão de comando Empty Resposta

    Mensagem  cjoliveira01 24/4/2012, 23:33

    Private Sub Comando78_Click()
    On Error GoTo Err_Comando78_Click


    If Me.Dirty Then Me.Dirty = False
    DoCmd.Quit

    Exit_Comando78_Click:
    Exit Sub

    Err_Comando78_Click:
    MsgBox Err.Description
    Resume Exit_Comando78_Click

    End Sub
    avatar
    Convidad
    Convidado


    [Resolvido]Erro no botão de comando Empty Re: [Resolvido]Erro no botão de comando

    Mensagem  Convidad 24/4/2012, 23:39


    Tente assim:


    Private Sub Comando78_Click()
    On Error Resume Next
    If Form.Dirty = True Then
    MsgBox "Salve as alterações antes de continuar."
    Else
    DoCmd.Close acForm, "NomeDoFormulário"
    End If
    End Sub

    avatar
    cjoliveira01
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 28/07/2011

    [Resolvido]Erro no botão de comando Empty Resposta

    Mensagem  cjoliveira01 25/4/2012, 12:53

    Olá,

    Fiz a alteração como sugerido, mas o comando executa apenas a exibição da mensagem e a janela do Form nao fecha.

    Carlos
    avatar
    Convidad
    Convidado


    [Resolvido]Erro no botão de comando Empty Re: [Resolvido]Erro no botão de comando

    Mensagem  Convidad 25/4/2012, 13:00


    Olá!

    Observe que o código emite a mensagem porque o form está em edição (Dirty = True).
    Deve salvar as alterações antes de fechar.
    Se não estiver em edição (Dirty = False) vai fechar normalmente.
    avatar
    cjoliveira01
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 28/07/2011

    [Resolvido]Erro no botão de comando Empty Resposta

    Mensagem  cjoliveira01 25/4/2012, 14:43

    Olá Norberto,

    Continua dando a mensagem e não fecha.
    Coloquei no botão uma macro associada e funcionou. Não sei se utilizar uma macro traz algum prejuízo a performance da BD. se não trouxer acredito que tenha resolvido o problema.
    Mas valeu pela ajuda.

    Obrigado,

    Carlos
    avatar
    Convidad
    Convidado


    [Resolvido]Erro no botão de comando Empty Re: [Resolvido]Erro no botão de comando

    Mensagem  Convidad 25/4/2012, 14:48


    Você substituiu "NomeDoFormulário" pelo nome do formulário que quer fechar?

    Se não for isso, e conseguiu resolver de outra forma, ótimo.

    Lembre de clicar no Resolvido.
    avatar
    cjoliveira01
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 28/07/2011

    [Resolvido]Erro no botão de comando Empty Resposta

    Mensagem  cjoliveira01 25/4/2012, 16:15

    Sim, fiz a alteração do nome e tudo mais.

    Mas como disse fiz uma macro e deu certo.

    Obrigado.

    Xarlos

    Conteúdo patrocinado


    [Resolvido]Erro no botão de comando Empty Re: [Resolvido]Erro no botão de comando

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/5/2024, 06:14