strSQL = "UPDATE hesap " & _

                    "SET ay_id = " & cmbay2.Column(0) & " WHERE ay_id = " & cmbay1.Column(0) & ""

        

        CurrentDb.Execute strSQL

Yukarıdaki kodu ekledim.

Private Sub Aktar_Click()

    

    

    Dim Sql As String

    Dim rs As Object

    Dim cn As Object

    

    Set rs = CreateObject("ADODB.Recordset")

    Set cn = CreateObject("ADODB.Connection")

    

    Sql = "select id,ap_id,replace(ay_id,'" & cmbay1.Column(0) & "','" & cmbay2.Column(0) & "') as [ay id],kisi_id,tcno,isim from hesap where [ay_id] = " & cmbay1.Column(0) & ""

    

    If Me.cmbay1.Value = "" Or IsNull(cmbay1.Value) Then GoTo son

    If cmbay2.Value = "" Or IsNull(cmbay2.Value) Then GoTo son



    

        With cn

        If .State = adStateOpen Then

            .Close

            Set cn = Nothing

        End If

    End With



    Set cn = CurrentProject.Connection

    

    With rs

        If .State = adStateOpen Then .Close

          .CursorLocation = adUseClient

          .CursorType = adOpenKeyset

          .LockType = adLockOptimistic

        

        .Open Sql, cn

    End With

    

  

    Liste15.ColumnCount = rs.Fields.Count

    Liste15.ColumnWidths = "1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM"

    Liste15.ColumnHeads = True



    Set Liste15.Recordset = rs

    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing





strSQL = "UPDATE hesap " & _

                    "SET ay_id = " & cmbay2.Column(0) & " WHERE ay_id = " & cmbay1.Column(0) & ""

        

        CurrentDb.Execute strSQL





  Exit Sub

    

son:

  MsgBox "Combolar bos olamaz", vbCritical

End Sub