access 在窗体上动态添加控件

Question

如题所述

Answer 1

Dim ctl As Control
rem 定义一个控件类型变量

DoCmd.OpenForm "窗体12", acDesign, , , , acHidden
rem 在设计视图以隐藏状态打开窗体12
Set ctl = CreateControl("窗体12", acComboBox, acDetail, , , 10, 50, 3000, 440)
创建控件ctl在窗体12中，类型为组合框，后面为具体选项
DoCmd.OpenForm "窗体12"
执行显示窗体。