Hallo,
Ich habe folgendes Problem, ich habe ein listenfeld in dem datensätze angezeigt werden die vorher über eine auswahl via kombinationsfelder ausgewählt wurden, jetzt möchte ich via doppelclick im listenfeld das dieser datensatz in ein anderes Kopiert wird es soll wo irgendwie mit "ItemsSelected" funktionieren aber ich hab keine ahnung wie da ich access neuling bin....
meine Liste wo die daten angezeigt werden nennt sich "lstArtikel" und die zweite soll "lstBestellung" heißen.
über diesen Code Lasse ich mir die Datensätze in dem "lstArtikel" anzeigen.
Me.lstArtikel.RowSource = "SELECT tblArtikel.ArtikelID, tblTyp.Typ, tblHersteller.Hersteller, tblArtikel.Artikelname, tblGröße.Größe, tblFarbe.Farbe, tblArtikel.Artikelnummer, tblMengenschlüssel.Mengenschlüssel, " & _
"tblTyp.Typ, tblArtikel.Artikelnummer " & _
"FROM tblTyp " & _
"INNER JOIN (tblMengenschlüssel " & _
"INNER JOIN (tblHersteller " & _
"INNER JOIN (tblGröße " & _
"INNER JOIN (tblFarbe " & _
"INNER JOIN tblArtikel ON tblFarbe.FarbID = tblArtikel.aFarbe) " & _
"ON tblGröße.GrößeID = tblArtikel.aGröße) " & _
"ON tblHersteller.HerstellerID = tblArtikel.aHersteller) " & _
"ON tblMengenschlüssel.MengenschlüsselID = tblArtikel.aMengenschlüssel) " & _
"ON tblTyp.TypID = tblArtikel.aTyp " & _
strfilter & " " & _
"ORDER BY tblartikel.ArtikelName"
Kann mir vielleicht jemand helfen?
Hallo
zweite Liste erstellen und Herkunfttyp auf Werteliste stellen, Anzahl und Breite der Spalten von der ersten Liste (lstArtikel") übernehmen
Ereignis Bei Doppelklick setzen und mit folgendem Code belegen:
Private Sub lstArtikel_DblClick(Cancel As Integer)
Dim i As Long
Dim s As String
For i = 0 To Me.lstArtikel.ColumnCount - 2
s = s & Me.lstArtikel.Column(i) & ";"
Next
s = s & Me.lstArtikel.Column(i)
Me.lstBestellung.AddItem (s)
End Sub
super, danke hat funktioniert