Recordset - присваивание значения поля

[Desha]

Private Sub GotoEtap_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim s As String
Dim d1 As String
Dim d2 As String
Set db = CurrentDb

Set rs = db.OpenRecordset("InWork")
rs.AddNew
rs![Заказчик] = Forms![InWorkForm].Controls![Заказчик].Value
rs![Тип] = Forms![InWorkForm].Controls![Тип].Value
rs![Мощность] = Forms![InWorkForm].Controls![Мощность].Value
rs![дата1] = Forms![InWorkForm].Controls![дата1].Value
rs![дата2] = Forms![InWorkForm].Controls![дата2].Value
rs![этап] = Forms![InWorkForm].Controls![этап].Value
Set rs1 = db.OpenRecordset("InWork_Kol")
d1 = rs1![Код]
d2 = rs1![Count-Заказчик]
s = d1 + d2
rs![ID] = s
rs.Update

End Sub

Проблема в том, что он выводит S в строку ниже чем текущая. Скрин прилагаю. MovePrevious не помогает.

[AdrenalinE]

А если поменять местами rs.AddNew и rs![ID] = s?

[Desha]

Он не даст присвоить. Пишет что UpDate не возможно без addnew или edit.

[Teslenko_EA]

Здравствуйте Desha.
измените в коде одну строку

rs.Edit ' AddNew
rs![ID] = s
rs.Update

и думаю - будет Вам счастье.
Евгений.

[Desha]

Я нашла в чем проблема. Исправила. Код исправила, сделала правку выше и привела полный код. Только теперь проблема.

Set rs1 = db.OpenRecordset("InWork_Kol")
d1 = rs1![Код]
d2 = rs1![Count-Заказчик]

Если таблица InWork_Kol нет записей, то выдает ошибку, что не удивительно =). Но дело в том, что записи в InWork_Kol появляются после заполнения данных в InWork. То есть он в первой части записывает данные в таблицу. Далее запрос считает количество записей. а вот в

d2 = rs1![Count-Заказчик]

уже присваивает количество записей полю в эту же таблицу. Какможно обыграть эту ошибку.

[Teslenko_EA]

Здравствуйте Desha.
"..записи в InWork_Kol появляются после заполнения данных в InWork.." - InWork_Kol это запрос?
если Да то его использование не совсем корректно, возможно стоит "упростить" подобным образом:

Private Sub GotoEtap_Click()
Dim db As DAO.Database, rs As DAO.Recordset
Dim s As String, d1 As String, d2 As String
Set db = CurrentDb

Set rs = db.OpenRecordset("InWork")
rs.AddNew
With Forms![InWorkForm]
    rs![Заказчик] = .[Заказчик]
    rs![Тип] = .[Тип]
    rs![Мощность] = .[Мощность]
    rs![дата1] = .[дата1]
    rs![дата2] = .[дата2]
    rs![этап] = .[этап]
End With
rs.Update

d1 = rs![Код]
d2 = rs!RecordCount
s = d1 + d2 'это конкатенация текста а не сложение значений, так задумано?

rs.Edit
rs![ID] = s
rs.Update

End Sub

Евгений.

[Desha]

s = d1 + d2

- да конкатенация, так надо.

d1 = rs![Код]
d2 = rs!RecordCount

rs - ссылается на InWork, а поле Код находится в запросе InWork_Kol
так что ошибочку выдает - элемент не обнаружен в семействе