[Libreoffice-commits] core.git: Branch 'libreoffice-5-0' - wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/Recordset.xba |   21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

New commits:
commit adcd23cfde8e92da4a755c4914679a3f0a82c224
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Sat Jun 6 16:33:37 2015 +0200

    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 at mamane.lu>
    Tested-by: Lionel Elie Mamane <lionel at mamane.lu>

diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba
index d97a0d1..28bc2b1 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()			'	https://forum.openoffice.org/en/forum/viewtopic.php?f=47&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: