diff options
Diffstat (limited to 'wizards/source/access2base/Recordset.xba')
-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: |