
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.238.180.174] |
![]() |
|
Сообщ.
#1
,
|
|
|
Не получается программно создавать
![]() Может потому, что метода Controls.Add в VBA нету? P.S. Однако... В Excel Controls.Add есть... А в Access нету. Эта тема была разделена из темы "Создание массива контролов в VBA" |
Сообщ.
#2
,
|
|
|
А вот и выход
![]() Access не позволяет добавлять Control в форму runtime. Так что будем как волшебники, конструировать саму форму: ![]() ![]() Dim pForm As Form Dim pLabel As Label Dim pTextBox As TextBox Set pForm = Application.CreateForm() Set pTextBox = Application.CreateControl(pForm.Name, acTextBox, , , , 400, 400, 1000, 300) Set pLabel = Application.CreateControl(pForm.Name, acLabel, , , , 400, 200, 1000, 200) pLabel.Caption = "MyLabel" DoCmd.OpenForm pForm.Name, acNormal |