E
Eugen
Hi,
please see following code, where I demontrate, that access will not free
memory after an object is net to nothing:
<code>
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
Wend
End Sub
</code>
PS: Please replace "MinoEti" with a existing printer.
Have a look at the system-memory an you see, the memory will not be freed
again!
can you fix this big in access??
greetings
eugen
----------------
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.
http://www.microsoft.com/office/com...4662&dg=microsoft.public.access.modulesdaovba
please see following code, where I demontrate, that access will not free
memory after an object is net to nothing:
<code>
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
Wend
End Sub
</code>
PS: Please replace "MinoEti" with a existing printer.
Have a look at the system-memory an you see, the memory will not be freed
again!
can you fix this big in access??
greetings
eugen
----------------
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.
http://www.microsoft.com/office/com...4662&dg=microsoft.public.access.modulesdaovba