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

JosephTan

saraou 发表于 2012-3-2 17:06
这整个access文件才2.25M呢，是不是要给电脑添加内存才能打开了呢？

占不占内存和文件大小没有必然的关系的。要把内存耗尽，几个指令就够了。只要有循环，或者死循环在里面就更加是。

saraou

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

请帮忙查看一下

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

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

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

JosephTan

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

saraou

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

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

JosephTan

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

JosephTan

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

saraou

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

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

JosephTan

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