please see following code, where I demontrate, that access will not free
memory after an object is net to nothing:
Public Sub testprinter()
Dim pPrinter As Printer
Dim i As Long
While i < 1000
i = i + 1
Set pPrinter = Application.Printers("MinoEti")
Set pPrinter = Nothing ' the memory will not bee freed
PS: Please replace "MinoEti" with a existing printer.
Have a look at the system-memory an you see, the memory will not be freed
can you fix this big in access??
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.
||11/13/2009 12:42:01 PM