Merhaba
Access Formda girdiğim kıra, tarih, rapor kodu, tutar, artırma vs. koşullarına göre 12.adet her aya bi veri oluşturup, daha sonra yıllık artırımı tutara uygulayıp, 12 adet daha veri yapması lazım.

örnekde yardımcı olursanız çok sevinirim 

Teşekkürler

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?

(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

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

OzanAKKAYA HOCAM
yolladığınız kod çok güzel çalışıyor ama senetleri oluştururken VADE TARIHI nden başlamıyor.
vade tarihinden başlayıp, her 12.aya artırım uygulayacak.
size zahmet bi bakarsanız. çok güzel olmuş 
şimdiden teşekkürler...

Option Compare Database

Option Explicit



Private Sub Komut35_Click()

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(VADE_TARIH) + GYil, Month(VADE_TARIH) + (GSayi - 1), Day(VADE_TARIH))

        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

End Sub