هل يمكن ربط التاريخ الميلادي بالهجري بهذه الطريقة ؟

[abofayez1]

لدي قاعدة بيانات التاريخ المستخدم فيها هو الهجري أم القرى ولكن تفاديا لمشاكل أكسس مع تقويم أم القرى استخدمت في الواجهة حقل تقويم اكتب فيها التاريخ بشكل يومي لكن أريد أن يكون الحقل مرتبط في الخلفية بالتاريخ الميلادي   .  باختصار سيتم كتابة التاريخ الهجري أم القرى ىبشكل يدوي يوميا  وهو غير مرتبط بتاريخ الجهاز إطلاقا... التاريخ الميلادي سيعمل في الخلفية ولا يهم هل التاريخ صحيح أم لا... أهم شيء التاريخ الهجري . عند تقديم أو تأخير التاريخ الهجري أريد أن يتقدم ويتأخر معه الميلادي .لأن الميلادي سيكون هو المحسوب مثلا ُى أيام الغياب ونحوه بينما الظاهر للمستخدم والمطبوعات هو الهجري الذي تم تسجيلهيدويا  هل يمكن عمل هذا .

يوجد مثال في المرفقات

وفقكم الله وجزاكم خيراالتاريخ.accdb

[ابوخليل]

تفضل

Dim cal As Integer
    Dim r As Date
    Dim i As String
     cal = Calendar
    Calendar = 1
    r = CDate(hijri.Text)
    Calendar = 0
    i = CStr(r)
     ymd = Format(i, "YYYY/MM/DD")
    Calendar = cal

 

التاريخ2.accdb

[abofayez1]

الله يحفظك أستاذنا أبو خليل ويطول عمرك ويبارك لك في حلالك ويصلح لك ذريتك

100%

[abofayez1]

أستاذنا أبو خليل

لو كان التاريخ الهجري في مربع تحرير وسزد كيف سيكون الكود؟

[ابوخليل]

هو نفسه .. لا يتغير ، ما دمت ستختار

[abofayez1]

وفقك الله وبارك فيك