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

güncellemek için eski listenin liste isminin son karakterini ve yeni liste isminin son karakterini fonksiyona göndereceğiz
bunları nasıl birleştireceğiz