Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Обработка события - добавление в форму данных, с выполнением проверки / 3 сообщений из 3, страница 1 из 1
25.12.2003, 15:22
    #32363383
13
13
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка события - добавление в форму данных, с выполнением проверки
Нужно сделать следующее:
Находясь в форме «1» Открыть форму «2» .
Проверить Есть ли в Форме 2 значение соответствующее значению в текущем поле формы «1»
Если есть Открыть эту запись в таблице «2»
Если нет Создать новую запись в таблице «2»,
Вставить в поле значение текущего поля.

Помогите пожалуйста!
...
Рейтинг: 0 / 0
26.12.2003, 00:36
    #32363871
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка события - добавление в форму данных, с выполнением проверки
Автор еще здесь?

> 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
...
Рейтинг: 0 / 0
26.12.2003, 10:46
    #32364122
13
13
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработка события - добавление в форму данных, с выполнением проверки
Спасибо большое! Сейчас буду пробовать!
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Обработка события - добавление в форму данных, с выполнением проверки / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]