kopyalama fonksiyonunu aşağıdaki gibi düzenlerseniz seçili ögelerin ID değerini almış olursunuz

Function fCopy()

Dim varItm As Variant

Dim frm As Form

Dim Ctl As Control



Set frm = Screen.ActiveForm

Set Ctl = Screen.ActiveForm.ActiveControl

On Error Resume Next

    Application.CommandBars.ExecuteMso ("Copy")

            KpySecili = ""

        For Each varItm In Ctl.ItemsSelected

            KpySecili = KpySecili & "," & Ctl.Column(0, varItm)

        Next varItm

        KpySecili = Mid(KpySecili, 2)



End Function

güncelle fonksiyonunun nerede nasıl kullanacağınızı bilemediğim için onu eklemedim
ama KpySecili ile zaten değiştirlecek kayıtların IDleri alındığınıdan
currentdb.execute "" ile çağrılabilir
yapıştır fonksiyonuna eklenen form1deki güncelleme fonksiyonu

Function fPaste()

On Error Resume Next

    Application.CommandBars.ExecuteMso ("Paste")

    Form_Form1.guncelle

End Function

güncelleme fonksiyonu taşsıma işleminden sonra sadece aktif nesneyi yeniler

Public Function guncelle()

    Dim i, YnDgr As Variant

    Dim strSQL As String

    Debug.Print "KpySecili ", KpySecili

    YnDgr = Right(ActiveControl.Name, 1)

    strSQL = "UPDATE Tablo1 SET listId =" & YnDgr & " WHERE id in (" & KpySecili & ");"

    CurrentDb.Execute strSQL

    ActiveControl.Requery

End Function