تقييم درجات الطلاب

[Ibrahim IQ]

السلام عليكم عل اعضاء ، هدية لمن يحتاج الى ان ينشىء تقييم درجات ، ولكن عندى سؤال هل هناك اى Module للتقيم بدلا من iif ؟ ونحتاج الى هذا ... مع الشكر

Evaluation.rar

[jjafferr]

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

 

هنا ننادي الوحدة النمطية ، ونرسل لها القيمة من الحقل

.

والنتيجة

.

وهذه هي الوحدة النمطية

Function Grading(G)

    'G = Grade sent from the Query
    
    If G >= 89.5 Then
        Grading = "ممتاز"
        
    ElseIf G >= 79.5 Then
        Grading = "جيدجدا"
        
    ElseIf G >= 69.5 Then
        Grading = "جيد"
        
    ElseIf G >= 59.5 Then
        Grading = "متوسط"
        
    ElseIf G >= 49.5 Then
        Grading = "مقبول"
        
    ElseIf G >= 0 Then
        Grading = "ضعيف"
        
    End If
    
End Function

 

جعفر

544.Evaluation.accdb.zip

[Ibrahim IQ]

20 دقائق مضت, jjafferr said:

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

 

هنا ننادي الوحدة النمطية ، ونرسل لها القيمة من الحقل

.

والنتيجة

.

وهذه هي الوحدة النمطية

Function Grading(G)

    'G = Grade sent from the Query
    
    If G >= 89.5 Then
        Grading = "ممتاز"
        
    ElseIf G >= 79.5 Then
        Grading = "جيدجدا"
        
    ElseIf G >= 69.5 Then
        Grading = "جيد"
        
    ElseIf G >= 59.5 Then
        Grading = "متوسط"
        
    ElseIf G >= 49.5 Then
        Grading = "مقبول"
        
    ElseIf G >= 0 Then
        Grading = "ضعيف"
        
    End If
    
End Function

 

جعفر

544.Evaluation.accdb.zip

شكرا استاذ جعفر للمساعدة

[jjafferr]