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

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


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