şu dillere destan taksitlendirme olayı varya hani benimle akd arkadaşı birbirine düşüren hem bu olaya bir son vermek hemde forma yeni giripte böyle bir uygulama arayanlar o konuya yönlenip bizim gereksiz mücadelemizi görmelerini istemediğimden bu yeni konuyu açma gereği gördüm
'kod bu
'başlangıç tarihine tarih girince son taksitin ne zaman olduğunu kişinin borcunun ne zaman biteceğini bittar alanına ekler
Private Sub bastar_AfterUpdate()
bittar.Value = Metin15.Value
End Sub
Private Sub Komut17_Click()
Dim rs As New ADODB.Recordset
rs.Open "tarih", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
z = taksay.Value 'taksay formda taksit sayısını girdiğimiz yer
For i = 1 To z Step 1 ' burda taksiti 1 den yazdığımız taksite kadar döndürür
Dim tar1 As Date
Dim tar As Variant
Dim n As Variant
Dim par As Variant
tar1 = bastar.Value ' tar1 adlı sanal alana başlangıç tarihini yazar
par = toplam.Value / taksay.Value 'par adlı sanal alana satış fiatını taksite böler
n = no.Value ' n adlı alana müşteri nosunu yazar taksit tablosuna eklemek için
tar = DateAdd("m", i, tar1) 'tar adlı sanal alana her dönmede 1 ay ekleyerek taksit sayısı kadar tarih üretir
rs.AddNew
rs("no") = n 'tabloya taksit sayısı kadar müşteri no ekler
rs("fiat") = par ' tabloya taksit sayısı kadar taksit ekler
rs("tarih") = tar ' tabloya döndürülmüş tarihleri sırayla ekler
rs.Update
Next i
Set rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 ' eklenen veriler alt formda görünsün diye formu yeniler
End Sub
Access kod deposu yenilendi eklemeler yapıldı bir çok yerden kodlar toplandı ve eklendi arkadaşların bunu indirip access yardımı gibi kullanmalarını öneririm özellikle ado dao olayını incelesinler çünkü ado yada dao özellikle ağda access çalıştranlar için büyük kolaylık ve hız sağlar
'kod bu
'başlangıç tarihine tarih girince son taksitin ne zaman olduğunu kişinin borcunun ne zaman biteceğini bittar alanına ekler
Private Sub bastar_AfterUpdate()
bittar.Value = Metin15.Value
End Sub
Private Sub Komut17_Click()
Dim rs As New ADODB.Recordset
rs.Open "tarih", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
z = taksay.Value 'taksay formda taksit sayısını girdiğimiz yer
For i = 1 To z Step 1 ' burda taksiti 1 den yazdığımız taksite kadar döndürür
Dim tar1 As Date
Dim tar As Variant
Dim n As Variant
Dim par As Variant
tar1 = bastar.Value ' tar1 adlı sanal alana başlangıç tarihini yazar
par = toplam.Value / taksay.Value 'par adlı sanal alana satış fiatını taksite böler
n = no.Value ' n adlı alana müşteri nosunu yazar taksit tablosuna eklemek için
tar = DateAdd("m", i, tar1) 'tar adlı sanal alana her dönmede 1 ay ekleyerek taksit sayısı kadar tarih üretir
rs.AddNew
rs("no") = n 'tabloya taksit sayısı kadar müşteri no ekler
rs("fiat") = par ' tabloya taksit sayısı kadar taksit ekler
rs("tarih") = tar ' tabloya döndürülmüş tarihleri sırayla ekler
rs.Update
Next i
Set rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 ' eklenen veriler alt formda görünsün diye formu yeniler
End Sub
Access kod deposu yenilendi eklemeler yapıldı bir çok yerden kodlar toplandı ve eklendi arkadaşların bunu indirip access yardımı gibi kullanmalarını öneririm özellikle ado dao olayını incelesinler çünkü ado yada dao özellikle ağda access çalıştranlar için büyük kolaylık ve hız sağlar