Kod:
Private Sub Command7_Click()
Dim Secilen_ID
'Uyarı mesajları kapatılıyor
DoCmd.SetWarnings False
'Listeden seçilenler tek tek işleme alınıyor
For Each Secilen_ID In Me.Kopya_Listesi.ItemsSelected
'Formda görünen kişinin bilgileri seçilen kişiye kopyalanıyor
DoCmd.RunSQL "Update Table1 Set ülke=forms!form1.ülke, şehir=forms!form1.şehir, yaş=forms!form1.yaş, okul=forms!form1.okul Where Kisi_ID=" & Secilen_ID
'Listedeki seçim kaldırılıyor
Me.Kopya_Listesi.Selected(Secilen_ID) = False
Next Secilen_ID
'Liste güncelleniyor
Me.Kopya_Listesi.Requery
'Uyarı mesajları açılıyor
DoCmd.SetWarnings True
End Sub