'Открываем форму в режиме конструктора и получаем на нее ссылку
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
|