انتهاء عقد

[الرقم المعرف]

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

اخواني عندي مشكلة واريد حلها جزاكم الله خير

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

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

وجزاكم الله خير 

عقود.rar

[محمد أبوعبدالله]

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

تفضل اخي الكريم

سنستخدم الوحدة النمطية التالية

' للتحويل من ميلادى لهجرى
Public Function Greg2Hijri(gDate As String, Optional DateFrmat As String = "dd/mm/yyyy") As String
    Dim orgCal As Integer
    Dim nDate As Date

    orgCal = Calendar
    Calendar = vbCalGreg
    nDate = gDate
    Calendar = vbCalHijri
    Greg2Hijri = Format(nDate, "dd/mm/yyyy")
    Calendar = orgCal
End Function

' للتحويل من هجرى لميلادى
Public Function Hijri2Greg(hDate As String, Optional DateFrmat As String = "dd/mm/yyyy") As String
    Dim orgCal As Integer
    Dim nDate As Date
    Dim tStr As String

    orgCal = Calendar
    Calendar = vbCalHijri
    nDate = hDate
    Calendar = vbCalGreg
    Hijri2Greg = Format(nDate, "dd/mm/yyyy")
    Calendar = orgCal
End Function

وفي النموذج نسضع الكود التالي

Private Sub تاريخ_العقد_ميلادي_BeforeUpdate(Cancel As Integer)
    Me.[تاريخ العقدر هجري].Value = Greg2Hijri(Trim([تاريخ العقد ميلادي].Value), "dd/mm/yyyy")
End Sub

Private Sub تاريخ_العقدر_هجري_BeforeUpdate(Cancel As Integer)
    Me.[تاريخ العقد ميلادي].Value = Hijri2Greg(Trim([تاريخ العقدر هجري].Value), "dd/mm/yyyy")
End Sub

Private Sub تاريخ_انتهاء_العقد_ميلادي_BeforeUpdate(Cancel As Integer)
    Me.[تاريخ انتهاء العقد هجري].Value = Greg2Hijri(Trim([تاريخ انتهاء العقد ميلادي].Value), "dd/mm/yyyy")
End Sub

Private Sub تاريخ_انتهاء_العقد_هجري_BeforeUpdate(Cancel As Integer)
    Me.[تاريخ انتهاء العقد ميلادي].Value = Hijri2Greg(Trim([تاريخ انتهاء العقد هجري].Value), "dd/mm/yyyy")
End Sub

Up_عقود.rar

تحياتي

[الرقم المعرف]

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

ولكن بقي عندي كيف احصر الاسماء المنتهيه عقودهم في بيان بعد انتهاء العقد مباشرة بيوم 

وفي نفس الوقت على صفحة المتعاقد يكون لون احمر على خانة انتهاء العقد

رزقك الله من حيث لا تحتسب