VBA动态添加控件

大家好，有个问题想请教下。

我有一个表，表中有个字段是用来表示不确定数量的内容。所以我用了","将内容隔开。比如这个字段名  【更换配件】， 有两条记录，一条是“电阻，电容，二极管”，另一条是“电容，三极管”

 

我的想法是动态创建文本框来显示其内容，如果这个字段中有两个数据那么就显示两个文本框，有3个就显示3个文本框。

百度了下，知道ACCESS不能在窗体模式下添加控件，所以我就用了子窗体，先打开子窗体的设计视图，然后根据数量创建对应文本框，创建文本框实现后发现我做不了将字段中的数据在文本框中显示。所以请大家帮帮忙，谢谢了。

 

原先代码如下：

Dim ctl As Control
Dim intX As Integer
Dim intY As Integer

Dim Tbox As ControlDim CXQ() As String
Dim CGHPJ() As String
Dim CPJXH() As String
Dim CPJSL() As String
Dim CPJBZ() As String
CGHPJ = Split(Me.GHPJ, ",")
CXQ = Split(Me.X_Q, ",")
CPJXH = Split(Me.PJXH, ",")
CPJSL = Split(Me.PJSL, ",")
CPJBZ = Split(Me.PJBZ, ",")

'打开子窗体设计模式
DoCmd.OpenForm "childchangespa", acDesign
'删除所有文本框
For Each ctl In Forms!childchangespa
 If ctl.ControlType = acTextBox Then
 DeleteControl "childchangespa", ctl.Name
 End If
Next ctl

'动态添加窗体

intY = 390
intX = 0
For i = 1 To UBound(CGHPJ) + 1
Set Tbox = CreateControl("childchangespa", acTextBox, , "", "", intX, intY, 386, 384)
intY = intY + 390
Next i

'关闭并保存子窗体
DoCmd.Close acForm, "childchangespa", acSaveYes

Me.Child24.SourceObject = "childchangespa"