[SORGU] Rapor Başlangıç Tarihine, Rapor Suresi Ekleme ve Rapor Bitiş Tarihini Bulma??
#1
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.


Eklenti Dosyaları
.rar   rapor suresi.rar (Boyut: 41,32 KB / İndirilme: 79)



  Alıntı
Bu mesajı beğenenler:
#2
bu şekilde kullanabilirsiniz


Eklenti Dosyaları
.rar   rapor suresi.rar (Boyut: 41,02 KB / İndirilme: 99)



  Alıntı
Bu mesajı beğenenler:
#3
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..



  Alıntı
Bu mesajı beğenenler:
#4
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



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Iki Sorgu Kalan Bulma tansuecrin 1 91 10-05-2026, 11:50
Son Mesaj: dsezgin
  Rapor Açmıyor Pasham 2 225 12-03-2026, 01:38
Son Mesaj: Pasham
  Randevu Tarihine Göre Uyarı Vermesi Ve Renklendirme hegu 4 302 11-02-2026, 23:31
Son Mesaj: hegu
  [SORGU] Ödeme Planı Oluşturmak (Başlangıç Tarihi ve Üyelik Süresi Verilerinden) ssomar 11 6.941 10-07-2025, 11:29
Son Mesaj: hmuratg
  [RAPOR] Rapor Alt Formun A4 Sayfası Dolana Kadar Tekrar Tekrar Eklenmesi. tolgahanay8 2 357 01-04-2025, 22:26
Son Mesaj: tolgahanay8
  [RAPOR] Rapor üzerinde Hyperlink Oluşturma ulsogr 1 277 21-01-2025, 00:10
Son Mesaj: dsezgin
access-sql-9 [TABLO] Tablodan Rapor Alma vefa1982 11 663 28-10-2024, 01:53
Son Mesaj: dsezgin
  ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR ferda23 9 1.563 08-07-2024, 13:41
Son Mesaj: celalll

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi