1. Поле ФИО на форме преобразовать в поле со списком (Combo Box Control).
2. Задать этому полю следующие свойства:
– Тип источника строк (RowSourceType) Таблица или запрос (Table/Query);
– Источник строк (RowSource) SELECT ФИО,город,должность FROM <таблица> ORDER BY ФИО;
– Число столбцов (ColumnCount) 3 (три);
– Ширина столбцов (ColumnWidths) по обстоятельствам - чтобы все три столбца были видны в открывающемся списке;
– Присоединенный столбец (BoundColumn) 1;
– Автоподстановка (AutoExpand) Нет.
3. Для поля со списком ФИО установить на событие Изменение (Change Event, свойство OnChange) процедуру обработки события
1.
2.
3.
4.
Private Sub ФИО_Change()
ФИО.RowSource = "SELECT ФИО,город,должность FROM <таблица> WHERE ФИО Like """ & ФИО.Text & "*"" ORDER BY ФИО"
ФИО.Dropdown
End Sub
