ما هو الخطأ في هذا الكود ؟

[الشاعر]

السلام عليكم

أسعد الله أوقاتكم بكل خير

ما هو الخطأ في هذا الكود ؟

If Judge1 Is Null Then

Etqan1 = 0

ُElseif Judge1 Is Not Null Then

Etqan1 = Ahkam0

End If

End Sub

تقبلوا تحياتي

الشاعر

تم تعديل ديسمبر 17, 2013 بواسطه الشاعر

[أبا عمر]

تفضل أخي الكريم
 

If IsNull(me.Judge1) Then
Etqan1 = 0
Else
If IsNotNull(Me.Judge1) Then
Etqan1 = Ahkam0
End If
End If

تم تعديل ديسمبر 17, 2013 بواسطه أبا عمر

[الشاعر]

اللام عليكم

أخي العزيز أبا عمر

الله يعطيك العافية

عند تطبيق الكود ظهرت لي رسالة الخطأ التالية

في المرفقات

للعلم الحقل

Judge1

ليس حقل رقمي بل نصي

تم تعديل ديسمبر 17, 2013 بواسطه الشاعر

[أبا عمر]

أرفق مثال للتعديل عليه

[أبا عمر]

تفضل أستاذي أعتذر لك عن الخطأ 
 

If IsNull(Me.Judge1) Then
Etqan1 = 0
Else
If Not IsNull(Me.Judge1) Then
Etqan1 = Ahkam0
End If
End If

[الشاعر]

إليكم المثال مع شرح المطلوب في المثال

تحكيم مسابقة الحفظ.rar

[الشاعر]

السلام عليكم

أخي العزيز أبا عمر

بارك الله فيك

المطلوب الأول

100 %

لو تكرمتم علينا بمساعدتنا في حل المطلوب الثاني في المثال

تقبل تحياتي

الشاعر

تم تعديل ديسمبر 18, 2013 بواسطه الشاعر

[الشاعر]

حاولت ولم أفلح

فما الخطأ في هذ الكود

Private Sub Judge4_Exit(Cancel As Integer)

Judge = Count([Judge1] + [Judge2] + [Judge3] + [Judge4])

End Sub

[الشاعر]

للرفع

[سمير1]

ارفق مثال وحدد مكان الكود المطلوب تعديله

[الشاعر]

السلام عليكم

أخي العزيز

سمير 1

شكرا لتفضلكم بالرد

المثال مرفق في الأعلى

كما أنني حللت المشكلة بطريقة ملتوية

أضفت 4 حقول جديدة

زقيمة الحقل مبنية على إنه إذا كان حقل

TJudge1

فارغا فإن الحقل الجديد = صفر

وإذا لم يكن فارغا فإن الحقل = 1

وجمعت قيم الحقول الجديدة

بارك الله بكم مجددا

تحياتي

( الشاعر)