Вот мы и узнали, как Виталий считает суммы.

Чтобы заработал предыдущий вопрос (как видно из соответствующий ветки), надо писать:

Private Sub Количество_AfterUpdate()
docmd.runcommand accmdsaverecord
MySum = DSum("Количество", Me.RecordSource)
End Sub

Тогда проблемы отката не будет, т.к. не будет отката.
Здесь Dsum тоже не учитывает введенные, но не сохраненные изменения.
Так что вопрос не совсем корректен.

А вообще, есть события

Private Sub Form_Undo(Cancel As Integer)
End Sub

и

Private Sub Control_Undo(Cancel As Integer)
End Sub