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
gerial butonun kodunu aşağıdaki gibi düzenleyip dener misiniz