4 şart sağlanınca kayıt yapsın yoksa yapmasın

[sistem93]

:???: Arkadaşlar aşağıda belirttiğim TRF, KOL, MUA ve YET tarih içeren birer kayıt.

Sorunum TRF, KOL, MUA ve YET te girilen tarihler bu günden büyük ise kayıt gerçekleşsin, değilse gerçekleşmesin.
Böyle yaptım çalışmadı.


Private Sub KAYDET_Click()
If TRF > Date Then
ElseIf KOL > Date Then
ElseIf MUA > Date Then
ElseIf FEN > Date Then

On Error GoTo Err_KAYDET_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_KAYDET_Click:
Exit Sub

Err_KAYDET_Click:
MsgBox Err.Description
Resume Exit_KAYDET_Click

Else
MsgBox (PLAKA) + " Plakalı Bu aracın belgelerinin biri veya birkaçının geçerlilik süresi bittiğinden Çıkış işlemi Yapılmayacaktır", vbCritical, "ÇIKIŞ KAYDI İPTALİ"

On Error GoTo Err_KAYDI_GERİ_AL_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Exit_KAYDI_GERİ_AL_Click:
Exit Sub

Err_KAYDI_GERİ_AL_Click:
MsgBox Err.Description
Resume Exit_KAYDI_GERİ_AL_Click

End If
End Sub

 

[sistem93]

Yukarda belirtmeyi unuttum.

belirtilen 4 şarttan herhangi birinin veya birkaçının tarihinin bu günden küçük olması durumunda kayıt yapmayacak.

 

[abkbek]

Sayın sistem93,
eğer sorununuz sadece girilen değerin bugünden büyük olmasının kontrolü ile ilgili ise ve başka bir şart yoksa alanların tasarım görünümünde özellikler iletişim kutusundaki veri sekmesinde bulunan geçerlilik kuralı seçeneğine >Date(), şartını girin ve geçerlilik metni bölümüne de yukarıdaki mesajınızı yazın, dolayısıyla bahsettiğiniz alanlara şarta uymayan veri girişi engellenecek ve kullanıcı ikaz edilecektir.

 

[sistem93]

Sayın Abkbek;

Yapmış olduğum programa iki türlü veri girilebiliyor.Birinci yöntem dirket olarak girilebiliyor. Burda bahsettiğiniz şekilde zaten çalışıyor.

İkinci Yöntem ise aracın plakasını açılan kutudan seçtiğim takdirde ilgili dört bölüme sigorta , muayene vs bitiş başka bir veri tabanından tarihleri otomotik giriliyor. Sık kullandığımız yöntemde budur. ve Benim bu bilgileri görmem zaten gerekiyor.

Benim istediğim verileri gördükten sonra eğer süresi biten bir belge var ise kayıt işlemi gerçekleşmesin.

İlgine teşekkürler

 

[sistem93]

Arkadaşlar sağolun problemi çözdük sonunda;(Emrah ZENGİN e teşekkür ederim)

Şöyle olması gerekiyormuş;


If (TRF < Date ) or (KOL< Date) or (MUA< Date) or (FEN< Date)Then
Kayıt İptal kadu
MsgBox"......."
Else
Kayıt işlemi Kodu
MsgBox"......."
End If


Yordamı ile yapılması gerekiyormuş.

Herkese Teşekkürler, Özellikle Modalı ve AbkBek'