Listenfeld automatisch ausfüllen, aber.....
14.10.2004 14:53:57
StingerMK
ich möchte ein Listenfeld, sobald es aufgerufen wird mit Daten aus der Tabelle,
vorausfüllen. Dies geht ja relativ leicht mit der Eigenschaft RowSource.
Jetzt möchte ich aber über Textfelder per Knopfdruck im Listenfeld noch weitere Einträge hinzufügen. Dies klappt dann nicht mehr. Ich habe hierfür den folgenden Code benutzt:
Private Sub CommandButton1_Click()
If InputVorname.Value <> "" Then
ListBox1.AddItem InputVorname.Value
ListBox1.List(ListBox1.ListCount - 1, 1) = InputName.Value
InputVorname.Value = ""
InputName.Value = ""
End If
End Sub
Da gibt er mir einen Fehler aus. Wenn ich allerdings die RowSource Eigenschaft des Listenfeldes leer lasse, kann ich über das Makro das Listenfeld befüllen.
Wie ich nachher das Listenfeld wieder in die Tabelle schreibe habe ich hinbekommen, nur das zusätzliche Befüllen mit neuen Daten, nachdem es schon vorausgefüllt ist, geht nicht.
Vielen Dank für den Support im Voraus!
StingerMK