طلب مساعدة لوضع التاريخ فى متغير

الامر سهل باذن الله

ولكن ارفق لنا مثالا حتى نصل الى ما تريده تحديداً

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

سأعيد الطلب بصورة أخرى علها تكون أكثر ايضاحا

هناك عدة دوال فى الأكسيس خاصة بالتاريخ منها دالة () date وهذه الدالة معناها ارجاع قيمة التاريخ الحالى الفعلى ، اى انى لو وضعت هذه الدالة فى القيمة الافتراضية initial value لأحد الحقول سيكون قيمة هذا الحقل هو التاريخ الحالى ولكنى لا أريد ذلك بل اريد مثلا ان يكون x=1/5/2004

واذا وضعت x فى القيمة الافتراضية للحقل تكون قيمة هذا الحقل 1/5/2004 وبالطبع هذا الحقل معرف مسبقا أن نوعه تاريخ ... ولكن ما يحدث غير ذلك

فهل من مساعدة لايجاد حل لهذا

شكــــــــــــرا

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

لعمل دالة او وظيفة عامة للتاريخ المطلوب يلزمك انشاء وحدة نمطية جديده ( Module ) وتضع بها هذا الكود

Public Function XDate()
XDate = #1/4/2006#
End Function

بحيث تستطيع استخدام هذه الوظيفة العامة في اي مكان من قاعدة البيانات سواء نماذج او تقارير او استعلامات كل ما عليك هو جعل القيمة الافتراضية للحقل هذه العبارة

=XDate

طبعا تستطيع تغيير التاريخ في الوحدة النمطية بأي تاريخ تريده ولكن هذا سيؤثر على كل مربعات النص التي تستخدم هذه الدالة

اذا رغبت في انشاء تاريخ جديد كل ما عليك هو انشاء وحدة نمطية جديده ونسخ الكود السابق وتغير التاريخ في الوظفية الثانية بتاريخ تحدده انت مثال

لو رغبت ان يكون التاريخ 15 / 08 / 2006 في الوظيفة الثانية فكل ما عليك هو عمل التالي

1. تغيير مسمى الوظيفة XDate الى 2 XDate

2. تغيير التاريخ الى 15 / 08 / 2006

لتصبح الوظيفة الجديده في الوحدة النمطية بهذا الشكل

Public Function XDate2()
XDate = #8/15/2006#
End Function

وهذا مثال عملي

FDate.rar

اختكم

زهره