Kaydet (Commit) adcd23cf authored tarafından Jean-Pierre Ledure's avatar Jean-Pierre Ledure Kaydeden (comit) Lionel Elie Mamane

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/16124Reviewed-by: 's avatarLionel Elie Mamane <lionel@mamane.lu>
Tested-by: 's avatarLionel Elie Mamane <lionel@mamane.lu>
üst 982223b8
...@@ -920,18 +920,15 @@ Dim l As Long, lRow As Long ...@@ -920,18 +920,15 @@ Dim l As Long, lRow As Long
End If End If
End Select End Select
Select Case True _BOF = .isBeforeFirst() &apos; https://forum.openoffice.org/en/forum/viewtopic.php?f=47&amp;t=76640
Case .isBeforeFirst() _EOF = .isAfterlast()
_BOF = True If _BOF Or _EOF Then
_Move = False _Move = False
Case .isAfterlast() Else
_EOF = True If .rowDeleted() Then Goto Error_RowDeleted
_Move = False If .rowUpdated() Then .refreshRow()
Case Else _Move = True
If .rowDeleted() Then Goto Error_RowDeleted End If
If .rowUpdated() Then .refreshRow()
_Move = True
End Select
End With End With
Exit_Function: Exit_Function:
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment