MyTetra Share
Делитесь знаниями!
программное создание контролов, MS Access
Время создания: 31.07.2019 23:05
Текстовые метки: Controls
Раздел: !Закладки - VBA - Форма
Запись: xintrea/mytetra_db_adgaver_new/master/base/1512852206b4pl8vye24/text.html на raw.githubusercontent.com

Не получается программно создавать


Может потому, что метода Controls.
Add в VBA нету?

P.S. Однако... В Excel Controls.
Add есть... А в Access нету.

Эта тема была разделена из темы "Создание массива контролов в VBA"


А вот и выход

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

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования