الحقيقة أنا كما قلت لكم لم أقرأ الموضوع من أوله
وكل اعتقادي أن إدخال التاريخ يجب أن يكون بتنسيق ثابت وطول ثابت
ولكن بعد أن قرأت الموضوع من أوله اتضح لي خطأي
والحقيقة تفاجأت كيف مضى بكم هذا الكم من المشاركات والحال أنكم عند استخدام تقاويم الأكسس فأنتم في مأمن من هذه المشكلات
فقط أوكلوا أمر الفحص للفجوال وهو كفيل بإعطائكم خبر جهينة
على كل حال الموضوع لا يستحق أكثر من هذه السطور البسيطة وسيأتي بنتائج أفضل :
- حدث قبل التحديث
Private Sub daten_BeforeUpdate(Cancel As Integer) Dim dt As Date On Error Resume Next dt = CDate(daten) If Err.Number <> 0 Then Cancel = -1 MsgBox "إدخال خاطئ" End If End Sub
- حدث بعد التحديث
Private Sub daten_AfterUpdate() Me.daten = Format(Me.daten, "yyyy/mm/dd") End Sub
