Anfügen von Daten an ein ungebundenes Listenfeld

Sprache / Programm: Access ab Version 97

Beschreibung

Fügt Werte an ein ungebundenes Listenfeld an.

VBA-Quelltext

Public Sub ListenFeldAnfügen(ListenFeld As ListBox, Anfügen As String, Optional Vorsatz, Optional Nachsatz)
Dim ListenInhalt As String, Nr As Integer, SuchText As String
If Len(Anfügen) = 0 Then Exit Sub
If IsMissing(Vorsatz) Then Vorsatz = vbNullString
If IsMissing(Nachsatz) Then Nachsatz = vbNullString
If Len(Trim(Nz(ListenFeld.RowSource))) <> 0 Then ListenInhalt = ";" & Nz(Trim(ListenFeld.RowSource)) & ";"

ListenFeld.RowSource = Anfügen

For Nr = 0 To ListenFeld.ListCount - 1
SuchText = Vorsatz & ListenFeld.Column(0, Nr) & Nachsatz & """;"
If InStr(1, ListenInhalt, ";""" & SuchText, 1) = 0 Then ListenInhalt = ListenInhalt & """" & SuchText
Next Nr
If Left(ListenInhalt, 1) = ";" Then ListenInhalt = Mid(ListenInhalt, 2)
If Right(ListenInhalt, 1) = ";" Then ListenInhalt = Left(ListenInhalt, Len(ListenInhalt) - 1)
ListenFeld.RowSource = ListenInhalt
End Sub

Argumente der Funktion/Prozedur

ListenFeld: ListBox-Objekt
Anfügen: String, der ein oder mehrere neue Feldeinträge enthält. Mehrere Einträge müssen durch Semikolon (;) getrennt werden. Falls ein Semikolon innerhalb eines Eintrages vorkommt, muß der Eintrag in Anführungszeichen (") gesetzt werden.
Vorsatz (optional): Text der vor jeden Eintrag eingefügt wird.
Nachsatz (optional): Text der nach jedem Eintrag eingefügt wird.

Anwendungsgebiete, Fehler und Warnungen

Einträge, die bereits im Listenfeld vorhanden sind, werden nicht noch einmal angefügt.