ник: час
вот поподробнее
Private Sub Кнопка44_Click()
' не надо ничё сообщать - что ба ни случилося
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Svedeniya SET Svedeniya.Kol_vo = 0, Svedeniya.Korzina = 0 WITH OWNERACCESS OPTION;"
DoCmd.SetWarnings True
' теперь можно любые ошибки обрабатывать и орать - это не так, то не эдак
End Sub