Question

我想创建一个包含50个命令按钮的Access窗体，我想迭代这些按钮。当然，手动创建按钮（使用功能区中的工具）不是解决方案。我想使用vba代码通过循环创建这些按钮。我怎么能这样做？

Answer 1

要添加表单控件，您只需要CreateControl（form.name，typeOfcontrol，....）

所以，代码与此类似：

Sub Add50Forms()
Dim db As DAO.Database
Dim frm As Form
Dim newBt As Control
Dim i As Long, j As Long

Set frm = Application.Forms(1)

For i = 0 To 1
For j = 1 To 25
    Set newBt = CreateControl(frm.Name, acCommandButton, Left:=100 + 3000 * i, Top:=500 * j)
    Set newBt = Nothing
Next j
Next i

End Sub

为了简单起见，我已经推出了两个嵌套循环，但它可以用左边的一个和一些花哨的表达式来做：=和top：=命名参数。当然，您想为这些代码添加一些标题等等。控件的位置，尺寸和颜色也取决于您。

如何在Access窗体中创建包含代码的命令按钮？

1 个答案: