如何在 Access 表单中使用代码创建命令按钮？
How can I create command buttons with code in an Access form?
我想创建一个包含 50 个命令按钮的 Access 表单，并且我想遍历这些按钮。当然，手动创建按钮（使用功能区中的工具）不是解决方案。我想使用 vba 代码通过循环创建这些按钮。我该怎么做？
要添加表单控件，您只需要 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
为了简单起见，我已经提出了两个嵌套循环，但它可以用一个和一些用于 left:= 和 top:= 命名参数的奇特表达式来实现。当然，您想为这些代码添加一些标题等等。控件的位置、大小和颜色也由您决定。
我想创建一个包含 50 个命令按钮的 Access 表单，并且我想遍历这些按钮。当然，手动创建按钮（使用功能区中的工具）不是解决方案。我想使用 vba 代码通过循环创建这些按钮。我该怎么做？
要添加表单控件，您只需要 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
为了简单起见，我已经提出了两个嵌套循环，但它可以用一个和一些用于 left:= 和 top:= 命名参数的奇特表达式来实现。当然，您想为这些代码添加一些标题等等。控件的位置、大小和颜色也由您决定。