Fehler bei löschen doppelter List einträge
25.07.2003 07:42:48
Nathalie
ich habe ein Problem mit dem unten angezeigten Code.
Ich möchte beim speichern überprüfen ob der eingegebene Wert in der Listbox bereits vorhanden ist, wenn dies der Fall ist, dann soll der Wert aus der Listbox gelöscht werden.
Das mit dem löschen funktioniert auch, das Problem ist nur, beim letzten Satz, kein Inhalt mehr für lstAkti.ListCount(index) mehr steht und somit ein Fehler auftritt (Eigenschaft List konnte nicht aufgerufen werden).
Kann mir jemand sagen, wie ich entweder den Fehler vermeide, oder wie ich die schleife hart beenden kann, sobald er einen bereits vorhanden Satz gefunden hat. Also rausspringen wenn er ins innere if gesprungen ist.
Danke Euch Nathalie
Private Sub cmdSpeichern_Click()
''Löschen doppelter Datensätze in Listbox
iDummy = lstAkti.ListCount
If lstAkti.ListCount > 1 Then
For index = 0 To lstAkti.ListCount - 1
If txtEingabeAkti = lstAkti.List(index) Then
lstAkti.RemoveItem (index)
End If
Next
End Sub
End If