Добрый вечер. Я новичок в access и хотел бы спросить у вас кое-что. Имеется таблица и в ней три колонки: код продукт и сумма. Мне надо из vba обращаться к этой таблице и чтобы она пробегалась по первой колонке и если значение ячейки в первой колонке равно 1, то чтобы она брала значение третьего столбца из этой строки и добавляла его в память и так до конца всей таблицы. И чтобы был счётчик добавленных сумм. То есть нужно найти среднее арифметическое всех сумм, у которых значение первого столбца равно 1. Вот что сам пробовал:

Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim str_my As Integer
    Dim k As Integer

     Set db = CurrentDb()
    Set rst = db.OpenRecordset("Общая", dbOpenDynaset) 'dbOpenSnapshot)
    rst.MoveFirst
    
Do While Not rst.EOF
If rst![Код] = 1 Then
        str_my = str_my + rst![Сумма]
        k = k + 1
        rst.MoveNext
End If
    Loop
    rst![С] = str_my / k
       
    
    rst.Close
    db.Close
    Set db = Nothing

Но программа почему то не отвечает и access блокируется

http://www.sql.ru/forum/1218820/put-k-tablice