Private Sub SeuBotãoFecharForm_Click() If Me.Dirty Then If MsgBox("Deseja Salvar ?", vbOKCancel, "Salvar?") = vbCancel Then Me.Undo End If End If DoCmd.Close End Sub
................................................................................. Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.