السلام عليكم ورحمة الله وبركاته:
تم تحميل قاعدة البيانات لشئون الموظفين وارغب في عمل تعديل بسيط للتاريخ اريده تاريخ هجري بدلا عن الميلادي ولكم مني جزيل الشكر....
تعديل التاريخ من ميلادي الى هجري
مغلقمُجاب
أخي الكريم تم العمل مثل الشرح ولكن لافادة شكرا لمرورك ..
حل نهائى لمشكلة التاريخ الهجرى والميلادى
الجدول بالمرفق بة التاريخ الميلادى والهجرى من 1420الى 1450 بتقويم ام القرى
التاريخ الميلادى مفتاح اساسى والهجرى حقل تابع بتنسيق نص
بعلاقة رئس باطراف مع جدولك الذى به التاريخ يظهر بجوار كل تاريخ ميلادى التاريخ الهجرى الذى يقابلة
كما يمكنك التعديل اذا ما اختلف التقويم فى بلدك عن تقويم ام القرى
اتمنى يكون حل مفيد
السلام عليكم
انسخ الكود التالي في خصائص الحقل لسان الحدث بعد التحديث سيقوم بالتبديل بين التاريخين لو كتبت الهجري هيحوله لميلادي والعكس
فقط اكتب في احد التاريخين الهجري او الميلادي
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 في 18 نوفمبر 2013 في 22:34
"اللهم إني أسألك عملاً خالصاً لوجهك الكريم وأعوذ بك من النفاق والرياء "
قسم البرامج والتدريب ونظم المعلومات المحاسبية والكورسات المجانية
نسخة 2003
هذا الموضوع مغلق.