
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
25.12.2003, 15:22
|
|||
|---|---|---|---|
|
|||
Обработка события - добавление в форму данных, с выполнением проверки |
|||
|
#18+
Нужно сделать следующее: Находясь в форме «1» Открыть форму «2» . Проверить Есть ли в Форме 2 значение соответствующее значению в текущем поле формы «1» Если есть Открыть эту запись в таблице «2» Если нет Создать новую запись в таблице «2», Вставить в поле значение текущего поля. Помогите пожалуйста! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
26.12.2003, 00:36
|
|||
|---|---|---|---|
Обработка события - добавление в форму данных, с выполнением проверки |
|||
|
#18+
Автор еще здесь? > Hаходясь в форме «1» Открыть форму «2». private sub Поле_AfterUpdate() docmd.openform "Форма2" > Проверить Есть ли в Форме 2 значение соответствующее значению в текущем поле формы «1» dim rs as dao.recordset set rs = Forms![Форма2].RecordsetClone rs.findfirst "[Поле]=" & me.[Поле] > Если есть Открыть эту запись в таблице «2» if not rs.nomatch then Forms![Форма2].bookmark = rs.bookmark > Если нет Создать новую запись в таблице «2», else docmd.GoToRecord acDataForm, "Форма2", acNewRec > Вставить в поле значение текущего поля. forms![Форма2]![Поле] = me![Поле] end if End sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=45&mobile=1&tid=1677436]: |
0ms |
get settings: |
8ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
143ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
28ms |
get tp. blocked users: |
1ms |
| others: | 242ms |
| total: | 450ms |

| 0 / 0 |
