sayın hocalarım programımda sub form üzerinden çalışan bir form üzerinde çalışıyorum. sub.form üzerinde açtırdığım bir formda tarih alanı var ve bu alanın formatı dd-mmm-yy yani 12-Nis-11 şekilinde ve şöyle bir kod yazmaya çalışıyorum. eğer bu tarih bugünden küçükse mesaj kutusu çıksın ve tarih geçmiş yazsın. form geçerliği olduğunda koduna yazdığım kod şu


Private Sub Form_Current()
If Forms![frmSearch]![Sub].[Form].[PM_1].Value < Date Then
MsgBox "Tarih Geçti", , "Tarih Mesajı"
End If

End Sub

şeklinde kodu yazıyorum burda PM_1 denilen alan formdaki tarih alanı ve bu alan 12-Nis-11 formatında. ve bu formatta olduğu için Date ile eşleşmiyor. bu sorunu nasıl çözebilirim. PM_1 alanının formatını değiştiremem çünki başka formlarda süzmede kullanıyorum.örneği ekleyemiyorum çünki boyutu baya büyük sıkıştırmayla bile büyük olduğu için eklemedim. umarım kodlardan ne demek istediğimi anlatabilmişimdir. ilginize teşşekkürler...

Merhaba,
PM_1 alanının formatı aynı kalsın, formda o alanda bulunan giriş maskesini kaldırın. Sorun çözülecektir...

malesef hocam giriş maskesini kaldırmaklada düzelmiyor. çünki form açıldığında zaten tarih oraya dd-mmm-yy formatında geliyor uyarı mesajı çıkması için o tarih alanının dolu olması lazım zaten. sanırım bunu kod içine format ayarlamasını yaptırma gibi bir kodla çözmek gerekli çünki pm 1 alanın formatını değiştirmek programda bir çok yerde hata almama sebeb olucaktır...