لماذا لا يعمل هذا الكود مع التاريخ الهجري

[أبو العقاب]

السلام عليكم أخواني

طبقت هذا الكود على التاريخ الميلاد فعمل مئة بالمئة

ولكن بالتقويم الهجري لم يعمل ولا أدري ما السبب

ويوضع الكود في حدث عند الفتح للنموذج

الكود هو

If z = #8/17/1431# Then

DoCmd.Quit

End If

وهذا يعني إذا وصل حقل التاريخ اسمه z إلى تاريخ يوم 17/8/1431 ينهي البرنامج

ولكن عند فتح قاعدة البيانات يفتح بشكل طبيعي

ما الحل؟

يوجد مرفق

db4.rar

[ابوخليل]

وعليكم السلام

الاكسس يتعامل مع التاريخ ويجري عملياته كلها بالتاريخ الميلادي ، بالرغم من ظهور هذا الجزء من التاريخ الهجري فهو إنما يعمل مقابلة ان صح لي التعبير ،

بمعنى ظهور التاريخ الهجري في الواجهة بينما هو يتعامل مع ما يقابله من الميلادي . قكأن التاريخ الهجري على هذه الحالة صورة .

وخير دليل على ذلك :

حيث لك خبرة في ارسال البيانات من الاكسس الى الوورد ، حينما يكون التاريخ في الاكسس هجري ثم يتم ارسال حقل التاريخ الى الوورد يقوم الاكسس بارسال ما يقابل هذا التاريخ من الميلادي ،

مرفق مثالين وكلا القاعدتين قد ضبطت على التاريخ الهجري

واحدة استعملنا التاريخ الهجري في الكود وعليه يلزمنا حقل التاريخ الموجود في النموذج

والاخرى استعملنا التاريخ الميلادي ( فلم نحتج الى الحقل المذكور ) وهذا تفسير وزيادة ايضاح لكلامي السابق

التّنزيلات.rar

[أبو العقاب]

بارك الله بك أبا الأنس

المرفق أكثر من رائع