Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Анатолий (Киев)
For i = dobav_s To dobav_po rs.FindFirst "[серия_номер] ='" & Me![серия] & Mid(i, 2, 10) & "'" If rs.NoMatch Then rs.AddNew rs![номер] = Mid(i, 2, 10) rs![серия] = Me.серия rs![серия_номер] = Me![серия] & Mid(i, 2, 10) rs.Update End If Next
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.