DAtensätze von einem listenfeld ins andere übertragen

[Lenee]

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.

Code (vb) [Auswählen] Erweitern

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?

[daolix]

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:

Code [Auswählen] Erweitern

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

[Lenee]

super, danke hat funktioniert