Kimlik alanı uzun tamsayi ve
ImzaTrh alanı tarih türünde olur
2 - raporunuza kaynaklık edecek sorguya bu tabloyu da kimlik alanı üzerinden bağlarsınız
3 - tek sayfa rapor butonunun koduna kendi korunuzdan önce aşağıdaki kodu eklersiniz
Dim x As Long
If IsNull(Me.Kimlik) Then
MsgBox ("kişi seçilmemiş")
Exit Sub 'eğer kişi seçilmemişse fonksiyondan çık
End If
CurrentDb.Execute "delete from tmpImza" 'gecici tabloyu boşalt
CurrentDb.Execute " insert into tmpImza (KimlikId,ImzaTrh) values (" & Me.Kimlik & "," & CLng(CDate(Me.BASLAMATARIHI)) & ")" 'tabloya ilk gunu ekle
For x = CDate(Me.BASLAMATARIHI) + 1 To CDate(Me.BITISTARIHI) '2 tarih arasında döngü kur
If InStr(1, "357", Weekday(x, 0)) > 0 Then CurrentDb.Execute " insert into tmpImza (KimlikId,ImzaTrh) values (" & Me.Kimlik & "," & x & ")" 'tabloya verileri ekle
'If InStr(1, "357", Weekday(x, 0)) >0 burası haftanın günleri 357 ise yani çarşamba - Cuma- Pazar ise tabloya ekler
Next x
sorunuzdan anladığım kadarıyla böyle bir çözüm yolu işinize yarayabilir.Iyi calismalar