Сначала была одна структура. Были сделаны все формы. А потом оказалось, что есть одна заковыка, которую не решить, если не переделать ряд таблиц. Чёрт! Интерфейс помогали делать разные люди. Что-то делалось самостоятельно, а что-то помогали форумчане. И вот есть ошибка одна, которую никак не пойму.

Есть три кнопки, которые:
1) Удаляет запись из таблицы
2) Изменяетя
3) Добавляет новую

Вот код на добавление:

+

Private Sub Кнопка37_Click() On Error GoTo er1 If Me!spisok1 = 0 Then MsgBox "Не выбрано Обращение в списке!" Exit Sub End If If Me!sgg = 0 Then MsgBox "Не выбрана Группа Генов!" Me!sgg.SetFocus Exit Sub End If If Me!sg = 0 Then MsgBox "Не выбран Ген!" Me!sg.SetFocus Exit Sub End If If Me!sa = 0 Then MsgBox "Не выбран Аллель!" Me!sa.SetFocus Exit Sub End If If Me!l = 0 Then MsgBox "Не выбран Лаборант!" Me!l.SetFocus Exit Sub End If Dim stDocName As String stDocName = "gen_store" DoCmd.OpenQuery stDocName, acNormal, acEdit Me!spisok2.Requery Me!spisok2 = 0 Me!stoim2.Requery Me!stoim2 = Me!stoim2.ItemData(0) Me!ss1 = Me!stoim2.Column(1) Me!ss2 = Me!stoim2.Column(2) stDocName = "obr_mod2" DoCmd.OpenQuery stDocName, acNormal, acEdit Me!stoim2.Requery Me!stoim2 = Me!stoim2.ItemData(0) Me!ss1 = Me!stoim2.Column(1) Me!ss2 = Me!stoim2.Column(2) MsgBox "Готово! Первый в списке!" Exit Sub er1: MsgBox "Ошибка добавления Гена!" End Sub

Я так понимаю, что там запускается два запроса. Сначала gen_store

+

INSERT INTO Заказанные_гены ( ИД_Обращения, ИД_Гена, ИД_Аллеля, ИД_Лаборанта, Примечание_к_заказанным_генам ) SELECT Forms!Address!spisok1 AS Выражение1, Forms!Address!sg AS Выражение2, Forms!Address!sa AS Выражение3, Forms!Address!l AS Выражение4, rest_prim(Forms!Address!pr) AS Выражение5;

а после obr_mod2, который пересчитывает стоимость.

+

UPDATE Обращения SET Обращения.Итого = CDbl(Forms!Address!ss1)+CDbl(Forms!Address!ss2) WHERE (((Обращения.ИД_Обращения)=[Forms]![Address]![spisok1]));

Структура базы.

+

http://firepic.org/images/2014-07/31/hmdg1324ervt.png

Я могу выложить и базу, но не хотелось бы кидать её в открытый доступ прямо тут.

Помогите, пожалуйста!

http://www.sql.ru/forum/1108356/pomogite-nayti-oshibku-posle-izmeneniya-struktury-tablic-v-baze