在VBA访问中动态填充其他子表单的SubForm。
提问于 2017-11-03 11:44:38
我想要创建一个弹出式表单，其中包含一个动态创建的子表单列表。子窗体的数量由父窗体中的用户确定。
这里有一个草图来说明我想做什么。用户可以将"Num分支“的值更改为2到10。这个数字反过来反映在以下可滚动框中创建的子窗体数量中。所有的子形式都是相同的，我用红色勾勒了它们。
关于如何做到这一点，我有几个问题
- 会有一个子形式的倍数吗？
- 如果上面的问题是否定的，并且我必须动态创建每个控件，那么是否需要关注这个答案https://stackoverflow.com/a/31301469/7254514中提到的754个动态创建的控件限制？
- 有人能给我一个循环的例子，演示如何在可滚动框中动态地创建这些子表单吗？我认为在每个for循环中唯一会更改的属性是"top“属性。
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-11-03 12:24:00
您可能不想动态创建子窗体控件(因为创建控件=切换到设计视图，需要对数据库进行独占锁定，等等)。
您不能使用类似连续表单的方法，因为Access不允许连续窗体上的子窗体控件。
我的方法是在表单上设置10个(最大的)子窗体控件，将它们全部隐藏起来，并将它们动态分配给特定的源对象。
伪码：
Dim numBranches As Long
Dim i As Long
For i = 1 to numBranches
Me.Controls("subform" & i).Visible = True
Me.Controls("subform" & i).Form.Filter = "branch = " & i 'Appropriate filter here
Me.Controls("subform" & i).Form.FilterOn = True
Next i页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/47103413
复制相关文章
点击加载更多
腾讯云开发者
