[Libreoffice-commits] core.git: wizards/source

[Libreoffice Gerrit user]

 wizards/source/access2base/Database.xba |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

New commits:
commit 6f0dc4334a2772e14d8a1c771e9f31108212c506
Author:     Jean-Pierre Ledure <jp at ledure.be>
AuthorDate: Tue Nov 13 09:08:01 2018 +0100
Commit:     Jean-Pierre Ledure <jp at ledure.be>
CommitDate: Tue Nov 13 09:12:36 2018 +0100

    Access2Base - tdf#121342 Increase number of recordsets
    
    RecordsetMax attribute of Database object is increased by 1
    at each Recordset opening.
    It is reset to zero at each database opening.
    While the database remains open it is increased without limit.
    Make it a Long type i.o. an Integer one.
    
    Change-Id: Ifc9854cddc1917e4336c0c0c5aa1048623de2a49

diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index 7f1d5e726572..cbaa96555e06 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -34,7 +34,7 @@ Private _ColumnTypesAlias()		As Variant				'	To what should a field whose o
 Private _BinaryStream			As Boolean				'	False = binary fields must NOT be streamed f.i. via ReadAllBytes or WriteAllBytes
 Private	Form					As Object				'	com.sun.star.form.XForm
 Private FormName				As String
-Private RecordsetMax			As Integer
+Private RecordsetMax			As Long					'	To make unique names in Collection below (See bug # 121342)
 Private	RecordsetsColl			As Object				'	Collection of active recordsets
 
 REM -----------------------------------------------------------------------------------------------------------------------