AccessTr.neT

Sayın üyeler, uzun bir aradan sonra merhaba. Biliyorum beni çok özlediniz-ki bende sizleri özledim.

Birim değişikliği sebebiyle uzun bir ara ayrı kalmak zorunda kaldım ! 

Denetimli Serbestlik takip programı yapmak istiyorum.Bir çok bilgiyi unutmuşum, tekrarlanmayan bilgiler unutulur misali.

Şahısın başlangıç tarihi ve bitiş tarihi var..Başlangıç tarihi imza atacağı ilk gündür ve kanun der ki, 27.11.2019 tarihinden başlayarak; ÇARŞAMBA-CUMA-PAZAR imza atacak..

Başlangıç tarihini ve günleri formdan seçince rapor kısmına; 27/11= çarşamba; 29/11=cuma 01/12/=pazar yazması gerekli.. Tabi bu durum  bitiş tarihine kadar sistemi koruyarak devam etmeli..02.02.2020 kadar; tarihlerin önüne günleri ekleyerek sürmeli.

örneğim ektedir. bilgi ve fikir verebilecek üstatlara şimdiden teşekkürler.

Belki işinize yarar,

Merhaba,  bu programı incelemiştim. Güzel bir çalışma ancak tam fikirleri karşılamıyor.  Tşk.

Çarşamba -cuma -pazar sabit mi yoksa kişiye gore değişiyor mu?
Çalışmanızda imza tarihleri kişiye gore degisiyor.

1 - "tmpImza" diye bir tablo oluşturursunuz sadece 2 alan olur 
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

Sayın berduş, inceleyip bilgi vereceğim...

Günler kişiye göre değişiyor, mahkeme nasıl bir kontrol verdiyse öyle olmalı..

Tşk