Skip to main content

AccessTr.neT


Access Formda Veri Çoğaltma

Access Formda Veri Çoğaltma

#1
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
.rar Senet deneme.rar (Dosya Boyutu: 110,17 KB | İndirme Sayısı: 6)
Son Düzenleme: 24/05/2017, 14:32, Düzenleyen: cagatay1234. (Sebep: YENİLEME)
Cevapla
#2
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?
Cevapla
#3
(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
.rar Senet deneme.rar (Dosya Boyutu: 112,12 KB | İndirme Sayısı: 3)
Son Düzenleme: 26/05/2017, 19:44, Düzenleyen: cagatay1234. (Sebep: Birde senet vade tarihleri [VADE_TARIH] den başlaması gerekiyor....)
Cevapla
#4
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
Cevapla
#5
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]
.rar Senet deneme1.rar (Dosya Boyutu: 115,12 KB | İndirme Sayısı: 6)
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da