30-03-2018, 10:07
(En son düzenleme: 30-03-2018, 10:10 deniz_tunc.)
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
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
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

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

