+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Başlangıç Tarihine Gün Ekleme (/konu-baslangic-tarihine-gun-ekleme.html)
Sayfalar:
1
2
Başlangıç Tarihine Gün Ekleme - yorum70 - 27/11/2019
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.
Cvp: Başlangıç Tarihine Gün Ekleme - husem - 27/11/2019
Belki işinize yarar,
Cvp: Başlangıç Tarihine Gün Ekleme - yorum70 - 28/11/2019
Merhaba, bu programı incelemiştim. Güzel bir çalışma ancak tam fikirleri karşılamıyor. Tşk.
Cvp: Başlangıç Tarihine Gün Ekleme - berduş - 30/11/2019
Çarşamba -cuma -pazar sabit mi yoksa kişiye gore değişiyor mu?
Çalışmanızda imza tarihleri kişiye gore degisiyor.
Cvp: Başlangıç Tarihine Gün Ekleme - berduş - 30/11/2019
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
Iyi calismalar
Cvp: Başlangıç Tarihine Gün Ekleme - yorum70 - 30/11/2019
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