ADP程序兩個(gè)窗體來回切換，提示內(nèi)存不足，怎么解決？

XMX64311

各位老師有沒有遇到這樣的情況？ACCESS程序運(yùn)行一段時(shí)間會提示內(nèi)存不足，如兩個(gè)窗體通過計(jì)時(shí)器實(shí)現(xiàn)來回切換，可切換
一段時(shí)間，如幾個(gè)小時(shí)后，電腦會提示內(nèi)存不足，程序停止運(yùn)行！

  請問有沒有VBA清內(nèi)存的代碼？

  我用了下面代碼清理，實(shí)踐證明沒有效果：
Call SetProcessWorkingSetSize(GetCurrentProcess(), -1, -1)

roych

沒搞懂為什么會有這種來回切換的需求，而且還使用計(jì)時(shí)器事件~~~
印象中，計(jì)時(shí)器事件比較耗內(nèi)存的。

XMX64311

我是車間有電視看板，需要在安燈和訂單狀態(tài)來回切換的，但內(nèi)存會越來越高導(dǎo)致系統(tǒng)停止運(yùn)行，這個(gè)問題很嚴(yán)重！需要一段自動清內(nèi)存的代碼！

ganlinlao

這是典型的內(nèi)存泄露問題。代碼當(dāng)中有一部分代碼 導(dǎo)致內(nèi)存無法釋放資源。或?qū)е聴Ｖ苯右绯觥?/td>

XMX64311

ganlinlao 發(fā)表于 2018-8-14 11:05
這是典型的內(nèi)存泄露問題。代碼當(dāng)中有一部分代碼 導(dǎo)致內(nèi)存無法釋放資源�；�?qū)е聴Ｖ苯右绯觥?/blockquote>

請問，可以解決嗎？

tmtony

你看看代碼中有什么對像，逐個(gè)都釋放一下看看

ganlinlao

XMX64311，有時(shí)間的話，請?zhí)峁┮稽c(diǎn)你的真實(shí)情形的代碼（局部的），否則一切都是空談。別人也沒辦法模擬你的真實(shí)情形。

XMX64311

Private Declare Function SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long



Private Sub Form_Load()




Me.frmAndonXTsub.Requery

Me.frmAndonXTsub.Width = Me.WindowWidth - 600

Me.Text1 = DCount("*", "qforAndonXT", "問題類別=1")

Me.Text1.Requery

Me.Text2 = DCount("*", "qforAndonXT", "問題類別=2")

Me.Text2.Requery

Me.Text3 = DCount("*", "qforAndonXT", "問題類別=3")

Me.Text3.Requery

Me.Text4 = DCount("*", "qforAndonXT", "問題類別=4")

Me.Text4.Requery

Me.Text5 = DCount("*", "qforAndonXT", "問題類別=5")

Me.Text5.Requery


Me.Child1.Requery
Me.Child2.Requery
Me.Child3.Requery
Me.Child4.Requery
Me.Child5.Requery
Me.Child6.Requery
Me.Child7.Requery
Me.Child8.Requery
Me.Child10.Requery
Me.Child11.Requery
Me.Child12.Requery
Me.Child13.Requery
Me.Child14.Requery
Me.Child15.Requery
Me.Child16.Requery
Me.Child17.Requery
Me.Child18.Requery
Me.Child19.Requery
Me.Child20.Requery
Me.Child21.Requery
Me.Child22.Requery
Me.Child23.Requery
Me.Child24.Requery
Me.Child25.Requery
Me.Child26.Requery
Me.Child27.Requery
Me.Child28.Requery
Me.Child29.Requery
Me.Child30.Requery
Me.Child31.Requery
Me.Child32.Requery
Me.Child33.Requery






End Sub

Private Sub Form_Open(Cancel As Integer)

DoCmd.ShowToolbar "Ribbon", acToolbarNo


DoCmd.Maximize

End Sub

Private Sub Form_Timer()

DoCmd.OpenForm "frmAndonXT1"
DoCmd.close acForm, "frmAndonXT"

Call SetProcessWorkingSetSize(GetCurrentProcess(), -1, -1)


End Sub


frmAndonXT和frmAndonXT1來回切換，frmAndonXT1的對象和frmAndonXT是完全一樣的，我本來是做計(jì)時(shí)器時(shí)間到再打開它自己的，不行，才做了一個(gè)窗體frmAndonXT1，對象和frmAndonXT一樣的！