| |
|
|
| | Необходимо программно установить несколько ListBox. Что-то никак не получается, а раньше никогда этого не делал.
По фирменному примеру все создается вместе с новой формой, а у меня форма своя. А на своей что-то никак не получается. Где-то что-то не учитываю, а попросту не знаю.
Заранее благодарю. | |
| |
| |
| |
|
|
| | Тук что не получается? Где пример кода? Где текст ошибки?
Примерно так:
'Открываем форму в режиме конструктора и получаем на нее ссылку
DoCmd.OpenForm("ВашаФорма", acDesign)
Set frm = Forms("ВашаФорма"
' Создает в левом верхнем углу области данных неприсоединенный список стандартных размеров.
Set ctlList = CreateControl(frm.Name, acListBox, , "", "", 0, 0)
ctlList.RowSource = "SELECT..." 'Источник строк
'.... Настройка других свойств
ctlList.Width = 5670 'Ширина 10см (567 twips/cm)
'Закрываем форму с сохранением изменений
DoCmd.Close acForm, frm.Name, acSaveYes
|
| |
| |
| |
