Değerli forum üyeleri;


İhtiyaç olduğu için konu başlığında da belirttiğim gibi Rapor Başlangıç Tarihine, Rapor Suresi Ekleme ve Rapor Bitiş Tarihini Bulma?? işlemini yaptırmam lazım..

Denemeler yaptım ama bir türlü başarılı olamadım..Bu sebeple de sorguda kullandığım ifadeleri temizledim boş halini yolluyorum..

Sizlerden ricam bu konuda yardımcı olmanızdır..

Konunun daha iyi anlaşılması için bir örnek vereyim;
Öğrencinin rapor başlangıcı diyelim 12.03.2015 tarihi olsun, 6 ay ya da 7-8-9-10-11 veya 1-2 yıllık olarak rapor verilmiş olsun..Bizim amacımız başlangıç tarihine raporun suresi ne ise onu ekleyip son tarihi yani bitiş tarihini bulmak??

Kısaca kendi örneğimde;
Frm_ogrenci ile veri girişi sağlanıyor..Frm_ogrenci formu öğrenci adı-rapor veriliş tarihi ve rapor suresi seçiliyor veri girişi sağlanıyor...

frm_ogrenci_Sonuc formunda ;Rapor başlangıç tarihi (raporun verildiği tarih) ve Seçilen süreye göre rapor bitiş tarihini ve rapor bitiş tarihinden 1 ay öncesini gösterilmesini istiyorum..


Yardımlarınız için şimdiden çok çok tşk ederim..

Saygılar sunuyorum.

bu şekilde kullanabilirsiniz

sayın karakabus;

Öncelikle ilginize tşk ediyorum..sanırım benim yolladığım uygulamayı olduğu gibi cevaben yuklemişsini..Çünkü üzerinde hiçbir değişiklik olmamış gibi ve tarihlerde bir değişiklik yaratmıyor..

Saygılar sunuyor cevabınızı bekliyorum..

form geçerli olduğunda olayında gerekli kodlar yazıldı.gönderdiğim dosyayı incelerseniz ve özelikle vb kodlarına bakarsanız göreceksiniz.


ben genede kodları size yazıyım

Private Sub Form_Current()
If Not IsNull(id) Then

If Me.rapor_suresi = 1 Then
Me.rapor_bitis = DateAdd("m", 6, Me.raporVerilis_tarihi)
ElseIf Me.rapor_suresi = 2 Then
Me.rapor_bitis = DateAdd("m", 7, Me.raporVerilis_tarihi)
ElseIf Me.rapor_suresi = 3 Then
Me.rapor_bitis = DateAdd("m", 8, Me.raporVerilis_tarihi)
ElseIf Me.rapor_suresi = 4 Then
Me.rapor_bitis = DateAdd("m", 9, Me.raporVerilis_tarihi)
ElseIf Me.rapor_suresi = 5 Then
Me.rapor_bitis = DateAdd("m", 10, Me.raporVerilis_tarihi)
ElseIf Me.rapor_suresi = 6 Then
Me.rapor_bitis = DateAdd("m", 11, Me.raporVerilis_tarihi)
ElseIf Me.rapor_suresi = 7 Then
Me.rapor_bitis = DateAdd("m", 12, Me.raporVerilis_tarihi)
ElseIf Me.rapor_suresi = 8 Then
Me.rapor_bitis = DateAdd("m", 24, Me.raporVerilis_tarihi)
End If

End If


End Sub