Коллеги нужна помощь.

Пытаюсь написать событие на кнопку.
Которая из таблицы «раскладки» брала бы КодТочки и количество
Из таблицы ТоварСНомерами «КодТовараСНомером»
И вставляла бы все это в таблицу «розницаАрхив»

КодТовара определяет все нормально.Проблема:

Помогите пожалуйста, как сделать так,чтобы в т."РозницаГлавная" проставлялась бы текущая дата в поле "ДатаРозница" а кодОперация проставлялось бы "1"

Очень был бы благодарен за помощь специалиста.

Скрин схемы данных и попыток кода прикрепляю

nikolay_magagin погайте,пожалуйста.

CurrentProject.Connection.Execute "INSERT INTO [РозницаАрхив] (КодТоварСНомером, КодТочка,Количество, НомерВДележке ) " & _
"VALUES (" & Me.[G_AAO^KO] & ", " & Me.код & ",1,1);"


" & Me.[G_AAO^KO] & " - что за поле?,и почему в конце 1,1 а где же дата?

alecko отвечаю,рекордсет мешает создать то,что я не то чтобы крут в access(,но если бы добрые люди помогли ...
Уделите минутку?

nikolay_magagin ,пока дошёл вот до такой штуки :
CurrentDb.Execute "INSERT INTO [РозницаАрхив] (КодТоварСНомером, КодТочка, НомерВДележке,Количество) " & _
"SELECT КодТовараСНомером, КодТочка,НомерВДележке ,Количество FROM [Раскладки] WHERE ((Раскладки.КодРаскладка) = " & Me.код & ")"
КодРаскладки показывает правильно,пробовал преобразовать запрос на добавление, нифига пока не получилось.

Но пишет слишком мало параметров.Требуется 2 ,буду думать дальше.

alecko ,попробовал как вы советуете,не получается пока(не выдает ошибок,но и не меняется ничего):

Посмотрел какие подставляет значения,смутило что АрхивКод берет первую запись,а не последнюю
Решил ,что это из-за

rst2.FindFirst "[Счетчик]=" & Me.код, заменил счетчик на КодРаскладка,выдает ошибку Элемент не обнаружен в данном семействе.




Dim str$, rst As Recordset, rst2 As Recordset
str = "РозницаГлавная"
Set rst = CurrentDb.OpenRecordset(str, dbOpenDynaset)
str = "Раскладки"
Set rst2 = CurrentDb.OpenRecordset(str, dbOpenDynaset)
rst2.FindFirst "[Счетчик]=" & Me.код

If Not rst2.NoMatch Then

With rst
.AddNew
.Fields("КодтоварСномером") = Me.код: .Fields("Кодточка") = rst2.Fields("Кодточка"): .Fields("ДатаРозница") = Date: .Fields("КодОперация") = "1": .Fields("АрхивКод") = rst.Fields("РозницаКодГлавная"):
.Update
End With

End If
rst.Close: rst2.Close
Set rst = Nothing: Set rst2 = Nothing

End Sub


Никак пока не могу разобраться.Спасибо Вам большое за участие.Очень важная задача для меня . . .