summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJean-Pierre Ledure <jp@ledure.be>2015-02-01 15:00:08 +0100
committerLionel Elie Mamane <lionel@mamane.lu>2015-02-02 19:35:05 +0000
commitaafb2fd9c7580a0de98f2d60657576c62175a5ee (patch)
tree296fd837e30601a7e25b183299360c1ebb68c807
parent96ab5f4994321c75f0fac05c5100dd09d7394a86 (diff)
Access2Base - Patch#2 Bug in Control.RemoveItem
Removing last item of a Listbox produces an "Index out of rande" run-time error Bug reported in user forum https://forum.openoffice.org/en/forum/viewtopic.php?f=47&t=75008 Change-Id: Iee760d1910db193ad53908141cbfa2920afb52fe Reviewed-on: https://gerrit.libreoffice.org/14270 Reviewed-by: Lionel Elie Mamane <lionel@mamane.lu> Tested-by: Lionel Elie Mamane <lionel@mamane.lu>
-rw-r--r--wizards/source/access2base/Control.xba9
1 files changed, 6 insertions, 3 deletions
diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba
index 66705d9d55f6..d150c879ab4c 100644
--- a/wizards/source/access2base/Control.xba
+++ b/wizards/source/access2base/Control.xba
@@ -690,21 +690,24 @@ Dim vRowSource() As Variant, iCount As Integer, i As Integer, j As integer, bFou
For j = i To iCount - 1
vRowSource(j) = vRowSource(j + 1)
Next j
- ReDim Preserve vRowSource(0 To iCount - 1)
bFound = True
Exit For &apos; Remove only 1st occurrence of string
End If
Next i
Case Else
If pvIndex &lt; 0 Or pvIndex &gt; iCount Then Goto Error_Index
- bFound = True
For i = pvIndex To iCount - 1
vRowSource(i) = vRowSource(i + 1)
Next i
- ReDim Preserve vRowSource(0 To iCount - 1)
+ bFound = True
End Select
If bFound Then
+ If iCount &gt; 0 Then &apos; https://forum.openoffice.org/en/forum/viewtopic.php?f=47&amp;t=75008
+ ReDim Preserve vRowSource(0 To iCount - 1)
+ Else
+ vRowSource = Array()
+ End If
If _ParentType &lt;&gt; CTLPARENTISDIALOG Then
ControlModel.ListSource = vRowSource()
End If