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

[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.rarFetching info...

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

[ابوخليل]

عليكم السلام

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

 

[Fmmm]

  في 26‏/1‏/2023 at 21:29, ابوخليل said:

عليكم السلام

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

 

Expand  

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

fmmm2 (1).rarFetching info...

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

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

    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.accdbFetching info...

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

السلام عليكم 

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

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

 

fmmm3.accdbFetching info...

[ابوخليل]

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

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

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

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

fmmm4.rarFetching info...

[أبوبسمله]

  في 27‏/1‏/2023 at 10:11, ابوخليل said:

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

Expand  

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

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

[Fmmm]

  في 26‏/1‏/2023 at 21:29, ابوخليل said:

عليكم السلام

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

 

Expand  

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

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

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

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

[أبوبسمله]

  في 27‏/1‏/2023 at 16:52, Fmmm said:

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

Expand  

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

  في 27‏/1‏/2023 at 16:52, Fmmm said:

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

Expand  

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

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

بالتوفيق اخى