Skip to main content

AccessTr.neT


Başlangıç Tarihine Gün Ekleme

Başlangıç Tarihine Gün Ekleme

Çözüldü #1
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.
.rar denetim_SİTEYE.rar (Dosya Boyutu: 38,87 KB | İndirme Sayısı: 6)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Son Düzenleme: 27/11/2019, 19:15, Düzenleyen: yorum70. (Sebep: eksik olmuş)
Cevapla
#2
Belki işinize yarar,
.rar DENETIMLI SERBESTLIK.rar (Dosya Boyutu: 334,79 KB | İndirme Sayısı: 17)
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#3
Merhaba,  bu programı incelemiştim. Güzel bir çalışma ancak tam fikirleri karşılamıyor.  Tşk.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#4
Çarşamba -cuma -pazar sabit mi yoksa kişiye gore değişiyor mu?
Çalışmanızda imza tarihleri kişiye gore degisiyor.
Cevapla
#5
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
Cevapla
#6
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
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da