29-07-2020, 14:48
(En son düzenleme: 29-07-2020, 14:59 alperalper.)
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.
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
- Private Sub tarihkosulbelirle()
- Dim tplhakedis As Integer
- Dim tplizinleri As Integer
-
- 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)
- 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)
-
-
- İzin_Süresi.ValidationRule = "Between 1 And " & tplhakedis - tplizinleri
- İ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") & "#"
- İ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."
-
- End Sub
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
- Private Sub tarihkosulbelirle()
- Dim tplhakedis As Integer
- Dim tplizinleri As Integer
-
- 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)
- 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)
-
-
- İzin_Süresi.ValidationRule = "Between 1 And " & tplhakedis - tplizinleri
- İzin_Bitiş.ValidationRule = "Between #" & Format(İzin_Başlangıç, "MM\/DD\/YYYY") & "# And #" & Format(DateAdd("d", tplhakedis - tplizinleri, İzin_Başlangıç - 1), "MM\/DD\/YYYY") & "#"
- İ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."
-
- End Sub