Supportnet / Forum / Datenbanken
listenfeld durchsuchen
Frage
hi ich hab ein listenfeld (liste33) und ein textfeld (NamID).. wie durchsuch ich jetzt das Listenfeld nach dem kriterium NamID? wenn er es gefunden hat, soll er den eintrag aut. makieren...
THANX for help ;-)
lolipopy
Antwort 1 von Mick
Hallo, Du kannst ein Listfeld wie folgt durchsuchen:
Sub DurchsucheListe()
Dim i As Integer
For i = 0 To Me!liste33.ListCount - 1
If Me!liste33.ItemData(i) = NamId Then
Me!liste33.Selected(i) = True
Exit For
End If
Next i
End Sub
Diese Prozedur im Klassenmodul Deines Formulars (deswegen Me!) definieren.
Gruss Mick
Sub DurchsucheListe()
Dim i As Integer
For i = 0 To Me!liste33.ListCount - 1
If Me!liste33.ItemData(i) = NamId Then
Me!liste33.Selected(i) = True
Exit For
End If
Next i
End Sub
Diese Prozedur im Klassenmodul Deines Formulars (deswegen Me!) definieren.
Gruss Mick