Alttaki gibi değiştirin kod kısaldı.

Not comboların adlarını değiştirmiştim kolaylık olsun diye cmbay1 ve cmbay2 olarak.

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")

    

    

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

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





    strSQL = "UPDATE hesap " & _

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

        

        CurrentDb.Execute strSQL

    

      Sql = "select * from hesap"

    

    

        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



  Exit Sub

    

son:

  MsgBox "Combolar bos olamaz", vbCritical

End Sub