وجدت هذا الكود واريد شرح له

[J2006]

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

وجدت هذا الكود واريد شرح بسيط له

س 15 : ما أريده ھو أن تعمل القاعدة فقط إذا كان حقل آخر يساوي قیمة معینة

، مثال : لدي حقل تاريخ وحقل نصي إذا كان التاريخ أكبر من يوم 5 من الشھر

فالقیمة في حقل النص لابد أن تكون متأخر ؟

ج: أظهر خصائص الجدول ، وفي خاصية التحقق من الصحة للجدول اكتب:

( [ اسم حقل النص ] =''  متاخر"; [ اسم حقل النص ];5 =< ( [ اسم حقل التاريخ ] IFF) DAY

تم تعديل أبريل 26, 2008 بواسطه rudwan

[rudwan]

جملة IF الشرطية تضع فيها أولا الشرط , ثم بعد الفاصلة المنقطة الآولى تضع القيمة المطلوبة في حال تحقق الشرط , و بعد الفاصلة المنقوطة الثانية تضع القيمة المطلوبة في حال عدم تقق الشرط , هكذا "

IIF (CONDITION: VALUE IF TRUE :VALUE IF FALSE

)

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

[ابوهاني101]

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

الدالة Format تقوم بالعديد من المهام ويمكنك ببساطة استخدامها لكي تتحقق من قيمة اليوم هل هو اكبر 5 كما تفضلت في سؤالك ام لا ، وعلى ضوء ذلك يمكن لبرنامجك اتخاذ القرار المناسب

المثال التالي سوف يفيد اجابة سؤالك.

If Format(Me.Text1, "DD") > 5 Then
    Me.Text3 = "late"
End If

تم تعديل أبريل 30, 2008 بواسطه ابوهاني101

[J2006]

شكرا يارضوان ويابوهاني

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

[osama ababneh]

Dim dt1, dt2, dt3 As Date
dt1 = Date
dt2 = "4 / 4 / 2009"
dt3 = "3 / 3 / 2009"
If dt1 > dt2 Then
MsgBox "late""
Else
If dt1 = dt2 Then
MsgBox " too late"

End If
End If
اخي الكريم هذا مثال على تاريخين هما dt2 &dt3 فاذا تجاوز التاريخ (dt1) اي من التاريخين السابقين فانة سيعطبنا رسالة معينة
اخي هذا مثال صغير حاول الاستفادة منه..... وارجو ان اكون وفقت في الشرح