Здравствуйте! Почему этот код не работает? Я хочу обновить таблицу . К сумме добавить новую сумму. Данные хочу взять из полей ленточной формы. Пишет введите значение параметра (и мои переменные). Ставлю точку останова, значения переменных правильные, то есть код поля читает. Но почему то не работает.

Private Sub Form_AfterUpdate()
Dim SQL As String
Dim deb_acc_id As Integer
Dim sum As Currency
deb_acc_id = Me.DtAccID.Value
sum = Me.Summa.Value
SQL = "UPDATE tblAccounts Set Debet = Debet + sum WHERE (tblAccounts.ID) = deb_acc_id"
DoCmd.RunSQL SQL
End Sub

https://www.sql.ru/forum/1317058/zapros-na-obnovlenie