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

[شامل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

 

[jjafferr]

تفضل التحويل 

    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
   

 

 

جعفر

[شامل2]

السلام عليكم

كود رائع وفكرته اجمل

بارك الله فيك

[jjafferr]

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

 

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

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

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
       

 

جعفر