ok. selber machen ist eh besser
also nocheinmal für dich.
du hast den button "hinzufügen". da wird dann unten in der liste ein wert angezeigt. was du aber brauchst, ist der liste einen wert hinzufügen. und das geht mit RowSource wie schon beschrieben.
mit me! kannst du feldern werte setzten:
me![liste] :wäre das listenfeld mit den namen "liste"
me![liste].RowSource :damit sagst, dass das listenfeld folgende einträge von dir bekommt z.b:
me![liste].RowSource = "Test1; Test2; Test3"
in der liste würde dann stehen: Test1 und Test2 und Test3
";" trennt die werte ab.
da du aber den wert nicht jedesmal überschreiben willst, sondern dazuhängen muss du vorher den alten wert der liste auslesen. dafür brauchen wir eine variable:
dim source as string 'varibale source als test
jetzt müssen wir den alten wert auslesen:
source =[Liste].RowSource ' die variable hat den alten listenwert
jetzt den neuen wert noch dazuhängen:
source =[Liste].RowSource & ";" & Produktnummer 'Produktnummer ist ein Feld
und zum schluss den neuen wert wieder in die liste schreiben:
Me![Liste].RowSource = source
ich kann dir darüber ein kleines beispiel schreiben, wenn du mir deine mail adresse gibst.
kennst dich jetzt aus ???
gruss
chris