繁体   English   中英

运行时错误2147024809(80070057):找不到指定的对象

[英]Runtime Error 2147024809 (80070057): Could not find the specified object

最近,我的项目遇到了一个问题,这确实使我陷入困境。 自计划启动以来,我的项目不再能识别我11种形式中的2种。 表单的名称没有更改,调用表单的代码也没有更改。 以前没有问题就调用了这两种形式,现在存在此运行时错误。 不再显示的两个表格是“ Vacation_Days_Form”和“ Vacation_Holidays_Form”,如下面的代码所述。 另一个问题是“ Holidays_Form”用户窗体,该用户窗体正在被调用,但实际上没有数据输出到程序中。 同样,此表单以前可以正常工作,而现在没有更改与该表单有关的代码之后就无法运行了。 可以从下面的代码使用的主要形式中只有一种是“ Normal_Iteration”,它嵌入在Module1中(不是用户形式)。 下面是我的代码:

Private Sub UserForm_Initialize()
    With Options
        .AddItem "No Vacation or Holidays"
        .AddItem "Vacation"
        .AddItem "Holiday"
        .AddItem "Vacation & Holidays"
    End With
End Sub

Private Sub Vacation_Options_Select_Click()
    Vacation_Options_Form.Hide
    Dim List_Options As Integer
    For List_Options = 0 To Options.ListCount - 1
        If Options.Selected(List_Options) = True Then
            If Options.List(List_Options) = "No Vacation or Holidays" Then
                Call Normal_Iteration
            ElseIf Options.List(List_Options) = "Vacation" Then
                Vacation_Days_Form.Show
            ElseIf Options.List(List_Options) = "Holiday" Then
                Holidays_Form.Show
            ElseIf Options.List(List_Options) = "Vacation & Holidays" Then
                Vacation_Holidays_Form.Show
            End If
        End If
    Next
End Sub

要提前回答以下问题:1)是,我检查了程序中仍然存在这些用户窗体; 2)是的,用户表单的命名与上面代码中的命名完全相同。

多谢您协助我们找出问题。 请让我知道我是否需要发布其他代码。

问候,

约旦

我最后只是重做我的项目,实际上是从头开始将我的代码,表单,格式等复制到另一个工作簿中。 我仍然不知道到底发生了什么。 MS Office 2007似乎存在重大的可靠性问题。 谢谢你的帮助。

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM