|
|
|
Обработка события - добавление в форму данных, с выполнением проверки
|
|||
|---|---|---|---|
|
#18+
Нужно сделать следующее: Находясь в форме «1» Открыть форму «2» . Проверить Есть ли в Форме 2 значение соответствующее значению в текущем поле формы «1» Если есть Открыть эту запись в таблице «2» Если нет Создать новую запись в таблице «2», Вставить в поле значение текущего поля. Помогите пожалуйста! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.12.2003, 15:22 |
|
||
|
Обработка события - добавление в форму данных, с выполнением проверки
|
|||
|---|---|---|---|
|
#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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.12.2003, 00:36 |
|
||
|
|

start [/forum/topic.php?fid=45&fpage=1701&tid=1677436]: |
0ms |
get settings: |
11ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
46ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
1ms |
| others: | 251ms |
| total: | 401ms |

| 0 / 0 |
