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

تحويل تعبير في استعلام الى دالة بالفيجوال بيسك


شامل2

الردود الموصى بها

السلام عليكم

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

أي تحويلها الى Function  في وحدة نمطية

علما ان هذه الدالة تحسب عدد مواد الفشل لدى التلاميذ

    ((Fail : IIf([eslam]<50;1;0)+IIf([arab]<50;1;0)+IIf([engl]<50;1;0)+IIf([comp]<50;1;0)+IIf([math]<50;1;0


 

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

تفضل التحويل :rol:


    Fail = 0
    
    If [eslam] < 50 Then
        Fail = 1
    Else
        Fail = 0
    End If
    
    
    If [arab] < 50 Then
        Fail = Fail + 1
    Else
        Fail = Fail + 0
    End If
    
    
    If [engl] < 50 Then
        Fail = Fail + 1
    Else
        Fail = Fail + 0
    End If
    
    
    If [comp] < 50 Then
        Fail = Fail + 1
    Else
        Fail = Fail + 0
    End If
    
    If [Math] < 50 Then
        Fail = Fail + 1
    Else
        Fail = Fail + 0
    End If
   

 

 

جعفر

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

وعليكم السلام :rol:

 

الكود اللي انا وضعته هو ترجمه حرفيه للكود اللي انت وضعته ،

ولكن اذا اردنا ان نأخذ من الكود المقدار المفيد ، فيمكن اختصار الكود الى:

Fail = 0
    
    If [eslam] < 50 Then Fail = 1
           
   If [arab] < 50 Then Fail = Fail + 1
   
    If [engl] < 50 Then Fail = Fail + 1
         
    If [comp] < 50 Then Fail = Fail + 1
                
    If [Math] < 50 Then Fail = Fail + 1
       

 

جعفر

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

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information