diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2015-06-06 15:35:51 +0200 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2015-06-06 15:35:51 +0200 |
commit | 94c7c30939e08a5d68229e524087605d5883e3cd (patch) | |
tree | 6f842bb27ff6cd13685a5ed3e11cb9c9d4a0d1ae /wizards | |
parent | Breeze: fix bug 91432 and add Calc InsertXBeforeAfter icons (diff) | |
download | core-94c7c30939e08a5d68229e524087605d5883e3cd.tar.gz core-94c7c30939e08a5d68229e524087605d5883e3cd.zip |
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: Ib094eb61dbb3c6b8656a098c7de41da40cc20648
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/access2base/Recordset.xba | 21 |
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() ' 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: |