PDA

Vollständige Version anzeigen : Listenfeld


dsch
27.04.2001, 10:01
Hallo,

wie kann ich in ein Listenfeld per VBA Daten eintragen

liste.additem geht nicht

wie kann ich das machen??

es ist sehr dringend
Danke für eure Hilfe

Daniel

Alexander Jan Peters
27.04.2001, 10:43
Ein Beispiel zur Erweiterung der Listbox aus Access um VB Funktionen ist in der KnowHow-DB von Klaus Oberdalhoff (unter Sammlung 2) http://www.access-paradies.de/Code/Sammlung/Default.htm zu finden.
Ansonsten kann man ja als Datengrundlage der Listbox auch eine Werteliste als String zusammenbauen:

Private Function fWerteListe() As String
Dim varWerteliste As Variant
Dim strWert As String

For intA = 1 To 100
strWert = "Test" & intA
If Len(strWerteliste) = 0 Then
varWerteliste = varWerteliste & strWert
Else
varWerteliste = varWerteliste & ";"
End If
Next

Me.lstListBox1.RowSource = varWerteliste
Me.lstListbox1.Requery
End Function

Eine Abwandlung ist noch das Befüllen per Callback-Funktion, aber dazu lies lieber in der OH nach (ist ein bißchen komplizierter).

MfG

A.J. Peters

dsch
27.04.2001, 11:02
Danke