diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2017-10-27 17:25:04 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-10-27 17:25:04 +0200 |
| commit | 64cfc7de655ac302138553f9fc2b9de437e0353c (patch) | |
| tree | ff8d04cf40f64d7a3e948c26cba64dc7865ac132 /wizards | |
| parent | ac31598662c280ef99f305f6ca8ddc0be96ede06 (diff) | |
Access2Base - Database events (2)
Diffstat (limited to 'wizards')
| -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 = "" |