用过Access通用平台的都知道。其主要功能就是根据记录源自动创建窗体及相关的设置

正常情况下我们都是先通过向导或者设计视图创建好相关的窗体给用户使用。但是也有时需要让用户动态创建一些内容

这里创建一个以“订单表”为记录源，一个文本框控件和标签控件的窗体。

Sub NewControls() Dim frm As Form Dim ctlLabel As Control, ctlText As Control Dim intTextX As Integer, intTextY As Integer Dim intLabelX As Integer, intLabelY As Integer Set frm = CreateForm frm.RecordSource = "订单表" intLabelX = 200 intLabelY = 200 intTextX = 1500 intTextY = 200 Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _ intTextX, intTextY) Set ctlLabel = CreateControl(frm.Name, acLabel, , _ ctlText.Name, "NewLabel", intLabelX, intLabelY) ' Restore form. DoCmd.Restore End Sub

效果图：

access怎么创建主窗体（Access动态创建窗体及动态创建控件）(1)

源码下载地址：http://www.office-cn.net/access-control/401.html

,