Dim Kmt As String

Kriter = ""

 For Each Secim In ListeAl.ItemsSelected

 Kriter = Kriter & "," & ListeAl.Column(0, Secim)

 Next Secim



If Len(Kriter) > 0 Then Kriter = " AND ((TSebil.ID) In ( " & Mid(Kriter, 2) & "))"

Kmt = "INSERT INTO TSebilGeriAl ( SeriNo, Marka, DIrsNo, DIrsTrh, StokYeri, Musteri, TEvrak ) " & _

      "SELECT TSebil.SeriNo, TSebil.Marka, TSebil.DIrsNo, TSebil.DIrsTrh, 'Depoda' , '' , '' " & _

      "FROM TSebil " & _

      "WHERE (((TSebil.StokYeri)='Müşteride') AND ((TSebil.Musteri)='" & Me.[MusteriAdı] & "'))" & Kriter & " ;"



CurrentDb.Execute Kmt