Validationrule Belirleme
#1
access-sql-3 
Kıymetli arkadaşlarım herkese merhaba.

VBA üzerinden ValidationRule atamada strig değerler ile integer değerleri düzgünce atıyordum ancak bunu tarih atama işleminde bir türlü yapamadım. String olarak atınca çalışmıyor. Tarih olarak bir türlü belirleyemedim. Yardıma ihtiyacım var.

Visual Basic
  1. tarih2.ValidationRule = "Between " & tarih1 & " And " & DateAdd("d", gunu, tarih1)





  Alıntı
Bu mesajı beğenenler:
#2
guncelleme oncesi olay yordamina tarih kosulu ile sonuc alinabilir.



  Alıntı
Bu mesajı beğenenler:
#3
Arkadaşlar sorunu aşağıdaki şekilde çözdüm lazım olursa bilgilendirmek istedim. 

Visual Basic
  1. tarih2.ValidationRule = "Between #" & Format(tarih1, "MM\/DD\/YYY") & "# And #" & Format(DateAdd("d", gunu, tarih1), "MM\/DD\/YYY") & "#"





  Alıntı
Bu mesajı beğenenler:
#4
Bence tarih alanları için en uygunu Clng(TarihAlani) kullanmak tarih alanı uzun tamsayiya çevrilince başına ve sonuna # eklemek zorunluluğu ve format() fonksiyonuna gerek kalmıyor.
Visual Basic
  1. tarih2.ValidationRule = "Between " & Clng(tarih1) & " And " & Clng(DateAdd("d", gunu, tarih1))





  Alıntı
Bu mesajı beğenenler:
#5
Arkadaşlar bu sorunu çözdüm demiştim ancak sürekli hata alıyorum. Bazen sorun çıkmıyor bazende hata veriyor. Sorun nereden kaynaklı olabilir.

Visual Basic
  1. Private Sub İzin_Başlangıç_AfterUpdate()
  2. Dim tplhakedis, tplizinleri As Integer
  3.  
  4. 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)
  5. 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)
  6.  
  7.  
  8. İzin_Bitiş.ValidationText = "Bu izin türünde en fazla " & DateAdd("d", tplhakedis - tplizinleri, İzin_Başlangıç - 1) & " tarihini seçebilirsiniz."
  9. İzin_Bitiş.ValidationRule = "Between #" & Format(İzin_Başlangıç, "MM\/DD\/YYYY") & "# And #" & Format(DateAdd("d", tplhakedis - tplizinleri, Format(İzin_Başlangıç - 1, "MM\/DD\/YYYY")), "MM\/DD\/YYYY") & "#"
  10.  
  11. End Sub





[Resim: ryBRkB.png]



  Alıntı
Bu mesajı beğenenler:
#6
4. mesajdaki kodu denediniz mi?



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Varsayılan Olarak Belirleme alikagan 6 635 30-10-2021, 01:59
Son Mesaj: dsezgin
  Güzergah Belirleme Programı Hakkında Yardım erman3301 3 656 17-11-2020, 11:09
Son Mesaj: onur_can
access-sql-9 Validationrule Belirlemede Oluşan Hata alperalper 0 418 29-07-2020, 14:48
Son Mesaj: alperalper
  [VBA] Tablodaki Proses Numarasına Göre Başka Alanın Verisini Belirleme husem 15 1.896 11-12-2019, 09:41
Son Mesaj: husem
  [VBA] Sorgu İçeriğinde Kriter Belirleme alperalper 3 985 22-10-2018, 17:43
Son Mesaj: alperalper
  [TABLO] Oluşturulan sınıf için kapasite belirleme mstfztrk 1 841 18-07-2018, 12:15
Son Mesaj: dsezgin
  [MAKRO] Formlar arası değer belirleme balmy 3 1.555 27-10-2017, 15:34
Son Mesaj: onur_can
  Formdan In Ölçüt değerini belirleme Amadeus 11 8.767 20-04-2017, 14:34
Son Mesaj: huzun_bulutu

Foruma Git:


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