打开窗体时提示不够记忆执行潮操作

saraou

我在一个窗体上加了一个没有数据来源的label。保存后再打开就提示不够记忆执行操作。截图如下。其他窗体都是可以打开的，只有这个窗体打不开。用别人的电脑也是打不开。请问高手如何解决。

JosephTan

那个trim table mst的窗体是不是弄坏了呢？你还是把它删除了重做一个吧。

saraou

JosephTan 发表于 2012-3-2 15:06
你把那句on error resume next删除了看看行不行吧，我觉得有问题。

删除了那一句也还是打不开。我把那些代码全部删除都还是打不开。

JosephTan

你把那句on error resume next删除了看看行不行吧，我觉得有问题。

JosephTan

Alt+F11展开microsoft access类对象最后一个
竟然自己写了什么都不知道。

saraou

JosephTan 发表于 2012-3-2 14:39
我看你这个程序的form_current()就是一个死循环的程序。
Sub Form_Current()

我没写过这些代码啊？怎样才可以看到这些代码呢？

JosephTan

最后一个窗体的on current事件触发的程序。

saraou

JosephTan 发表于 2012-3-2 14:39
我看你这个程序的form_current()就是一个死循环的程序。

你是说哪个窗体有form_current() 这个程序啊？

JosephTan

saraou 发表于 2012-3-2 17:32
请帮忙查看一下

我看你这个程序的form_current()就是一个死循环的程序。
Sub Form_Current()

    Dim ParentDocName As String

    On Error Resume Next
    ParentDocName = Me.Parent.Name

    If Err <> 0 Then
        GoTo Form_Current_Exit
    Else
        On Error GoTo Form_Current_Err
        
        MsgBox Me.Parent![Trim Table Subform].RecordSource
        
        Me.Parent![Trim Table Subform].Requery
        Me.Parent![Lab Testing Table Subform].Requery
    End If

Form_Current_Exit:
    Exit Sub

Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit  '永远都跑不出循环

End Sub

saraou

roych 发表于 2012-3-2 14:20
打包传上来试试看？

请帮忙查看一下