A.S.C Filtre, Grafik ve Raporlama Eklentisi

Validationrule Belirlemede Oluşan Hata
#1
access-sql-9 
Arkadaşlar konu biraz acil. Form üzerinde izin yazarken izin başlama tarihinden sonra bitiş tarihi için ValidationRule belirliyorum. Ama ne hikmetse bazı tarihlerde hata vermiyor ama bazı tarihlerde hata veriyor. Yardımlarınızı bekliyorum.. Aşağıda kodlarda bulunan İzin_Bitiş.ValidationRule msgbox ile baktığımda hatalı değil ancak tarihi kabul etmiyor. Format(....."MM\/DD\/YYYY") yaptığım zamanda hata veriyor.

Visual Basic
  1. Private Sub tarihkosulbelirle()
  2. Dim tplhakedis As Integer
  3. Dim tplizinleri As Integer
  4.  
  5. tplhakedis = Nz(DSum("[hakedis]", "tbl_izinhakedis", "[hakedis_yili]= " & İzin_Yılı & " And [izin_turid]= " & izintür_id & " And [prs_id]= " & Form_İnsanKaynakları.Kimlik & " And [durumu]= - 1"), 0)
  6. tplizinleri = Nz(DSum("[İZİN SÜRESİ]", "Tbl_izinler", "[İZİN YILI]= '" & İzin_Yılı & "' " & " And [İZİN TÜR ID]= " & izintür_id & " And [PERSONEL TC]= '" & Form_İnsanKaynakları.tckimlik & "' " & " And [AKTİF]= - 1"), 0)
  7.  
  8.  
  9. İzin_Süresi.ValidationRule = "Between 1 And " & tplhakedis - tplizinleri
  10. İzin_Bitiş.ValidationRule = "Between #" & Format(İzin_Başlangıç, "DD\/MM\/YYYY") & "# And #" & Format(DateAdd("d", tplhakedis - tplizinleri, Format(İzin_Başlangıç - 1, "MM\/DD\/YYYY")), "DD\/MM\/YYYY") & "#"
  11. İzin_Bitiş.ValidationText = "Bu izin türünde en fazla " & Format(DateAdd("d", tplhakedis - tplizinleri, İzin_Başlangıç - 1), "DD\/MM\/YYYY") & " tarihini seçebilirsiniz."
  12.  
  13. End Sub




[Resim: A77NBe.png]


EDİT:
Arkadaşlar aşağıdaki formatta tarihleri yazdırdım şuan için denediğim tarihlerde bir hata almadım ama mantık olarak size de sormak istedim. Aşağıdaki doğru bir format şeklimidir?

Visual Basic
  1. Private Sub tarihkosulbelirle()
  2. Dim tplhakedis As Integer
  3. Dim tplizinleri As Integer
  4.  
  5. tplhakedis = Nz(DSum("[hakedis]", "tbl_izinhakedis", "[hakedis_yili]= " & İzin_Yılı & " And [izin_turid]= " & izintür_id & " And [prs_id]= " & Form_İnsanKaynakları.Kimlik & " And [durumu]= - 1"), 0)
  6. tplizinleri = Nz(DSum("[İZİN SÜRESİ]", "Tbl_izinler", "[İZİN YILI]= '" & İzin_Yılı & "' " & " And [İZİN TÜR ID]= " & izintür_id & " And [PERSONEL TC]= '" & Form_İnsanKaynakları.tckimlik & "' " & " And [AKTİF]= - 1"), 0)
  7.  
  8.  
  9. İzin_Süresi.ValidationRule = "Between 1 And " & tplhakedis - tplizinleri
  10. İzin_Bitiş.ValidationRule = "Between #" & Format(İzin_Başlangıç, "MM\/DD\/YYYY") & "# And #" & Format(DateAdd("d", tplhakedis - tplizinleri, İzin_Başlangıç - 1), "MM\/DD\/YYYY") & "#"
  11. İzin_Bitiş.ValidationText = "Bu izin türünde en fazla " & Format(DateAdd("d", tplhakedis - tplizinleri, İzin_Başlangıç - 1), "DD\/MM\/YYYY") & " tarihini seçebilirsiniz."
  12.  
  13. End Sub





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FONKSiYON] Dlookup La Veri çekecem Hata Yapıyorum footprinting 4 128 22-07-2020, 14:08
Son Mesaj: feraz
  [FORM] Metin Kutusundaki #hata Yazısı Nasıl Kaldırılır footprinting 3 69 19-07-2020, 11:52
Son Mesaj: footprinting
  Tablolarda Mantıksal Hata Var Yardım Eder Misiniz enes1233 1 113 19-05-2020, 13:50
Son Mesaj: dsezgin
  Birebir Iliskide Aldigim Hata ! Hknkrsn 8 177 29-03-2020, 14:06
Son Mesaj: onur_can
  Kullanıcı Sihirbazı Hata OĞUZ TÜRKYILMAZ 0 115 19-02-2020, 23:17
Son Mesaj: OĞUZ TÜRKYILMAZ
  Alan Boş Olduğu Zaman Hata Veren Vba Kodu Satir 7 211 13-02-2020, 16:58
Son Mesaj: Satir
access-sql-3 Validationrule Belirleme alperalper 6 198 07-02-2020, 08:12
Son Mesaj: onur_can
  Sorguda Nerede Hata Var? sefersanli 2 218 23-11-2019, 09:47
Son Mesaj: sefersanli

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi