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

[Jean-Pierre Ledure]

 wizards/source/access2base/Database.xba |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

New commits:
commit 64cfc7de655ac302138553f9fc2b9de437e0353c
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Fri Oct 27 17:25:04 2017 +0200

    Access2Base - Database events (2)

diff --git a/wizards/source/access2base/Database.xba 
b/wizards/source/access2base/Database.xba
index cdf26aa14bab..e3dba90c9ac6 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -1798,7 +1798,10 @@ Dim i As Integer, vEvents As Variant, sEvent As String, 
vEvent As Variant
                        sEvent = &quot;&quot;
                        vEvents = Document.getEvents().ElementNames             
        &apos;  Returns an array
                        For i = 0 To UBound(vEvents)
-                               If UCase(vEvents(i)) = UCase(psProperty) Then 
sEvent = vEvents(i)
+                               If UCase(vEvents(i)) = UCase(psProperty) Then
+                                       sEvent = vEvents(i)
+                                       Exit For
+                               End If
                        Next i
                        If sEvent = &quot;&quot; Then
                                _PropertyGet = &quot;&quot;
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits