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

[عمر ضاحى]

استاذي الجليل @ابوخليل

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

وانى طامع فى مساعده اخرى 

فى هذا الموضوع 

 

حضرتك ارفقت ملف للتحويل بين الهجري والميلادي

وحبيت انقل هذه المعادلة الى برنامجي 

لكن عند التنفيذ ظهر لى خطأ 

 

ولما حبيت اعرف الخطأ فين 

ظهر لى هذا 

 

انا اريد ان اعرف انا اخطأت فين ؟

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

 

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

[ابو جودي]

اتفضل 

 

[عمر ضاحى]

منذ ساعه, ابو جودي said:

اتفضل 

 

استاذي الجليل ابو جودي

بارك الله فيك واشكرك على مداخلتك 

لكنى كنت اريد ان اعرف ما السبب فى انها لا تعمل

اذا كتبت التاريخ الميلادي يتم عمليت التحويل

لكن اذا كتبت التاريخ الهجري يحدث الخطأ

فكنت اريد اعرف لماذا لا تعمل معي 

مع انى ناقل كل شئ مثلما هو وتأكدت من ان كل الحقول مظبوطه فى التسميه والتنسيقات الاخري

 

[عمر ضاحى]

للرفع

[عمر ضاحى]

للرفع رفع الله قدركم

[عمر ضاحى]

مرفق ملف لمن اراد البحث معي على حل

مشكلة التاريخ.rar

تم تعديل يناير 17, 2022 بواسطه عمر ضاحى

[عمر ضاحى]

@jjafferr @ابوخليل

استاذي ومعلمي جعفر 

هل لديك اى فكره عن سبب عمل الداله معي هنا 

[Eng.Qassim]

استاذ عمر ... هناك مشاركات كثيرة لاستاذنا العزيز @jjafferr

وهي مفيدة جدا .. وان اصبح لي الوقت اجمعها لفائدة الجميع

لكني اصبح كسولا في بعض الاحيان لان البرمجة عندي هواية وليس مصدر للكسب

[عمر ضاحى]

الان, Eng.Qassim said:

استاذ عمر ... هناك مشاركات كثيرة لاستاذنا العزيز @jjafferr

وهي مفيدة جدا .. وان اصبح لي الوقت اجمعها لفائدة الجميع

لكني اصبح كسولا في بعض الاحيان لان البرمجة عندي هواية وليس مصدر للكسب

هل لى ان اطلب من حضرتك النظر فى الملف لعلك تعرف الخطأ وقد يعمل معك

واذا اشتغل معك دون مشاكل اظن كده السبب هيكون من عندي

[Eng.Qassim]

9 دقائق مضت, عمر ضاحى said:

ذا اشتغل معك دون مشاكل اظن كده السبب هيكون من عندي

حينما ادخل التاريخ الميلادي لاتحدث مشكلة

 

[عمر ضاحى]

^_^

ما هي دي المشكله 

لو ادخلت تاريخ ميلادي مش مشكله لكن المشكله تحدث عند ادخال التاريخ الهجري 

والاصل فى الشغل هنا التاريخ الهجري 

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

[jjafferr]

السلام عليكم 🙂

 

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

اضف الاسطر الثلاثة في الكود ، ثم انظر في اسفل صفحة الكود immediate windows ، واخبرنا النتيجة:

Private Sub date_h_AfterUpdate()

UmDate_AfterUpdate
If Not IsNull(date_h) Then

Debug.Print Right(date_h, 2)
Debug.Print Mid(date_h, 6, 2)
Debug.Print Left(date_h, 4)

Me.date_m = Um2Greg(Right(date_h, 2), Mid(date_h, 6, 2), Left(date_h, 4))
''Me.date_m = Um2Greg(Right(date_h, 4), Mid(date_h, 6, 2), Left(date_h, 2))
'Me.t_day = Format(Me.date_m, "dddd")
End If
End Sub

.

.

 

جعفر

[عمر ضاحى]

7 دقائق مضت, jjafferr said:

السلام عليكم 🙂

 

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

اضف الاسطر الثلاثة في الكود ، ثم انظر في اسفل صفحة الكود immediate windows ، واخبرنا النتيجة:

Private Sub date_h_AfterUpdate()

UmDate_AfterUpdate
If Not IsNull(date_h) Then

Debug.Print Right(date_h, 2)
Debug.Print Mid(date_h, 6, 2)
Debug.Print Left(date_h, 4)

Me.date_m = Um2Greg(Right(date_h, 2), Mid(date_h, 6, 2), Left(date_h, 4))
''Me.date_m = Um2Greg(Right(date_h, 4), Mid(date_h, 6, 2), Left(date_h, 2))
'Me.t_day = Format(Me.date_m, "dddd")
End If
End Sub

.

جعفر

هذا ما يظهر لى 

 

وهذا التاريخ الذى ادخلته

تم تعديل يناير 17, 2022 بواسطه عمر ضاحى

[jjafferr]

المفروض ان تظهر لك ارقام فقط ، لهذا السبب تحصل على خطأ عندما تنادي الدالة Um2Greg !!

 

في الواقع المشكلة عندك في الجدول ، حيث ان حقل IqamaExpDateH هو تاريخ ، بينما يجب ان يكون نص 

.

وبالتالي يتم حذف الاشارة الى ان الحقل تاريخ (احذف Short Date) 

.

.

وبعدها شوف النتائج 🙂

 

جعفر

[عمر ضاحى]

5 دقائق مضت, jjafferr said:

المفروض ان تظهر لك ارقام فقط ، لهذا السبب تحصل على خطأ عندما تنادي الدالة Um2Greg !!

 

في الواقع المشكلة عندك في الجدول ، حيث ان حقل IqamaExpDateH هو تاريخ ، بينما يجب ان يكون نص 

.

وبالتالي يتم حذف الاشارة الى ان الحقل تاريخ (احذف Short Date) 

.

.

وبعدها شوف النتائج 🙂

 

جعفر

والله ما عارف اقول ايه 

المشكله اتحلت فعلا 

😍

بارك الله فيك وادام الله لك لباس الصحه والعافيه 

 

طيب حاجه اخيره 
بعد اذن حضرتك 

عاوز اخلى التاريخ من الياسار لليمين زي التاريخ الميلادي

 

[jjafferr]

22 ساعات مضت, عمر ضاحى said:

وحبيت انقل هذه المعادلة الى برنامجي

انظر الى نوع حقل التاريخ الهجري في الجدول 🙂

 

21 دقائق مضت, عمر ضاحى said:

عاوز اخلى التاريخ من الياسار لليمين زي التاريخ الميلادي

الدالة UmDate_AfterUpdate هي المسؤولة عن طريقة عرض التاريخ ،

فاذا اردت تغيير التنسيق ، فلا انصحك ان تغير في الدالة اعلاه ، ولكن خلينا نغير نتيجة الدالة:

Private Sub date_h_AfterUpdate()

UmDate_AfterUpdate
If Not IsNull(date_h) Then

'Debug.Print Right(date_h, 2)
'Debug.Print Mid(date_h, 6, 2)
'Debug.Print Left(date_h, 4)

Me.date_m = Um2Greg(Right(date_h, 2), Mid(date_h, 6, 2), Left(date_h, 4))
''Me.date_m = Um2Greg(Right(date_h, 4), Mid(date_h, 6, 2), Left(date_h, 2))
'Me.t_day = Format(Me.date_m, "dddd")

Me.date_h = Right(Me.date_h, 2) & "/" & Mid(Me.date_h, 6, 2) & "/" & Mid(Me.date_h, 1, 4)	'<== هذا السطر الاضافي لتغيير التنسيق

End If
End Sub

.

جعفر

[ابوخليل]

مع ان الاولى تغيير حقل الهجري الى نص من اجل تجاوز التعارض مع الاشهر الشمسية الناقصة

ولكن عند التحويل الى نص نفقد كثير من الخصائص التي تجرى على حقول التاريخ

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

والكود يقرأ من اليمين الى اليسار

جرب لا تغير الحقل الى نصي  بل اتركه كما هو واستبدل الكود بهذا

Me.date_m = Um2Greg(Left(date_h, 2), Mid(date_h, 4, 2), Right(date_h, 4))

 

[jjafferr]

4 دقائق مضت, ابوخليل said:

جرب لا تغير الحقل الى نصي  بل اتركه كما هو

في هذه الحالة يجب ان يكتب تنسيق الحقل في الجدول كالتالي:

dd/mm/yyyy

 

وإلا فإنه سياخذ تنسيق الوندوز ، وتنسيق الوندوز عندي هو dd/mmm/yyyy ، فسيعطيه رسالة خطأ كذلك !!

 

جعفر

[عمر ضاحى]

ما شاء الله 2 من العمالقه يردو على اطلبي 

اتحلة المشكله 

بارك الله لكم وفى زويكم وما اراكم مكروه ابدا

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

[ابوخليل]

9 دقائق مضت, jjafferr said:

في هذه الحالة يجب ان يكتب تنسيق الحقل في الجدول كالتالي:

dd/mm/yyyy

 

وإلا فإنه سياخذ تنسيق الوندوز ، وتنسيق الوندوز عندي هو dd/mmm/yyyy ، فسيعطيه رسالة خطأ كذلك !!

 

جعفر

انا عملته طبقا للصيغة الموجودة فعلا في الجدول وهذه الصيغة هي السائدة ، واستخدم التنسيق ( من اليمين الى اليسار ) في الواجهات