Dim rs1 As ADODB.Recordset 'Таблица со ссылкой на справочник
Dim rs2 As ADODB.Recordset 'Справочник
Private Sub RefreshCombo()
With DataCombo1
.DataField = "" 'Поле ID таблицы - ссылка на справочник
.BoundColumn = "" 'Поле ID справочника
.ListField = "" 'Поле Text справочника
Set .RowSource = rs2 'Источник строк комбо
Set .DataSource = rs1 'Источник редактируемых данных
End With
End Sub
Сейчас этот форум просматривают: Google-бот и гости: 0