summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJean-Pierre Ledure <jp@ledure.be>2015-06-06 16:33:37 +0200
committerLionel Elie Mamane <lionel@mamane.lu>2015-06-06 14:48:18 +0000
commitadcd23cfde8e92da4a755c4914679a3f0a82c224 (patch)
treeb73afe3d0fe234d5099f0422de956d0b507d196c
parent982223b8ebae7024014aabf3cb5630912446befe (diff)
Access2Base - Correct behaviour of MoveNext, MovePrevious
Bug in MoveNext and MovePrevious methods of Recordset class module Reported in https://forum.openoffice.org/en/forum/viewtopic.php?f=47&t=76640 Change-Id: I6d622e803f2ddcea67415bacb720c6084751d837 Reviewed-on: https://gerrit.libreoffice.org/16124 Reviewed-by: Lionel Elie Mamane <lionel@mamane.lu> Tested-by: Lionel Elie Mamane <lionel@mamane.lu>
-rw-r--r--wizards/source/access2base/Recordset.xba21
1 files changed, 9 insertions, 12 deletions
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba
index d97a0d14a61a..28bc2b12e92a 100644
--- a/wizards/source/access2base/Recordset.xba
+++ b/wizards/source/access2base/Recordset.xba
@@ -920,18 +920,15 @@ Dim l As Long, lRow As Long
End If
End Select
- Select Case True
- Case .isBeforeFirst()
- _BOF = True
- _Move = False
- Case .isAfterlast()
- _EOF = True
- _Move = False
- Case Else
- If .rowDeleted() Then Goto Error_RowDeleted
- If .rowUpdated() Then .refreshRow()
- _Move = True
- End Select
+ _BOF = .isBeforeFirst() &apos; https://forum.openoffice.org/en/forum/viewtopic.php?f=47&amp;t=76640
+ _EOF = .isAfterlast()
+ If _BOF Or _EOF Then
+ _Move = False
+ Else
+ If .rowDeleted() Then Goto Error_RowDeleted
+ If .rowUpdated() Then .refreshRow()
+ _Move = True
+ End If
End With
Exit_Function: