| Вопрос: Как оптимально заполнить ComboBox записями Access? | Добавлено: 07.05.11 17:25 |
Автор вопроса:  tavro
|
|
Мне надо заполнить ComboBox в приложении Excel записями Поля из таблицы Аксесс. Ничего другого как сделать это через CopyFromRecordset не нашел. т.е. копирую сразу все записи на лист Excel и оттуда их забираю в ComboBox. Но проблема в том, что записи выстраиваются по номеру Кода, а мне надо получать их в ComboBox по алфавиту. как бы сделать заполнение ComboBox последовательно , предварительно выстроив их в таблице БД Аксесс по алфавиту?
Set CstTable = dbDatabase1.TableDefs("Customer")
Set rsRecordsToshow = CstTable.OpenRecordset() ActiveSheet.Cells(6, 1).CopyFromRecordset rsRecordsToshow With UserForm1 For i = 1 To rsRecordsToshow.RecordCount a(i) = ActiveSheet.Cells(5 + i, 2) ' a(i) = rsRecordsToshow.Fields(i) .CustomerCB.AddItem (a(i)) Next i End With |
| Ответы | Всего ответов: 0 |
Страница: