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

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.

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

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)

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.