ник: Гоблин
Спасибо все. Да уж хотел сократить код. Не вышло. Сейчас все работает. Пришлось через макрос, сохранить как модуль. Тут то и выяснилось. Однако загвоздка во втором if запускающим msgbox. Заремил
If Forms![Форма1]![Форма2].Form.RecordsetClone.RecordCount = 0 Then
'If MsgBox("Удалить запись? ", vbYesNo) = vbOK Then 'если в поле 0 значит ничего нет
DoCmd.RunSQL "DELETE [Таблица].КодID, [Таблица].* FROM [Таблица] WHERE ((([Таблица].КодID)=[Forms]![Форма1]![Форма2]![КодID])); ", -1
...
Поставил на закрытие формы все ок. ОДнако что во втором msgbox е не так? Если он запускается, то запрос не работает. Если заремил как сейчас, то все удаляет как и положено. Мистика блин. Бум дум.