record verwijderen uit listbox

[Joske2000]

Goeiemorgen,

Hierbij de code die ik (wou) gebruiken om een record te verwijderen uit een listbox :

Private Sub LstStock_Click()
Dim i As Long

For i = 0 To LstStock.ListCount - 1
    If LstStock.Selected(i) Then
        LstStock.RemoveItem (i)
    End If
Next i

End Sub

Ik krijg echter de foutmelding "Fout -2147467259 (80004005) tijdens uitvoering: Niet-opgegeven fout"

Kan iemand mij hiermee verder helpen.
Thx,

Joske

 

[ExcelAmateur]

Heb je hier ook gekeken?
https://www.helpmij.nl/forum/member.php/293443-BjorntobeWild

 

[ExcelAmateur]

Sorry. De link was fout, hier de goede,
https://www.helpmij.nl/forum/showthread.php/684843-listbox-item-verwijderen-m-b-v-Keypress-event

 

[AD1957]

Zo??

Private Sub LstStock_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

With LstStock
    .RemoveItem (.ListIndex)
End With

LstStock.Selected(LstStock.ListIndex) = False

End Sub

 

[HSV]

Doe dat met een dubbelklik.

Private Sub LstStock_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
For i = LstStock.ListCount - 1 To 0 Step -1
    If LstStock.Selected(i) Then LstStock.RemoveItem i
Next i
End Sub

 

[Joske2000]

Hi,

Oplossing van SNB die ik teruggevonden heb werkt !
Het heeft blijkbaar te maken met "frmMultiSelectSingle" of "frmMultiSelectMulti"
Mijn listbox is dus "frmMultiSelectSingle".

Private Sub LstStock_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If LstStock.listindex>-1 then LstStock.removeitem LstStock.listindex
End Sub

Thanks aan iedereen voor de aangedragen oplossingen.

Groet,

Joske