Liste Kutusu Çoklu Seçim

Arkadaşlar daha önce sorduğum sorudaki bir değişikliği çözemedim. Önceki soru Sayın Seruz un yardımı ile çözülmüş idi. Ekteki resimdeki soru şeklini ise çözemedim.
Yardımcı olrsanız sevinirim.

İstediğim birinci liste kutusundan örnek olarak 2 kayıt ikinci listeden 3 kayıt çoklu seçip gönder tuşuna bastığımda alttaki tabloya 6 kayıt olarak eklemesi.

Saygılarımla

Sayın mahirozcan;
Ekteki örneği inceleyiniz. Kurguyu hemen hemen tamamlamışsınız. Ancak ikinci deneylere ait seçili olanlar için döngü koymamışsınız. İkinci döngü ve aşağıda ki kodların döngü dışına çıkarılmasıyla problem çözülmüştür.

    Me.Liste_Numuneler.Selected(Numune_ID) = False

    Me.Liste_Deneyler.Selected(Numune_ID) = False

Kolay gelsin.

Sayın Kur@l

İlginiz için teşekkürler.