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
  [MAKRO] Hata wet_dream 2 7 3 dakika önce
Son Mesaj: wet_dream
  [SORGU] Sorgu Sonucu Oluşan Bir Değeri Formda Metin Kutusunda Görüntülemek ctnerdal 14 115 Dün, 16:21
Son Mesaj: halily
  [FONKSiYON] Dlookup La Veri çekecem Hata Yapıyorum footprinting 4 147 22-07-2020, 14:08
Son Mesaj: feraz
  [FORM] Metin Kutusundaki #hata Yazısı Nasıl Kaldırılır footprinting 3 82 19-07-2020, 11:52
Son Mesaj: footprinting
  Tablolarda Mantıksal Hata Var Yardım Eder Misiniz enes1233 1 123 19-05-2020, 13:50
Son Mesaj: dsezgin
  Birebir Iliskide Aldigim Hata ! Hknkrsn 8 188 29-03-2020, 14:06
Son Mesaj: onur_can
  Kullanıcı Sihirbazı Hata OĞUZ TÜRKYILMAZ 0 120 19-02-2020, 23:17
Son Mesaj: OĞUZ TÜRKYILMAZ
  Alan Boş Olduğu Zaman Hata Veren Vba Kodu Satir 7 219 13-02-2020, 16:58
Son Mesaj: Satir

Foruma Git:


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