Kaydet (Commit) 94c7c309 authored tarafından Jean-Pierre Ledure's avatar Jean-Pierre Ledure

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
üst 9ebaed23
......@@ -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:
......
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