Merhaba,

Lütfen örneklerinizi sıkıştırıp onararak ekleyiniz. 

Kullanmanız gereken kod aşağıdadır.

Dim rs As New ADODB.Recordset



Dim GYil, GSayi As Integer



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



For GYil = 0 To 4



    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) + GYil, GSayi, 1)

        rs("SC_VERENK") = Me.DAIRE_NO

        rs("TUTAR") = Me.KIRATUTAR + (Me.ARTIRIM * GYil)

        rs("RAP_KOD") = Me.RAPOR_KODUEK

        

        rs.Update

    

    

    Next GSayi



Next GYil



Set rs = Nothing

Me.Requery