(25/05/2017, 02:03)ozanakkaya yazdı: 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 60



    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?

çok teşekkürler kod çok güzel çalışıyor.

burda yapmak istediğim 5.yıllık bi senet girişi oluşturmak. 12x5 

her 12.senet den sonra [ARTIRIM] UYGULAMAK

YANİ
12X = 400.tl
12X = 450.tl
12X = 500.tl
12X = 550.tl
12X = 600.tl

Birde senet vade tarihleri [VADE_TARIH] den başlaması gerekiyor....
yardımcı olursanız çok sevinirim