الشاعر قام بنشر ديسمبر 17, 2013 قام بنشر ديسمبر 17, 2013 (معدل) السلام عليكم أسعد الله أوقاتكم بكل خير ما هو الخطأ في هذا الكود ؟ If Judge1 Is Null Then Etqan1 = 0 ُElseif Judge1 Is Not Null Then Etqan1 = Ahkam0 End If End Sub تقبلوا تحياتي الشاعر تم تعديل ديسمبر 17, 2013 بواسطه الشاعر
أبا عمر قام بنشر ديسمبر 17, 2013 قام بنشر ديسمبر 17, 2013 (معدل) تفضل أخي الكريم If IsNull(me.Judge1) Then Etqan1 = 0 Else If IsNotNull(Me.Judge1) Then Etqan1 = Ahkam0 End If End If تم تعديل ديسمبر 17, 2013 بواسطه أبا عمر
الشاعر قام بنشر ديسمبر 17, 2013 الكاتب قام بنشر ديسمبر 17, 2013 (معدل) اللام عليكم أخي العزيز أبا عمر الله يعطيك العافية عند تطبيق الكود ظهرت لي رسالة الخطأ التالية في المرفقات للعلم الحقل Judge1 ليس حقل رقمي بل نصي تم تعديل ديسمبر 17, 2013 بواسطه الشاعر
أبا عمر قام بنشر ديسمبر 17, 2013 قام بنشر ديسمبر 17, 2013 تفضل أستاذي أعتذر لك عن الخطأ If IsNull(Me.Judge1) Then Etqan1 = 0 Else If Not IsNull(Me.Judge1) Then Etqan1 = Ahkam0 End If End If
الشاعر قام بنشر ديسمبر 17, 2013 الكاتب قام بنشر ديسمبر 17, 2013 إليكم المثال مع شرح المطلوب في المثال تحكيم مسابقة الحفظ.rar
الشاعر قام بنشر ديسمبر 18, 2013 الكاتب قام بنشر ديسمبر 18, 2013 (معدل) السلام عليكم أخي العزيز أبا عمر بارك الله فيك المطلوب الأول 100 % لو تكرمتم علينا بمساعدتنا في حل المطلوب الثاني في المثال تقبل تحياتي الشاعر تم تعديل ديسمبر 18, 2013 بواسطه الشاعر
الشاعر قام بنشر ديسمبر 18, 2013 الكاتب قام بنشر ديسمبر 18, 2013 حاولت ولم أفلح فما الخطأ في هذ الكود Private Sub Judge4_Exit(Cancel As Integer) Judge = Count([Judge1] + [Judge2] + [Judge3] + [Judge4]) End Sub
الشاعر قام بنشر ديسمبر 19, 2013 الكاتب قام بنشر ديسمبر 19, 2013 السلام عليكم أخي العزيز سمير 1 شكرا لتفضلكم بالرد المثال مرفق في الأعلى كما أنني حللت المشكلة بطريقة ملتوية أضفت 4 حقول جديدة زقيمة الحقل مبنية على إنه إذا كان حقل TJudge1 فارغا فإن الحقل الجديد = صفر وإذا لم يكن فارغا فإن الحقل = 1 وجمعت قيم الحقول الجديدة بارك الله بكم مجددا تحياتي ( الشاعر)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.