MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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


    Fechar form sem atualizar, e não fechar caso desejar permancer

    avatar
    rodrigojusti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 23/08/2018

    Fechar form sem atualizar, e não fechar caso desejar permancer Empty Fechar form sem atualizar, e não fechar caso desejar permancer

    Mensagem  rodrigojusti em 13/12/2018, 15:01

    Boa tarde.

    No meu programa, gostaria que, ao fechar o form, perguntar se deseja sair sem salvar. Caso sim, ele não salva; caso não, ele fica na janela pro usuário alterar o que precisa ser alterado (fechamento acidental).

    Tentei soluções encontradas na busca mas sem êxito.

    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1267
    Registrado : 05/02/2010

    Fechar form sem atualizar, e não fechar caso desejar permancer Empty Fechar form sem atualizar, e não fechar caso desejar permancer

    Mensagem  good guy em 13/12/2018, 16:04

    Olá Rodrigo,

    Veja se te atende esta sub-rotina:

    Código:
    Private Sub cmdSair_Click()  'Sub-rotina do botão de saída do formulário
    Dim strMsg As String
    Dim intRetVal As Integer

    strMsg = "Deseja sair do programa sem salvar?"
    intRetVal = MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Saída do Programa")

    Select Case intRetVal
    Case Is = vbYes
    Me.Undo
    MsgBox "Alterações desfeitas", vbCritical, "Dados não salvos"
    DoCmd.Quit
    Case Is = vbNo
    DoCmd.RunCommand acCmdSaveRecord
    MsgBox "Alterações foram salvas, mas ainda é possível editar dados.", vbInformation, "Dados salvos"
    Case Is = vbCancel
    intRetVal = MsgBox("Dados salvos. Deseja realmente sair?", vbQuestion + vbYesNo, "Saída do aplicativo")
        Select Case intRetVal
        Case Is = vbYes
        DoCmd.Quit
        Case Is = vbNo
        Exit Sub
        End Select

    End Select

    End Sub
    avatar
    rodrigojusti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 23/08/2018

    Fechar form sem atualizar, e não fechar caso desejar permancer Empty Re: Fechar form sem atualizar, e não fechar caso desejar permancer

    Mensagem  rodrigojusti em 13/12/2018, 19:14

    Olá good guy, nesse caso eu teria que criar um botão de fechar no meu formulário? E desabilitar o existente? (uso a janela em pop-up)
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1267
    Registrado : 05/02/2010

    Fechar form sem atualizar, e não fechar caso desejar permancer Empty Fechar form sem atualizar, e não fechar caso desejar permancer

    Mensagem  good guy em 14/12/2018, 13:19

    Olá Rodrigo,

    Você criou um botão com macro? Aí você tem que escolher ou usar uma macro ou vba. Quanto a janela em pop-up, não vi onde está o problema. Me explique melhor a situação, por favor.

    Conteúdo patrocinado

    Fechar form sem atualizar, e não fechar caso desejar permancer Empty Re: Fechar form sem atualizar, e não fechar caso desejar permancer

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/6/2019, 04:29