اذهب الي المحتوي
أوفيسنا

اكسس 2013 مرفق ملف طلب تحويل التاريخ للهجري والعكس


syrianfalcon

الردود الموصى بها

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

التاريخ الهجري.rar

رابط هذا التعليق
شارك

  • 3 weeks later...

طيب 
القى نظره على هذا الموضوع ان شاء الله تجد ماتريد
ولو تعثر عليك الامر بعد ماهدة هذا الموضوع اقوم بالتعديل على المرفق الخاص بكم 
اعتذر لضيق وقتى فى الوقت الحالى 
http://www.officena.net/ib/index.php?showtopic=59680&page=2

رابط هذا التعليق
شارك

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

http://www.officena.net/ib/index.php?showtopic=59213&hl=%2B%D8%A8%D8%AD%D8%AB+%2B%D9%87%D8%AF%D9%8A%D8%A9

 

فيه طلبك تفصيلا كما تريد

رابط هذا التعليق
شارك

السلا عليكم 

شكرا لك اخي الكريم على وقتك القيم

 

بالنسبة لي لا اجيد فن التعابير البرمجية 

احتاج لبعض الوقت لكي افهم طريقة تركيبها

حاولت فتح الرابط وحملت الملف ونقل بعض الكود 

ونقلته لملفي

تقريبا زبط بس في مشكلة

لو لاحظت السجل الاول قلت له 11/3/1980 وضع لي في الخلية 1400-04-24

ولو انتقلت للسجل التالي تجد التاريخ 1400-04-24 مكتوب لوحده ؟؟؟

واذا قمت بوضع تاريخ اخر في السجل الثاني مثلا 5/5/2003 يقوم بتحويلة للهجري 

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

واذا سكر تالملف يختفي ؟؟

مرفق الملف

 

تحويل الميلادي للهجري.rar

رابط هذا التعليق
شارك

اخي صقر سوريا

الرابط السابق هي لمعالجة تاريخ ام القرى والذي يفرق عن التاريخ الهجري 

اما لطلبك وباسهل الطرق :

ضع الكود التالي لحدث في الحالي للنموذج :

Private Sub Form_Current()
Dim x As String
Calendar = vbCalHijri
x = t2
t1 = x
End Sub

بالتوفيق

تم تعديل بواسطه رمهان
  • Like 1
رابط هذا التعليق
شارك

الأستاذ رمهان , المحترم

السلام عليكم 

 

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

انا لدي برنامج لشؤون الموظفين والادخال انجليزي ولكن في بعض الحالت ان اردت ان اطبع تقرير اريد ان اضيف خانه تحت التاريخ الميلادي يقرأ التاريخ الميلادي ويحوله للهجري بدون ان اضغط زر للتحويل لوحدة اتوماتيكي لما اغير الميلادي يتغير الهجري 

هذا الذي احببت ان اعرف طريقة برمجة مربع النص الذي اضيفه على النموذج قبل الطباعه

رابط هذا التعليق
شارك

عزيزي

خلينا في الادخال في النموذج

طبعا امسح الكود الأول والموجود بالملف الذي بأول مشاركة وهو كما ذكرت لك خاصا بتواريخ ام القرى !

الآن الصق الحدثين التاليين :

Private Sub Form_Current()
Dim x As String
Calendar = vbCalHijri
x = Nz(t2, "")
t1 = x
End Sub

Private Sub t2_AfterUpdate()
Dim x As String
Calendar = vbCalHijri
x = Nz(t2, "")
t1 = x
End Sub

وكما تلاحظ حدث في الحالي للنموذج  وحدث بعد التعديل للعنصر t2 .

 

ومسالة التقرير : ارفق التقرير وبه المطلوب !!

 

وعلى فكرة انا اعطيتك الطريقة او الفكرة !

ولكن بعد ارسالك للتقرير : سنقوم بترتيب الفكرة بشكل اخر وافضل وعبارة عن وضع دالة عامة لهذه المهمة ونناديها في أي مكان في البرنامج !

 

بالتوفيق

تم تعديل بواسطه رمهان
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information