hey all,
hab hier ein kleines problem, hoffe ihr könnt mir helfen (;!
und zwar hab ich ein mehrspaltiges listenfeld, aus diesem listenfeld möchte ich mit Mehrfachauswahl mehrere „Titel“ auswählen…anhand dieser gewählten titel soll in einer tabelle nach werten gesucht werden bei denen der gleiche titel eingetragen ist…jetzt möchte ich das wieder in ein listenfeld haben…geht das, bzw was muss ich als ereignis wählen wenn ich das ohne Button machen möchte?
danke schon mal
bjo
und zwar hab ich ein mehrspaltiges listenfeld, aus diesem
listenfeld möchte ich mit Mehrfachauswahl mehrere „Titel“
auswählen…anhand dieser gewählten titel soll in einer
tabelle nach werten gesucht werden bei denen der gleiche titel
eingetragen ist…jetzt möchte ich das wieder in ein
listenfeld haben…geht das, bzw was muss ich als ereignis
wählen wenn ich das ohne Button machen möchte?
Hallo bjo,
in das Modul des Tabellenblattes:
Private Sub ListBox1\_Change()
Dim N As Integer
For N = 0 To ListBox1.ListCount - 1
'Column(0, N)=erste Spalte, Column(1, N)= zweite Spalte usw.
If ListBox1.Selected(N) Then MsgBox ListBox1.Column(0, N)
Next N
End Sub
Gruß
Reinhard
Danke Reinhard,
das hilft mir schon ein bisschen weiter…
allerdings würde ich gerne noch wissen ob es in access möglich ist in dem listenfeld1 werte auszuwählen dann anhand dieser werte eine tabelle abzufragen und diese werte dann in ein anderes listenfeld schreiben??
brauch ich einen array oder muss ich die werte in ein textfeld schreiben und dann erneut auslesen udn abfragen oder kann ich als datensatzherkunft [frms].[frm_Project_TAA].[lst_Project1] eingeben…
hier würde somit jeder gewählte wert mit dem wert in der tabelle verglichen^^ nur funktionieren tuts halt nicht ;D
gruß bjo
allerdings würde ich gerne noch wissen ob es in access möglich
ist in dem listenfeld1 werte auszuwählen dann anhand dieser
werte eine tabelle abzufragen und diese werte dann in ein
anderes listenfeld schreiben??
Hallo bjo,
aargs Access, da kenne ich mich nicht aus. Da weiß ich nicht mal wie man da den Eintrag „xyz“ in einer Spalte sucht und dann ggfs. die ganze Zeile dann woanders hin kopiert.
Vielleicht geht das mit .Find in Verbindung mit Rows() und .copy *nixweiß*
Gruß
Reinhard