diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2014-08-23 12:12:05 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2014-08-23 12:16:53 +0200 |
| commit | 9e8b930b136b5e6b74aea92863dc9fb2dfd97e9f (patch) | |
| tree | aa357c8c7fe8f9c1465dbc8017e5cc6c3a719c44 /wizards/source/access2base/Application.xba | |
| parent | 552f139d2a4785882d68016cbdf2f630c69f6300 (diff) | |
Dispose() method for all objects
An implicit (Terminate_Class) and an explicit (Dispose) method have been created
to stimulate better memory management.
Change-Id: I240e5117db6bf0d1fcf268e3ddf6d67e0bc1b8eb
Diffstat (limited to 'wizards/source/access2base/Application.xba')
| -rw-r--r-- | wizards/source/access2base/Application.xba | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index f68ced5d862a..9a994b117aae 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -1094,7 +1094,6 @@ Dim i As Integer, iCount As Integer, iAllCount As Integer, ofForm As Variant iAllCount = AllForms._Count iCount = 0 If iAllCount > 0 Then - Set ofForm = New Form For i = 0 To iAllCount - 1 Set ofForm = Application.AllForms(i) If ofForm.IsLoaded Then iCount = iCount + 1 @@ -1108,7 +1107,7 @@ Dim i As Integer, iCount As Integer, iAllCount As Integer, ofForm As Variant End If If IsMissing(piCountMax) Then _CountOpenForms = iCount - + End Function ' CountOpenForms V1.1.0 REM ----------------------------------------------------------------------------------------------------------------------- |