اذهب الي المحتوي
أوفيسنا

شرح الدالة المفيدة 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

تحياتي لكم.

حسنين

تم تعديل بواسطه SEMO.Pa3x
  • Like 6
  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

  • Like 2
رابط هذا التعليق
شارك

  • 2 weeks later...
في ١٥‏/١١‏/٢٠١٩ 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

تحياتي لكم.

حسنين

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

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information