تحديث قيمه الحقل اذا كان التاريخ فارغ

[Fmmm]

السلام عليكم 

هذه الكود بالوحده النمطيه للأستاذ ابوخليل @ابوخليل شغال تمام ولكن حاله الاجازه اذا كان لا يوجد تاريخ بدايه ونهايه تعطي خطا قمت بالتعديل ولكن لا يعمل

' Check if strdate or enddate is null

  If IsNull(Strdate) Or IsNull(Enddate) Then

    vlcase = "No Date"

  Else

    ' Check if the current date is within the range of the leave dates

    If (currentDate >= Strdate) And (currentDate <= Enddate) Then

      ' If the current date is within the range of the leave dates, update the lcase field to "Holiday in action"

      vlcase = "قيد الاجراء"

    ElseIf currentDate < Strdate Then

      ' If the current date is before the start date, update the lcase field to "Vacation has not started"

      vlcase = "لم تبدا"

    ElseIf currentDate > Enddate Then

      ' If the current date is before the start date, update the lcase field to "Vacation has finsh"

      vlcase = "منتهية"

    End If

  End If

 

f10.rar

تم تعديل يناير 26, 2023 بواسطه jjafferr
لتنسيق الكود: استعمال <> القائمة ، ووضع الكود في نافذته

[ابوخليل]

عليكم السلام

المرفق غير مكتمل ، يبدو انك عملته على السريع

 

[Fmmm]

5 ساعات مضت, ابوخليل said:

عليكم السلام

المرفق غير مكتمل ، يبدو انك عملته على السريع

 

شكرا استاذي @ابوخليلعلي الرد هذا هو المرفق السابق الذي قمته انت بحله وجدته تحديث قيمه الاجازه الكود يعمل تمام لكن إذا كان اي حقل من تاريخ البدايه أو النهايه غير مكتوب يعطي error احتاج إذا كان حقل تاريخ البدايه والنهايه فارغ يعطيني رساله لا يوجد تاريخ 

fmmm2 (1).rar

[ازهر عبد العزيز]

اضف هذا الكود للحدث الذي تريدة 

    With CodeContextObject
        If (IsNull(.Enddate) Or IsNull(.Strdate)) Then
            Beep
            MsgBox "error23", vbOKOnly, ""
        End If
    End With

 

[ابوبسمله]

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

مشاركه مع اخوانى واساتذتى

افتح النموذج frmleave واطلع على مصدر السسجلات بعدالتعديل

zofdate: werEjaza(Nz([strdate];#01/01/1900#);Nz([enddate];#01/01/1900#))

بالتوفيق

fmmm2.accdb

[سامي الحداد]

السلام عليكم 

وهذه مشاركتي مع الاساتذة جزاهم الله كل خير

=IIf(Len("" & [Strdate] & [Enddate])=0,"No Date",[zofdate])

 

fmmm3.accdb

[ابوخليل]

ما شاء الله تعددت الحلول

الاستاذ ابو بسملة فكرة حلوة 

الأستاذ سامي : جرب تحذف تاريخ من التواريخ الموجودة ثم شغل الفورم

انا عدلت على الحقل في الاستعلام فقط

fmmm4.rar

[ابوبسمله]

5 ساعات مضت, ابوخليل said:

ابو بسملة فكرة حلوة 

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

والاحلى هو مشاركتكم معنا شيخنا الجليل ابوخليل 💐

[Fmmm]

19 ساعات مضت, ابوخليل said:

عليكم السلام

المرفق غير مكتمل ، يبدو انك عملته على السريع

 

شكرا لجميع الأساتذة اللذين قاموا بالرد جزاكم الله خير الجزاء 

الاستاذ @ابوخليلوالأستاذ @ابوبسملهبصراحه حلكم تحفه وشكرا جزيل لكم ولو يوجد افضل اجابتين كنت سوف اختار الإثنين والان يمكن أن نختار اول من سارع بالحل وجعله الله في ميزان حسناتكم وزادكم من علمه وفضله وبارك لكم

وشكرا جزيلا لك الجروب الأعضاء والخبراء 

تم تعديل يناير 27, 2023 بواسطه Fmmm

[ابوبسمله]

3 ساعات مضت, Fmmm said:

شكرا لجميع الأساتذة اللذين قاموا بالرد جزاكم الله خير الجزاء 

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

3 ساعات مضت, Fmmm said:

ولو يوجد افضل اجابتين

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

ولكننا نريد الدعوات الطيبه اكثر من اى شىء

بالتوفيق اخى