Access+VBA

Формулировка задачи:

Доброго времени суток. Просьба немного помочь. Есть таблица Словарь, в ней указаны товары и их свойства. Есть форма основанная на этой таблице для поиска товаров и дальнейшего разбрасывания их по таблицам "Продажи", "Продажи Опт", "Закупка". Соответственно есть три кнопки для отправки данных в каждую таблицу. Т.е. кнопка выполняет функцию копирования нужных полей выбранного товара в нужную таблицу. Выглядит это так:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Кнопка51_Click()
Dim rs As dao.Recordset
Set rs = CurrentDb.OpenRecordset("Продажи", dbOpenDynaset)
rs.AddNew
rs!Тип = Me!Тип()
rs!Производитель = Me!Производитель()
rs!Название = Me!Название()
rs!Цена = Me!Цена1
rs!Описание = Me!Описание()
rs!Объем = Me!Объем1
rs!Никотин = Me!Поле68
rs!Количество = Me!Количество1
rs.Update
rs.Close
Set rs = Nothing
MsgBox ("Успешно")
End Sub

На данный момент мне нужно вычислить остаток товара. Логика проста, при нажатии кнопки Закупка и отправки товара в данную таблицу, к полю "Остаток" для данного товара должно быть прибавлено количество (количество указывается в поле формы). Соответственно при "продаже" или "продаже оптом" Количество должно отниматься. Я попробовал реализовать это следующим образом:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Кнопка51_Click()
Dim rs As dao.Recordset
Set rs = CurrentDb.OpenRecordset("Продажи", dbOpenDynaset)
rs.AddNew
rs!Тип = Me!Тип()
rs!Производитель = Me!Производитель()
rs!Название = Me!Название()
rs!Цена = Me!Цена1
rs!Описание = Me!Описание()
rs!Объем = Me!Объем1
rs!Никотин = Me!Поле68
rs!Количество = Me!Количество1
rs.Update
rs.Close
Set rs = Nothing
Set rs = CurrentDb.OpenRecordset("Словарь", dbOpenDynaset)
rs.Edit
rs!Остаток = Me!Остаток - Me!Количество1
rs.Update
rs.Close
Set rs = Nothing
MsgBox ("Успешно")
End Sub

И тут есть одна проблема, эти арифметические операции производятся не с полем принадлежащим к выбранному товару, а с полем самого первого товара. Соответственно мне нужно, чтобы эти операции проводились с полем "остаток" принадлежащем к ВЫБРАННОМУ товару. Я приблизительно понимаю как такое сделать (Использовать recordset своей формы/Seek=Me!Код/или что-то другое), но знания VBA у меня стремятся к 0, и я просто не могу это реализовать.Заранее большое спасибо.

Решение задачи: «Access+VBA»

textual
                            Листинг программы 
                        
rs.findfirst "[Поле кода товара]=" & Me.[Поле кода товара]