اضافة تقويم ام القرى والتحويل منه للتاريخ الميلادي ؟

[الرهوي]

ارفق لكم مثال اضفت فيه التحويل من تقويم ام القرى الى التقويم الميلادي ولكن يتم ادخال تاريخ ام القرى يدويا رقم رقم ...

وانا ارغب في ادخال تاريخ ام القرى عن طريق التقويم المرفق مع قاعدة البيانات (cal) بحيث انه عند النقر المزدوج في الحقل يفتح تاريخ ام القرى وعند اختيار التاريخ يتم التحويل مباشرة في حقل التاريخ الميلادي

وايضا كخيار ثاني يكون الادخال عن طريق ازرار الامر ( يوم-اسبوع-شهر-سنة) والتحويل للتاريخ الميلادي بمجرد ضغط زر الامر 

ولكم جزيل الشكر مقدما

Database1.accdb.zip

[kaser906]

حاولت افتح القاعدة المرفقة

تتوقف عن التشغيل ويتم اغلاقها

في ورقة الخصائص للحقل ضع هذا الكود عند النقر المزدوج لفتح النموذج على تقويم أم القرى'
=Open_Cal([ActiveControl];2)
وهذا للهجري
=Open_Cal([ActiveControl];1)
وهذا للميلادي
=Open_Cal([ActiveControl];0)

 

[الرهوي]

حاولت ولكن لم تنجح وتظهر لي رسالة خطأ

رفعت الملف من جديد ياليت يشتغل عندك

Database1.rar

Database11.rar

[kaser906]

مازال يوجد مشكلة عند فتح قاعدة البيانات

قمت بعمل قاعدة جديدة واستيرد الكائنات

7 ساعات مضت, الرهوي said:

حاولت ولكن لم تنجح وتظهر لي رسالة خطأ

رفعت الملف من جديد ياليت يشتغل عندك

Database1.rar

Database11.rar

تفضل جرب المرفق

convirt.rar

[الرهوي]

بارك الله فيك وفي علمك ونفع بك

الحمدالله ضبطت معاي 

عندي بس نقطتين اريد لها حل 

النقطة الاولى اضفت مربع نص يعرض تاريخ اليوم لام القرى واضفت فيه الدالة =umDate() وظهر التاريخ فعلا لكن من اليسار لليمين مع اني جعلت تنسيقه yyyy/mm/dd ولم يتعدل ؟!!

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

اسف على الاطالة واكرر شكري وتقديري

convirt.rar

[kaser906]

اليك التعديل على تنسيق الحقل

بالنسبة للطلب الثاني يمكنك أنت بحاجة لعمل استعلام

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

 

convirt2.rar

[الرهوي]

بارك الله فيك والف شكر لك

وسوف افتح موضوع جديد بالنسبة للنقطة الثانية 

[الرهوي]

عودة للموضوع بعد اذنك استاذي

ارغب في التعديل على المرفق حيث ان الحقل (الى تاريخ ) يظهر فيه التاريخ بالعكس وليس كالحقل (من تاريخ) 

وكذلك في حقل (الى تاريخ) بالميلادي يظهر فارغا بدون اي تاريخ

اريد عند الضغط على الازرار (يوم-شهر-سنة) تظهر لي جميع الحقول ومنسقة

اسف على كثرة طلباتي ولكن ليس لنا بعد الله غيركم بارك الله فيكم وفي علمكم

convirt11.rar

[kaser906]

ماهو معيار حقل الى تاريخ

لايوجد حقل يمكن الحساب عليه

[الرهوي]

اريد فقط تنسيق التاريخ من اليمين الى اليسار

تم تعديل المرفق

convirt11a.rar

[kaser906]

56 دقائق مضت, الرهوي said:

اريد فقط تنسيق التاريخ من اليمين الى اليسار

تم تعديل المرفق

convirt11a.rar

Private Sub BF_Click()
Me.[StartDate] = UmFormat(UmDate, StartDate.Format)
Me.[EndDate] = UmFormat(UmDate, EndDate.Format)
Call StartDate_AfterUpdate
End Sub

استخدم هذا التعبير

وطبق على الباقي بنفس الفكرة

[الرهوي]

الله يفتح عليك

شكرا لك