Заполнение подчиненной формы по нажатию кнопки

Вторник, 16 Мая 2017 г. 15:47 + в цитатник

Есть формы: Главная, подчиненная 1-го уровня, в ней подчиненная 2-го уровня.

Пытаюсь создать кнопку, по нажатию которой, первые 3 записи в подчиненной форме заполняются определенным образом (в формулах участвуют поля с [Подчиненная У1]). При этом, если записи уже созданы и заполнены, после нажатия, они должны пересчитаться.

Записи заполняю так:
Forms![Главная]![Подчиненная У1]![Подчиненная У2].Form![Поле А] = Forms![Главная]![Подчиненная У1].Form![Поле 1]
Forms![Главная]![Подчиненная У1]![Подчиненная У2].Form![Поле Б] = Forms![Главная]![Подчиненная У1].Form![Поле 2] * Forms![Главная]![Подчиненная У1].Form![Поле 3]

Проблемы начинаются, когда начинаю проверять наличие записей и передвигаться по ним.
Делаю это через .Form.Recordset...

+=Текущий код представляет собой мешанину проб и ошибок, часть его выглядит примерно так:

 If Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;]![&#239;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#209;&#239;&#232;&#241;&#224;&#237;&#232;&#229;&#196;&#196;].Form.RecordsetClone.RecordCount > 0 Then
    Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;]![&#239;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#209;&#239;&#232;&#241;&#224;&#237;&#232;&#229;&#196;&#196;].Form.Recordset.MoveFirst
 End If
    Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;]![&#239;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#209;&#239;&#232;&#241;&#224;&#237;&#232;&#229;&#196;&#196;].Form![&#202;&#238;&#228;&#196;&#196;] = 1
    Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;]![&#239;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#209;&#239;&#232;&#241;&#224;&#237;&#232;&#229;&#196;&#196;].Form![&#202;&#238;&#235;&#232;&#247;&#229;&#241;&#242;&#226;&#238;] = 44 'Int(x) + IIf(x - Int(x) > 0, 1, 0)
 If Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;]![&#239;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#209;&#239;&#232;&#241;&#224;&#237;&#232;&#229;&#196;&#196;].Form.Recordset.RecordCount > 1 Then
    Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;]![&#239;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#209;&#239;&#232;&#241;&#224;&#237;&#232;&#229;&#196;&#196;].Form.Recordset.MoveNext
 Else
    Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;]![&#239;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#209;&#239;&#232;&#241;&#224;&#237;&#232;&#229;&#196;&#196;].Form.Recordset.AddNew
 End If
    Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;]![&#239;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#209;&#239;&#232;&#241;&#224;&#237;&#232;&#229;&#196;&#196;].Form![&#202;&#238;&#228;&#196;&#196;] = 2
    Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;]![&#239;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#209;&#239;&#232;&#241;&#224;&#237;&#232;&#229;&#196;&#196;].Form![&#202;&#238;&#235;&#232;&#247;&#229;&#241;&#242;&#226;&#238;] = Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;].Form![&#216;&#232;&#240;&#232;&#237;&#224;&#204;&#238;&#228;&#243;&#235;&#232;] * Forms![&#199;&#224;&#234;&#224;&#231;]![&#193;&#229;&#227;&#243;&#249;&#232;&#229;&#209;&#242;&#240;&#238;&#234;&#232;].Form![&#194;&#251;&#241;&#238;&#242;&#224;&#204;&#238;&#228;&#243;&#235;&#232;] * 4

тут заполнение 2-х записей

Постоянно возникающие ошибки заставляют думать, что я пошел не по тому пути.
Подскажите как реализовать задуманное?

http://www.sql.ru/forum/1260221/zapolnenie-podchinennoy-formy-po-nazhatiu-knopki

<a href="https://www.liveinternet.ru/users/rss_sql_ru_access_programming/post415204014/">Р—Р°РїРѕР»РЅРµРЅРёРµ РїРѕРґС‡РёРЅРµРЅРЅРѕР№ С„РѕСЂРјС‹ РїРѕ РЅР°Р¶Р°С‚РёСЋ РєРЅРѕРїРєРё</a><br/>Р•СЃС‚СЊ С„РѕСЂРјС‹: Р“Р»Р°РІРЅР°СЏ, РїРѕРґС‡РёРЅРµРЅРЅР°СЏ 1-РіРѕ СѓСЂРѕРІРЅСЏ, РІ РЅРµР№ РїРѕРґС‡РёРЅРµРЅРЅР°СЏ 2-РіРѕ СѓСЂРѕРІРЅСЏ.РџС‹С‚Р°СЋСЃСЊ СЃРѕР·РґР°С‚СЊ РєРЅРѕРїРєСѓ, РїРѕ РЅР°Р¶Р°С‚РёСЋ РєРѕС‚РѕСЂРѕР№, РїРµСЂРІС‹Рµ 3 Р·Р°РїРёСЃРё РІ РїРѕРґС‡РёРЅРµРЅРЅРѕР№ С„РѕСЂРјРµ Р·Р°РїРѕР»РЅСЏСЋС‚СЃСЏ РѕРїСЂРµРґРµР»РµРЅРЅС‹Рј РѕР±СЂР°Р·РѕРј (РІ С„РѕСЂРјСѓР»Р°С… СѓС‡Р°СЃС‚РІСѓСЋС‚ РїРѕР»СЏ СЃ [РџРѕРґС‡РёРЅРµРЅРЅР°СЏ РЈ1]). РџСЂРё СЌС‚РѕРј, РµСЃР»Рё Р·Р°РїРёСЃРё СѓР¶Рµ СЃРѕР·РґР°РЅС‹ Рё Р·Р°РїРѕР»РЅРµРЅС‹, РїРѕСЃР»Рµ РЅР°Р¶Р°С‚РёСЏ, РѕРЅРё РґРѕР»Р¶РЅС‹ РїРµСЂРµСЃС‡РёС‚Р°С‚СЊСЃСЏ.Р—Р°РїРёСЃРё Р·Р°РїРѕР»РЅСЏСЋ С‚Р°Рє:Forms![Р“Р»Р°РІРЅР°СЏ]![РџРѕРґС‡РёРЅРµРЅРЅР°СЏ РЈ1]![РџРѕРґС‡РёРЅРµРЅРЅР°СЏ РЈ2].Form![РџРѕР»Рµ Рђ] = Forms![Р“Р»Р°РІРЅР°СЏ]![РџРѕРґС‡РёРЅРµРЅРЅР°СЏ РЈ1].Form![РџРѕР»Рµ 1]Forms![Р“Р»Р°РІРЅР°СЏ]![РџРѕРґС‡РёРЅРµРЅРЅР°СЏ РЈ1]![РџРѕРґС‡РёРЅРµРЅРЅР°СЏ РЈ2].Form![РџРѕР»Рµ Р‘] = Forms![Р“Р»Р°РІРЅР°СЏ]![РџРѕРґС‡РёРЅРµРЅРЅР°СЏ РЈ1].Form![РџРѕР»Рµ 2] * Forms![Р“Р»Р°РІРЅР°СЏ]![РџРѕРґС‡РёРЅРµРЅРЅР°СЏ ... <a href="https://www.liveinternet.ru/users/rss_sql_ru_access_programming/post415204014/">Р§РёС‚Р°С‚СЊ РґР°Р»РµРµ...</a>

Комментировать

« Пред. запись — К дневнику — След. запись »

Страницы: [1] [Новые]

LiveInternetLiveInternet

-Поиск по дневнику

-Подписка по e-mail

-Постоянные читатели

-Статистика

Заполнение подчиненной формы по нажатию кнопки