semo.pa3x شرح الدالة المفيدة Choose في الاكسس

[SEMO.Pa3x]

في كثير من الاحيان، نلجأ الى استخدام الدالة IF أو غيرها من دوال الشروط للتحقق من قيم رقمية.

 

ملاحظة: الدالة تتحقق من الارقام فقط.

 

مثلا لو كان الحقل يتحوي القيمة 1 اظهر لي رسالة جيد

واذا كان الحقل يحتوي القيمة 2 اظهرلي رسالة متوسط

واذا كان الحقل يحتوي القيمة 3 اظهر لي رسالة ضعيف

 

في الوضع الطبيعي VBA داخل النماذج يكون

If txt_Status = 1 Then
    MsgBox "جيد"
ElseIf txt_Status = 2 Then
    MsgBox "متوسط"
ElseIf txt_Status = 3 Then
    MsgBox "ضعيف"
Else
    MsgBox "لا توجد قيمة مطابقة"
End If

 

وفي الاستعلام يكون

 

Check_Value: IIf([text_Status]=1;"جيد";IIf([text_Status]=2;"متوسط";IIf([text_Status]=3;"ضعيف";"لا توجد قيمة مطابقة")))

 

اما الدالة Choose مختصرة وسهلة اكثر.

 

Nz(Choose(txt_Status, "Good", "Semi-Good", "Bad"), "No Value !")

تقوم الدالة بعرض مكان القيمة الصحيحة بين القيم الموضوعه حسب الحقل الموجود txt_Status

تحياتي لكم.

حسنين

تم تعديل نوفمبر 15, 2019 بواسطه SEMO.Pa3x

[أبوبسمله]

السلام عليكم

استاذى الفاضل احسنت وجزاك الله خيرا

وبالنتظار المزيد وياريت مثال مرفق مع الشرح لو مفيهاش تعب

تقبل تحياتى وتمنياتى بالتوفيق

طبتم واهتديتم

[kha9009lid]

الله يعطيك العافية استاذ حسنين

اسمح لى انزل مثال بسيط لا ستخدامها في منشئ التعبير

في المثال المرفق حددنا طبيعة عمل الموظف بالاختيار مابين 1 الى 5

ch.accdb

[أبوبسمله]

تسلم استاذ حسنين واستاذ خالد

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

طبتم واهتديتم

[kha9009lid]

الشكر لله سبحانه ثم للاستاذ حسنين انا فقط وضعت مثال بسيط

[رمهان]

في ١٥‏/١١‏/٢٠١٩ at 11:54, SEMO.Pa3x said:

في كثير من الاحيان، نلجأ الى استخدام الدالة IF أو غيرها من دوال الشروط للتحقق من قيم رقمية.

 

ملاحظة: الدالة تتحقق من الارقام فقط.

 

مثلا لو كان الحقل يتحوي القيمة 1 اظهر لي رسالة جيد

واذا كان الحقل يحتوي القيمة 2 اظهرلي رسالة متوسط

واذا كان الحقل يحتوي القيمة 3 اظهر لي رسالة ضعيف

 

في الوضع الطبيعي VBA داخل النماذج يكون

If txt_Status = 1 Then
    MsgBox "جيد"
ElseIf txt_Status = 2 Then
    MsgBox "متوسط"
ElseIf txt_Status = 3 Then
    MsgBox "ضعيف"
Else
    MsgBox "لا توجد قيمة مطابقة"
End If

 

وفي الاستعلام يكون

 

Check_Value: IIf([text_Status]=1;"جيد";IIf([text_Status]=2;"متوسط";IIf([text_Status]=3;"ضعيف";"لا توجد قيمة مطابقة")))

 

اما الدالة Choose مختصرة وسهلة اكثر.

 

Nz(Choose(txt_Status, "Good", "Semi-Good", "Bad"), "No Value !")

تقوم الدالة بعرض مكان القيمة الصحيحة بين القيم الموضوعه حسب الحقل الموجود txt_Status

تحياتي لكم.

حسنين

اوافقك تماما في فائدتها اصبحتاستخدمهاكثيرا .. هنا مثال اخر 

 

[qathi]

أهلاً بعودتك لنا أستاذنا @رمهان

كيف اخبارك .. طولت الغيبة علينا .. 

سعدنا بعودتك