Access2Base - FIX: flush external connections
Connections opened with DoCmd.OpenDatabase were not flushed when closed explicitly. Risk of data loss.
This commit is contained in:
@@ -227,8 +227,11 @@ Const cstThisSub = "Database.Close"
|
||||
mClose = False
|
||||
If _DbConnect <> DBCONNECTANY Then Goto Error_NotApplicable
|
||||
|
||||
Connection.close()
|
||||
Connection.dispose()
|
||||
With Connection
|
||||
.flush
|
||||
.close()
|
||||
.dispose()
|
||||
End With
|
||||
Set Connection = Nothing
|
||||
mClose = True
|
||||
|
||||
|
@@ -9,7 +9,7 @@ REM ============================================================================
|
||||
Option Explicit
|
||||
|
||||
REM Access2Base -----------------------------------------------------
|
||||
Global Const Access2Base_Version = "1.9.0"
|
||||
Global Const Access2Base_Version = "6.2.0" ' Alignment on LibreOffice versions
|
||||
|
||||
REM AcCloseSave
|
||||
REM -----------------------------------------------------------------
|
||||
|
Reference in New Issue
Block a user