Public Function güncelle(eski As String, ByVal yeni As Integer)
    Dim i As Variant
    Dim rstkayit As New ADODB.Recordset
    Dim strSQL As String
    
    strSQL = "UPDATE Tablo1 SET listId =" & Right(yeni, 1) & " WHERE id =" & eski & ";"
    CurrentProject.Connection.Execute strSQL
 
End Function

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

Function fPaste()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Paste")
    Form_Form1.guncelle
End Function

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