Merhaba,

Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Dim rs As New ADODB.Recordset



rs.Open "TBLMSEN_AKTAR", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



For GSayi = 1 To 12



    DoCmd.SetWarnings False

    DoCmd.RunSQL "UPDATE AL_SENETNO SET AL_SENETNO.SIRA_NO = [SIRA_NO]+[EKLE];"

    DoCmd.SetWarnings True

    

    rs.AddNew

      

    rs("SC_NO") = Dlookup ("SENET_NO", "SENETNO")

    rs("SC_GIRTRH") = Date

    rs("VADETRH") = DateSerial(Year(Date), GSayi, 1)

    rs("SC_VERENK") = Me.DAIRE_NO

    rs("TUTAR") = Me.KIRATUTAR

    rs("RAP_KOD") = Me.RAPOR_KODUEK

    

    rs.Update





Next GSayi



Set rs = Nothing

Me.Requery

Referanslara, "microsoft activex data objects 2.8 library" referansını ekle.

Alıntı:daha sonra yıllık artırımı tutara uygulayıp, 12 adet daha veri yapması 

bu kısmı anlamadım. 2017 yılı içindeysek, 2018'e ait veri mi eklenecek?