تحويل التاريخ لام القرى تلقائيا في الجدول

[الرهوي]

في الملف المرفق عند ادخال اي بيانات جديدة في النموذج فان حقل StartDate يدخل تاريخ الادخال تلقائيا بالميلادي

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

كما انه كنت في السابق معتمد التاريخ الهجري لقاعدة البيانات ولعدم توافقها مع تاريخ ام القرى قررت تحويل تاريخ قاعدة البيانات للميلادي واعتماد ام القرى وعند تحويل قاعدة البيانات للميلادي ظهرت التواريخ بهذه الطريقة في الحقل a11  ؟!!

Database2.rar

[الرهوي]

ممكن احد يساعدني فضلا لا امرا

[ابوخليل]

الامر يسير جدا فقط تبديل سطر بسط

سأوافيك بالحل والمثال

 

[الرهوي]

بارك الله فيك اخي الكريم
حاولت ماضبطت معي 

[ابوخليل]

تفضل

Public Function toHjre(dm As Date)
    Dim sc As Integer
    Dim d1 As Date
    Dim z As String
    sc = Calendar
    Calendar = 0
    d1 = dm
    Calendar = 1
    z = CStr(d1)
     toHjre = Format(z, "YYYY/MM/DD")
    Calendar = sc
End Function

 

تحويل.rar

مع الاخذ بالاعتبار ان التحويل الى الهجري المحول من اكسس ، وليس تقويم ام القرى

حيث يوجد اختلافات وتعارض  في نهاية بعض الشهور بين الميلادي  وتقويم ام القرى

اذا اردت اعتماد تقويم ام القرى فيجب ان تستخدم  وحدة نمطية خاصة .. تجدها متوفرة في غالب امثلة المنتدى

[الرهوي]

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

انا اريد التحويل من الميلادي  لام القرى وليس للهجري لتعارضه ومشاكله كما تفضلت

وانا فعلا اعتمدت تقويم ام القرى وقمت بانزال الوحدة النمطية لقاعدة البيانات وهي موجودة في المرفق الذي ارسلته الذي ارغب في التعديل عليه

[ابوخليل]

حول مرفقك الى صيغة mdb  ان اردتني اعدل عليه

وان لم تتمكن سأرفق لك مثالا من عندي

[الرهوي]

هذا الملف بالصيغة التي طلبت

Database2.rar

[ابوخليل]

تفضل الدالة الخاصة بالتحويل الى تاريخ ام القرى ، و هي موجودة ضمن الوحدة النمطية

Me.StartDateH = UmR2L(Me.StartDate)

في النموذج  اكتب التاريخ  الميلادي وسيتحول آليا الى تاريخ ام القرى

كما صنعت لك استعلام تحديث  لتحديث الحقول الخالية السابقة

الوحدة النمطية اعدها وصححها الاستاذ ابو هادي فلا تنسونا  من دعوة  صالحة في ظهر الغيب

تحويل التاريخ.rar

[الرهوي]

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

بالنسبة للاستعلام استخدمته وادي الغرض بنجاح 

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

واكرر شكري لك 

 

[ابوخليل]

تاريخ اليوم الافتراضي :

=Date()

وتاريخ ام القرى الافتراضي :

=UmDate()

ولزيادة الفائدة : اي دالة خاصة بالتاريخ الميلادي  يقابلها دالة في الوحدة النمطية  فقط  اضف Um

فمثلا   ()Now   يقابلها   ()UmNow   وهكذا ....

[الرهوي]

عند وضع الدالة هكذا ....

 

لايقبل وتظهر لي هذه الرسالة

تم تعديل يناير 26, 2018 بواسطه الرهوي

[kaser906]

UmDate()

استخدمها بهذه الطريقة

شرط ان يكون الحقل حقل نص وليس تاريخ ووقت

[الرهوي]

وضعتها كما تفضلت ونفس الرسالة

[kaser906]

ضعها  بحقل غير منظم  بالنموذج

تم تعديل يناير 26, 2018 بواسطه kaser906

[الرهوي]

في حقل غيرمنظم يظهر التاريخ فعلا بدون اي مشكلة

لكن كيف اجعله في حقل في الجدول ؟؟

[kaser906]

اعتذر منك

اعتقد ان استخدام هذه الخاصية

بحاجة الى تعريف في الوحدة النمطية والله أعلم

[الرهوي]

فكرت في طريقة تؤدي الغرض 

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

ولكن واجهتني مشكلة اظهار رسالة فتح الاستعلام 

تظهر لي في كلم مرة عند الاغلاق

هل من طريقة لاخفائها وجعل التحديث يعمل في صمت دون علم المستخدم

تحويل التاريخ1.rar

تم تعديل يناير 27, 2018 بواسطه الرهوي

[kaser906]

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

فكرت في طريقة تؤدي الغرض 

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

ولكن واجهتني مشكلة اظهار رسالة فتح الاستعلام 

تظهر لي في كلم مرة عند الاغلاق

هل من طريقة لاخفائها وجعل التحديث يعمل في صمت دون علم المستخدم

تحويل التاريخ1.rar

ضع هذا قبل كود التحديث عند الاغلاق

DoCmd.SetWarnings False

 

[الرهوي]

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

[ابوخليل]

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

فكرت في طريقة تؤدي الغرض 

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

 

  عند كل اغلاق يقوم بتحديث الجدول .. هذه طريقة غير احترافية . 

ولكن قبل هذا :  الدالة  UmDate()  تعمل في حقل النموذج المنظم ‘ فهي تعمل عندي

ولو لم تعمل عندك يمكنك توظيف السطر  :

Me.textUm = UmR2L(Date())

توظفه في اي حدث مثلا عند تحميل النموذج  او عند الكتابة في اي حقل

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

[الرهوي]

صحيح هو حل غير احترافي لكن ماعرفت اوصل لحل غيره

اذا تكرمت ممكن تعدل على الملف المرفق بطريقتك التي شرحتها

تحويل التاريخ.rar

تم تعديل يناير 28, 2018 بواسطه الرهوي

[الرهوي]

قمت بتوظيف هذا السطر

Me.textUm = UmR2L(Date())

في حقل عند الادخال ونجحت العملية

اشكركما جدا اساتذتي ابوخليل والكاسر ويعطيكم الف عافية

 

تم تعديل يناير 28, 2018 بواسطه الرهوي