运行时错误'29054' Microsoft Access不能添加、重命名或删除您要求的控件

时　间:2012-07-26 08:38:15
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:运行时错误'29054' Microsoft Access不能添加、重命名或删除您要求的控件的原因及解决方法
正　文:

当我们在Form1窗体上用一个事件给当前窗体创建控件时,代码如下：

Private Sub Command0_Click()
   Dim ctlLabel As Control
   DoCmd.OpenForm "Form1", acDesign
   Set ctlLabel = CreateControl("Form1", acLabel, , "", "NewLabel", 100, 100)
   DoCmd.Restore
End Sub

这时会提示如下图错误：

这是因为窗体还没有完全进入设计状态，创建代码就开始执行了，所以出错。

那么，如何才能实现用当前窗体的事件实现创建其他控件呢？这时，我们可以借助一下计时器的功能：

建一个窗体Form2,里面写代码：

Private Sub Form_Timer()
    Dim ctlLabel As Control
    DoCmd.OpenForm "Form1", acDesign
    Set ctlLabel = CreateControl("Form1", acLabel, , "", "NewLabel", 100, 100)
    DoCmd.Restore
    DoCmd.Close acForm, "Form2"
End Sub

再在窗体Form1的命令按钮Command0单击事件写代码：

Private Sub Command0_Click()
DoCmd.OpenForm "Form2"
DoCmd.Close acForm, "Form1"
Forms(Form2).TimerInterval = 1000
End Sub