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

[عمر ضاحى]

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

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

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

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

 

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

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

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

 

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

ظهر لى هذا 

 

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

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

 

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

[ابو جودي]

اتفضل 

 

[عمر ضاحى]

  في 17‏/1‏/2022 at 04:09, ابو جودي said:

اتفضل 

 

Expand  

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

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

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

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

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

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

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

 

[عمر ضاحى]

للرفع

[عمر ضاحى]

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

[عمر ضاحى]

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

مشكلة التاريخ.rarFetching info...

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

[عمر ضاحى]

@jjafferr @ابوخليل

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

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

[Eng.Qassim]

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

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

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

[عمر ضاحى]

  في 17‏/1‏/2022 at 18:19, Eng.Qassim said:

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

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

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

Expand  

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

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

[Eng.Qassim]

  في 17‏/1‏/2022 at 18:21, عمر ضاحى said:

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

Expand  

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

 

[عمر ضاحى]

^_^

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

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

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

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

[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

.

.

 

جعفر

[عمر ضاحى]

  في 17‏/1‏/2022 at 18:56, 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

.

جعفر

Expand  

هذا ما يظهر لى 

 

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

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

[jjafferr]

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

 

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

.

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

.

.

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

 

جعفر

[عمر ضاحى]

  في 17‏/1‏/2022 at 19:09, jjafferr said:

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

 

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

.

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

.

.

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

 

جعفر

Expand  

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

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

😍

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

 

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

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

 

[jjafferr]

  في 16‏/1‏/2022 at 20:39, عمر ضاحى said:

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

Expand  

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

 

  في 17‏/1‏/2022 at 19:17, عمر ضاحى said:

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

Expand  

الدالة 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]

  في 17‏/1‏/2022 at 19:41, ابوخليل said:

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

Expand  

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

dd/mm/yyyy

 

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

 

جعفر

[عمر ضاحى]

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

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

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

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

[ابوخليل]

  في 17‏/1‏/2022 at 19:48, jjafferr said:

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

dd/mm/yyyy

 

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

 

جعفر

Expand  

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