diff options
-rw-r--r-- | wizards/source/access2base/Database.xba | 5 |
1 files changed, 4 insertions, 1 deletions
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 = "" |