kayıt girişini engelleme

[BKCAN]

tarih alanına 40 günden önceki bir tarih girildiği zaman aşagıdaki kodlarla kayıt girişini engelliyorum.

aynı satırda başka alanlarda mevcut, bu alanlarında aynı şekilde 40 gün geçmişse işlem yaptırmayıp eski haline getirmesi, onun için aşagıdaki kodlarda nasıl bir değiştirme yapmak gerekiyor

alanlar:
tarih-ad-adres-şehir

If DateDiff("d", [tarih], Now()) > 40 Then
MsgBox "Girilen Tarih 40 Günden Fazla Olamaz"
Me.tarih.SetFocus
Me.Undo
End If

 

[herdogan]

Sanırım kaydedilen tarihin üzerinden kırk gün sonra diğer alanlar güncellenemesin istiyorsun.Kullandığın kodu diğer alanlar içinde kullanabilirsin.

 

[BKCAN]

Sanırım kaydedilen tarihin üzerinden kırk gün sonra diğer alanlar güncellenemesin istiyorsun.Kullandığın kodu diğer alanlar içinde kullanabilirsin.

sayın herdogan ilginiz için teşekkür ederim

yaptıgınız uygulamayı ben yaptıydım, her alan için çıkıldıgında olayına aynı kodu verdim, fakat benim istediğim o şekilde değil yukarıdaki kod üzerinde diger alanların da adlarını kullanarak yapmak istiyorum

 

[BKCAN]

.




bu konuyla ilgili bilgi verecek arkadaş yok mu acaba??

tarih alanı olunca aşagıdaki kod çalışıyor, alan rakam ve metin olunca çalışmıyor.

kod tarih alanına bakıp ona göre 40 gün öncesine işlem yaptırmaması gerekiyor nasıl düzeltmem gerekiyor.

geçerlilik kuralına: >Date()-40 denedim bu sefer hiç birşeye izin vermiyor??

bilgilenizi rica edecem

If DateDiff("d", [tarih], Now()) > 40 Then



.

 

[Taruz]

Merhaba..

Kodu formun Güncelleştime Öncesinde olayına yazınız..

 

[BKCAN]

Merhaba..

Kodu formun Güncelleştime Öncesinde olayına yazınız..

sn Taruz çok teşekkür ederim tam istediğim gibi.

saygılar