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]Botão cancelar não cancela

    Rui Maciel
    Rui Maciel
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Botão cancelar não cancela Empty Botão cancelar não cancela

    Mensagem  Rui Maciel Qui 25 Abr 2013, 14:40

    Boa tarde pessoal
    Tenho um botão no formulário que não limpa o formulário (desacoplado)
    Uso o seguinte código:

    Private Sub Comando260_Click()
    If Me.Dirty Then
    If MsgBox("Deseja Salvar ?", vbOKCancel, "Salvar?") = vbCancel Then
    Me.Undo
    End If
    End If
    End Sub

    Como posso resolver? Agradeço desde já,
    Abraço,
    Rui
    Anexos
    [Resolvido]Botão cancelar não cancela AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (130 Kb) Baixado 20 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Botão cancelar não cancela Empty Re: [Resolvido]Botão cancelar não cancela

    Mensagem  Alexandre Neves Qui 25 Abr 2013, 14:44

    Boa tarde, Rui
    Se o formulário é desvinculado não terá razão de ser a comparação com dirty
    Melhore a nomenclatura de campos e controlos
    Private Sub Comando260_Click()
    If MsgBox("Deseja Salvar ?", vbOKCancel, "Salvar?") = vbCancel Then Me.Undo
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Botão cancelar não cancela Empty Re: [Resolvido]Botão cancelar não cancela

    Mensagem  Rui Maciel Qui 25 Abr 2013, 15:15

    Boas Alexandre
    Vou seguir o seu conselho.
    Contudo, não limpa o formulário.
    Abraço,
    Rui
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Botão cancelar não cancela Empty Re: [Resolvido]Botão cancelar não cancela

    Mensagem  Rui Maciel Qui 25 Abr 2013, 15:18

    Ok resolvido, já consegui. Obrigado

    Conteúdo patrocinado


    [Resolvido]Botão cancelar não cancela Empty Re: [Resolvido]Botão cancelar não cancela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Dom 19 maio 2024, 12:41