Başlangıç Tarihine Gün Ekleme

1 2
27/11/2019, 19:13

yorum70

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.
27/11/2019, 19:55

husem

Belki işinize yarar,
28/11/2019, 10:09

yorum70

Merhaba,  bu programı incelemiştim. Güzel bir çalışma ancak tam fikirleri karşılamıyor.  Tşk.
30/11/2019, 09:22

berduş

Çarşamba -cuma -pazar sabit mi yoksa kişiye gore değişiyor mu?
Çalışmanızda imza tarihleri kişiye gore degisiyor.
30/11/2019, 09:58

berduş

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
30/11/2019, 11:09

yorum70

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
1 2