Выбор значения из списка с автозаполнением остальных полей.

[NHVStudio]

Помогите плиз.

Пишу программку для печати рецептов по партийному заданию шефы (т.е. добровольно принудительно).

1. Есть БД.
2. Таблица LGRP148 (собственно сами рецепты) с полями:


3. Таблица PERSON (Данные пациентов)


4. Форма для ввода рецепта


Мне надо сделать что бы при выборе в форме ФИО из списка пациентов (PERSON.FIO) автоматически заполнялись поля (Дата рождения, Возраст). Ткните мордой в землю... Как это сделать???

База в формате Access 2007

[gluk_fm]

Как вариант пишете запрос который выбирает необходимые Вам параметры и пишете что-то вроде: поле1 = 15,10,2001

[Дмитрий Стариков]

Подскажите, а как сделать, чтобы поиск в поле со списком производился при совпадении с любой частью поля, а не только с началом. Т.е к примеру имеются ООО"Ромашка" и ООО"Лютик", набираю Ром в поле и прога подбирает подходящее значение. Это реализовано в поиске в таблице, как бы применить в данном случае, а то приходиться в отдельном поле делать сокращенные названия....

[alex77755]

Точно это же вопрос. Запрос написал. Но не пому как передать условие.
В запросе поставил условие отбора и он отработал. А как это условие передать в запрос при выборе наименвания?

[95979]

Private Sub F7_AfterUpdate()
Dim s As String
Dim d As Integer

s = DLookup("[Продукт]", "Ролик", "[Бренд] = '" & Me.F7 & "'")
d = DLookup("[Длительность]", "Ролик", "[Бренд] = '" & Me.F7 & "'")
Me.F8 = s
Me.F9 = d
Me.F10 = 0
End Sub
Сам намаялся с автоподстановкой ) Тут от значения ф7 заполняет ф8, ф9 из той же строки