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...
![[Resim: do.php?imgf=149587784118451.jpg]](https://accesstr.net/resim/do.php?imgf=149587784118451.jpg)
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