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]Ao fechar FORM utilizar um IF e não fechar

    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    [Resolvido]Ao fechar FORM utilizar um IF e não fechar Empty [Resolvido]Ao fechar FORM utilizar um IF e não fechar

    Mensagem  sardao 12/8/2016, 17:18

    Boa tarde,

    Estou aqui com um problema que não sei como resolver.
    Em vez de estar a criar mais um botão queria utilizar o fecho do forma normal da janela do acess mas ao mesmo tempo queriar uma regra para fechar.

    Código:
    Código:
    Private Sub Form_Close()
    If Me.editado = True And Me.UserEdit = Forms!frm_inicio!User Then
    MsgBox "Formulário não deve fechar antes de ser guardado!"

    Else
    MsgBox "Formulário vai fechar"
    End If
    End Sub

    O problema é que seja qual das opções forem encontradas o ficheiro fecha e não deveria faze-lo.
    Alguma ideia? Very Happy

    Obrigado
    Pedro Costa
    sardao
    sardao
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 328
    Registrado : 12/03/2011

    [Resolvido]Ao fechar FORM utilizar um IF e não fechar Empty Re: [Resolvido]Ao fechar FORM utilizar um IF e não fechar

    Mensagem  sardao 12/8/2016, 17:36

    encontrada uma solução, caso exista outra digam Very Happy

    Código:
    Private Sub Form_Unload(Cancel As Integer)
    If Me.editado = True And Me.UserEdit = Forms!frm_inicio!User Then
    MsgBox "Tens de guardar primeiro o processo!"
    Cancel = True
    End If
    End Sub

      Data/hora atual: 21/11/2024, 22:45