(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