Question

我正在尝试在表单Access 2010上创建一个新按钮。如果我单击一个按钮在表单上创建一个新按钮，但如果表单视图与设计视图不同，则无法创建按钮（错误6062：您必须处于设计或布局视图中才能创建或删除控件。如何使用VBA代码创建按钮？感谢。

  Private Sub Command2_Click()
     Dim boton As CommandButton

     Set boton = CreateControl(Me.Name, acCommandButton, acFooter)
        With newButton
            .Visible = True
            .Enabled = True
            .Caption = "prueba"
        End With
  End Sub

Answer 1

有一种更容易实现你想要的方法。您可以在属性表上的表单add creible Visible = False上创建按钮。然后你的代码就是：

Private Sub Command2_Click()
Me.Command3.Visible = True
End Sub

然后当您单击按钮时，它会使按钮出现在表单上。你想通过创建命令按钮来完成什么？这种方法有不足之处吗？

VBA访问：在2010 Access窗体中创建一个新按钮

1 个答案: