تعديل التاريخ من ميلادي الى هجري

[-ABO_FAISAL 0]

السلام عليكم ورحمة الله وبركاته:

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

قاعدت بيانات شئون الموظفين.rar

[السيد بدران 13]

نسخة 2003 

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

[أواب 10]

تابع الصورة

[-ABO_FAISAL 0]

أخي  الكريم تم العمل مثل الشرح ولكن لافادة شكرا لمرورك ..

[السيد بدران 13]

حل نهائى لمشكلة التاريخ الهجرى والميلادى
الجدول بالمرفق بة التاريخ الميلادى والهجرى من 1420الى 1450 بتقويم ام القرى
التاريخ الميلادى مفتاح اساسى والهجرى حقل تابع بتنسيق نص
بعلاقة رئس باطراف مع جدولك الذى به التاريخ يظهر بجوار كل تاريخ ميلادى التاريخ الهجرى الذى يقابلة
كما يمكنك التعديل اذا ما اختلف التقويم فى بلدك عن تقويم ام القرى
اتمنى يكون حل  مفيد 
 

Microsoft Office Access 2007 قاعدة بيانات جديد ‫‬.rar

[أواب 10]

الاخ الكريم: 

السيد بدران

نرجو مثالا بأكسس2003 لنستفيد

[alaaaboulela 28]

السلام عليكم

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

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

 

Private Sub dm_AfterUpdate()

    Dim sc As Integer

    Dim d As Date

    Dim s As String

     sc = Calendar

    Calendar = 0

    d = CDate(dm.Text)

    Calendar = 1

    s = CStr(d)

     dh = Format(s, "YYYY/MM/DD")

    Calendar = sc

     

End Sub

 

Private Sub dh_AfterUpdate()

    Dim sc As Integer

    Dim q As Date

    Dim s As String

     sc = Calendar

    Calendar = 1

    q = CDate(dh.Text)

    Calendar = 0

    s = CStr(q)

     dm = Format(s, "YYYY/MM/DD")

    Calendar = sc

End Sub

[alaaaboulela 28]

السلام عليكم

برجاء تحميل الملف و الاطلاع على الفورم والدخول على خصائص حقلي التاريخ الهجري والميلادي

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

hjrdydate.rar

تم تعديل 18 Nov 2013 بواسطه alaaaboulela

[أواب 10]

شكراً للأخ السيد بدران على تجاوبه.