[VBA] Ayın tarihlerini gün gün sıralama
#1
iki seçilmiş tarih arasında ki tüm günleri bi rapora yazdırmak istiyorum. böylece tüm tarihler gözükürken iş yapılmış olan tarihlerin karşılığı lookup metodu ile doldurulacak. bunu yapmaya çalışıyorum fakat olmadı

onun içinde aşağıda ki kodları girdim ama bi sonuç alamadım. üstatlardan yardım talep ediyorum.

Resimde ki formdan alıyorum başlangıç ve bitiş tarihlerini. bundan bağımsız olarak bir ayın tarihlerinide sıralayabilirim fark etmez ama beceremedim Gg

1. olarak

Private Sub Report_Current()
Dim n As Long
Dim trh As Date
Dim trhbas As Date
Dim trhbit As Date

trhbit = Forms!frm3ay!bitis

For n = 0 To 200
trhbas = DateSerial(Me.yil, Me.Metin17, Me.day + n)
Me.tarih = trhbas
If trhbas = trhbit Then
Exit Sub
Next n

end sub

2. olarak
Private Sub Report_Current()
Dim n As Long
Dim trh As Date
Dim trhbas As Date
Dim trhbit As Date

trhbit = Forms!frm3ay!bitis

trhbas = Forms!frm3ay!baslan

For n = 0 To 100
trh = DateAdd("d", n, trhbas)
If trh = trhbit Then
Exit Sub
Next n


End Sub




Eklenti Dosyaları
.jpg   bas1.jpg (Boyut: 194,33 KB / İndirilme: 115)



  Alıntı
Bu mesajı beğenenler:
#2
Rapor uzerine SN adinda bir kutu olusturup, kayit kaynagina =1 yazin ve veri(data)--toplam(Running Sum) bolumunde Tum kayitlar(Over Group) olarak isaretleyin. Raporda ki tarih kutucugu denetim kaynagina =DateAdd("d";[Reports]![SMS]![SN];[Forms]![frm3ay]![baslan]) deyimini yazin.

veya VBA kod ile

Visual Basic
  1. Option Compare Database
  2. Option Explicit
  3. Dim SN As Long
  4. Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
  5. SN = SN + 1
  6. Me.Trh = DateAdd("d", SN, [Forms]![frm3ay]![baslan])
  7. End Sub



olabilir.




  Alıntı
Bu mesajı beğenenler:
#3
Sayın dsezgin bey ilginiz ve çözümünüz için teşekkür ederim. Ama ben yapamadım. epey uğraştım ama olmadı. Çözüm için tekrar yardımınızı isteyeceğim. yada başka bir yolu varsa o da olabilir.

Kısaca belirlenen tarihler arasında ya da bir aya ait tüm günlerin sıralanması problemimin özü. Teşekkürler



  Alıntı
Bu mesajı beğenenler:
#4
Ornek VT'ni, tablo ve raporunuz olsaydi.
Kayit gecerli oldugu olay yordaminda(Bir Kayit Oku) n sayisi kadar dongu ile trh alani guncelleme yontemi hatali olabilir. Iki Tarih arasi, n sayisindan kucuk olmasida, istenileni vermiyecektir.
Me.tarih alani iliskisiz nesne gibi gozukmekte, tabloda var olan ve degerleri yazili bir alanin siralamasi ise Rapor SQL'ine order by tarih eyemi sorgu kelime sonuna eklenebilir.



  Alıntı
Bu mesajı beğenenler:
#5
Selam dsezgin bey basit bir örnek dosya hazırlayıp yüklemeye çalıştım ama bu dosya tipine izin verilmiyor yazıyordu bu yüzden yükleyemedim.

sorumu şöyle değiştirsem. herhangi bir ayın örneğin şubat ayının tüm günlerini nasıl sıralayabiliriz? belki bu şekilde sorarsam farklı bi şekilde cevap verip yardımcı olabilirsiniz. tüm üstatlardan yardımcı olabilecek olanlardan yardım bekliyorum.



  Alıntı
Bu mesajı beğenenler:
#6
WinZip, Rar uygulamaları ile sıkıştırıp, konuya ekleyebilirsiniz.
Format(Tarih,"dddd")
weekdayname(weekday(tarih,vbMonday),False) deyimleri yazilan tarihin gununu gosterir.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sıralama evren89 2 311 08-07-2024, 10:03
Son Mesaj: evren89
  Gruplu Sıralama evren89 2 321 06-07-2024, 15:08
Son Mesaj: evren89
  Ayın Kaçıncı Haftası evren89 3 395 21-05-2024, 15:16
Son Mesaj: dsezgin
  [VBA] Yıl Ay Sayı Sıralama Kodu Hakkında Ahmet51 6 768 29-05-2023, 09:31
Son Mesaj: halily
  [VBA] Ardışık Sayı Sıralama Ahmet51 8 887 26-10-2022, 13:21
Son Mesaj: halily
  Sorguda Sıralama Işlemi Hk. adnnfrm 11 1.130 09-07-2022, 14:04
Son Mesaj: dsezgin
access-sql-9 [VBA] Ayın Son 10 Günü alperalper 5 493 14-03-2022, 15:49
Son Mesaj: dsezgin
  Data Düzenleme / Sıralama sedatisen 1 398 03-11-2021, 21:02
Son Mesaj: onur_can

Foruma Git:


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