ник: Анатолий (Киев)
ИМХО, так:
1. Форма должна быть свободной (не связанной с таблицей "Проценты");
2. На событие Позывной_AfterUpdate выполнять:
Me![Процент] = DLookup("[Процент]", "[Проценты]", "[Позывной]=" & Me![Позывной])
3. На событие Добавить_Click выполнять:
Set rst = CurrentDB.OpenRecordset("SELECT * FROM Проценты WHERE [Позывной]=" & Me![Позывной]))
If rst.BOF then
rst.AddNew
rst![Позывной]= Me![Позывной]
Else
rst.Edit
EndIf
rst![Процент]= Me![Процент]
rst.Update
rst.Close
|
Что у вас в источнике строк поля со списком? Если таблица "Проценты", то поле "Процент" можно включить в источник (2-й столбец). Тогда вместо DLookup можно написать так:
Me![Процент] = Me![Позывной].Column(1)