معيار باسم مستعار فى الاستعلام لقاعدة IF

[أبو حوده]

لو عندى جدول باسم MHO به حقل باسم HH وكنت عاوز الحقل اذا كان خالى تظهر كلمه لا يوجد واذا كانت قيمته بتساوى الرقم 7 تظهر كلمه تم الانتهاء فى الاستعلام 

ممكن الاخوة الخبراء يتفضلوا بكتابة الكود 

وكل الشكر مقدما 

[jjafferr]

عفوا ، شو الفرق بين هذا السؤال ، وهذا 

 

جعفر

[أبو حوده]

اخى الفاضل فى الموضوع السابق كانت قاعدة واحدة IF 

كمثال 

aadd6: IIf(IsNull([HH]);"لا يـــوجـــد";[HH])

طيب لوعاوز فى نفس الشرط لما تكون قيمة الحقل تساوى 7 فى نفس الشرط هنعمل الشرط ازاى 

يعنى كIF   و ELSE

تم تعديل ديسمبر 8, 2020 بواسطه أبو حوده

[أبو حوده]

aadd6: IIf(IsNull([HH]);"لا يـــوجـــد";[HH]) طيب باقى الشرط لما تكون قيمة الحقل 7 تظهر كلمة تم الانتهاء هنعمل الشرط ازاى 

 

تم تعديل ديسمبر 8, 2020 بواسطه أبو حوده

[أبو حوده]

برجاء تصحيح الكود 

aadd7: IIf(IsNull([R2]);"لا يـــوجـــد";[R2]) Or IIf([R2]=7;"تم الانتهاء";[R2])

[jjafferr]

ممكن عمل هذا الكود في الاستعلام ، ولكنك وبسبب اللغة العربية في الكود ، فلن تعرف ان تغير شيء لاحقا ،

لهذا السبب ، الافضل عمل وحدة نمطية ، ويمكنك تعديلها بكل بساطة ،

اسميتها qry_values ، ونرسل لها قيمة الحقل من الاستعلام (في المثال السابق ، اسم الحقل كان 2020 ) ، وفي الوحدة النمطية تسمية هذا المتغير هو H :

Public Function qry_values(H As Integer) As String

    
    If H = 0 Or Len(H & "") = 0 Then    ' Zero and Null
        qry_values = "لا يوجد"
        
    ElseIf H = 7 Then                   ' any other value
        qry_values = "تم الانتهاء"
        
    Else                                ' return the original value
        qry_values = H
    End If
    
End Function

.

ثم نناديها من الاستعلام ، هكذا :

.

والنتيجة :

 

جعفر

1306.مثال.accdb.zip

[أبو حوده]

تسلم ايدك اخى @jjafferr على هذا المجهود وهذه الفكرة الرائعة يعنى اللى منعرفش ننفذة فى الاستعلام ممكن تنفيذة من خلال الوحدات النمطية ويتم منادتها من الاستعلام  ...

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

[jjafferr]

🙂