Reverter uma função "Salvar Tudo"

Amigos, bom dia!

Criei um simples botão "Fechar" num formulário no meu aplicativo.
A macro criada automaticamente me ofereceu uma opção "Salvar Tudo", pela qual optei.
Pensei que fosse a mais indicada mas quando acionei o botão criado para testar vi que o tamanho do arquivo em que vinha trabalhando saltou de 5Mb para 20Mb...
Gostaria que os amigos me indicassem qual seria a melhor opção para salvar e se é possível reverter.

Obrigado!
Lárimer

Ola;

Pode usar esta função;

Private Sub SeuBotãoFecharForm_Click()
'By JPaulo ® Maximo Access
If Me.Dirty Then
 If MsgBox("Deseja Salvar ?", vbOKCancel, "Salvar?") = vbCancel Then
   Me.Undo
 End If
End If
   DoCmd.Close
End Sub

Muito obrigado JPaulo!

Restou uma dúvida:
Por que o tamanho do arquivo "explodiu" quando usei a opção "salvar tudo"?
O tamanho do arquivo estava em 5Mb e saltou para 20Mb...

Grato!
Lárimer

Se quer que seja sincero consigo, não lhe sei dizer... 

Obrigado, Paulo!

Vou deixar a postagem aberta ainda para ver se algum outro participante do grupo acrescenta alguma sugestão.

Mas a sua orientação já valeu!

Abç!
Lárimer