[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 <jp at 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 = ""
 			vEvents = Document.getEvents().ElementNames			'	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 = "" Then
 				_PropertyGet = ""