diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2015-06-13 14:33:36 +0200 |
|---|---|---|
| committer | Caolán McNamara <caolanm@redhat.com> | 2015-06-16 14:41:19 +0000 |
| commit | 8a315c82aa6609800b4651811cf72c06cc1b9b29 (patch) | |
| tree | f68bafe1f0b996fcd9a265ab262b53fa7c927405 /wizards | |
| parent | f9bd17b3c1b2dd656c707512fd34a3bdec5d33c9 (diff) | |
Access2Base - Correct behaviour of MoveNext, MovePrevious (patch 03)
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: I6c2a3f6e23bbc414f594c791a86066d46a7b09f4
Reviewed-on: https://gerrit.libreoffice.org/16257
Reviewed-by: Caolán McNamara <caolanm@redhat.com>
Tested-by: Caolán McNamara <caolanm@redhat.com>
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 4a9c83354adb..4df3af296413 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: |