مشكلة فى قاعدة If وتجميع عدد من القيم فى حقل واحد بنظام معين

اخى الكريم

لا يوجد كود لا فى مديول ولا فى الفورم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

راجع القاعدة التى ارفقتها و ارفق قاعدة تحتوي على الكود حتى يمكن تعديله

تحياتى

اخي الكريم

بالنسبة للمعادلة التي تريدها فهي غير واضحة

اقتباس

if a1=1 or a1 = 2 or a1 =3 and a2<=10 and a3<=0.5 then Coad ="A"

طبعا العلاقات دى كتير جدا يعنى هناك عدة حالات أخرى تجعل قيمة Coad تتغير الى B و C ... وهكذا - ولكون الكود طويل جدا حبيت أضعة فى موديول

كيف سيتم حساب ال B , C, D ...?

أخى الكريم

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

على العموم أنشأت مديول بأسم module1 وكتبت فية الكود ووضعتة فى حدث الخروج من a8 لكنة لا يعمل

رجاء المراجعة والتعديل أما باقى الأستفسارت فليس لها حل عندى

وهى المطلوبة فى حقل ال name

وشكرا

1عمليات حسابية.rar

ما زال سؤالك الاول غير مفهوم في كيفية صياغة المعادلة

بالنسبه للشق الثاني من السؤال فيمكنك استخدام هذا الكود:

Dim Length, Wide, Hight, Weight As String
Dim LengthNo, WideNo, HightNo, WeightNo As Double


LengthNo = a3
WideNo = a4
Hight = a5
Weight = a6

If IsNull(a3) Or a3 = "" Then
Length = ""
Else
Length = "Length " & a3 & " mm, "
End If

If IsNull(a4) Or a4 = "" Then
Wide = ""
Else
Wide = "Wide " & a4 & " mm, "
End If

If IsNull(a5) Or a5 = "" Then
Hight = ""
Else
Hight = "Hight " & a5 & " mm, "
End If

If IsNull(a6) Or a5 = "" Then
Weight = ""
Else
Weight = "Weight " & a6 & " kg."
End If


Me.name1.SetFocus
Me.name1.Value = Length & Wide & Hight & Weight

وضعته لك عند الخروج من الحقل a8

تم تعديل المرفق

ملاحظة: لقد قمت بتغيير اسم الحقل "Name" ل "Name1" لانها كلمة محجوزه

Calculations.zip

أخى الكريم

بالنسبة لحل الشق الثانى - للأسف بعيد كل البعد عن المطلوب - جربت وما تم أى شى سوى كتابة قيمة حقل a6 وكمان ثابتة لا تتغير بتغير قيم a6 للاسف أخى الكريم حل غير صحيح بالمرة

بالنسبة للشق الأول

قيمة Coad تتغير حسب قيم a1 & a2 & a3 قمت فعلا بعمل العلاقة لكن المطلوب هو تشغيل الموديول - عاوز عند الخروج من حقل a8 ما بداخل الموديول يتحقق فقط

وطبعا شكرا جزيلا على محاولة الأجابة والمساعدة

لا توضيح كافي

كاني فهمت ان المستخدم يريد فقط تجربة هذا الشرط فقط ثم يقوم هو باضافة بقية الشروط حسب الطريقة التى تزبط

؟؟؟؟؟؟؟؟؟

اخ rewnasser

هل قمت بتجربة الملف الذي ارسلته لك؟

هل ادخلت الارقام في الحقول من a1 الى a8 و شاهدت النتيجة؟

اليس كان طلبك هو ظهور النتيجة بعد الخروج من a8 ؟

هل قرأت الكود ؟؟

من الواضح تماما انك لم تجرب الملف الذي ارسلته لك .. بل اكتفيت بمشاهدة النتيجة فقط.

اقتباس

if a1=1 or a1 = 2 or a1 =3 and a2<=10 and a3<=0.5 then Coad ="A"

طبعا العلاقات دى كتير جدا يعنى هناك عدة حالات أخرى تجعل قيمة Coad تتغير الى B و C ... وهكذا - ولكون الكود طويل جدا حبيت أضعة فى موديول

طب حسبنا قيمة A .... و بعدين؟؟؟؟؟؟؟؟؟؟

Calculations.zip

انا لا أنكر فضلا

صدقنى الكود لا يعمل

نعم عمل معى مرة وفى السجل التالى لم يعمل

حتى فى عملة عمل بطريقة خاظئة فأن أهملت قيمة لم أدخلها لا يعمل

أسف أخى فلم توفق فيما طلبت

عامة لا يهم

وسيبك من هذة النقطة -

هل من الممكن المساعدة فى وضع الكود التالى فى موديول

if a1=1 or a1 = 2 or a1 =3 and a2<=10 and a3<=0.5 then

Coad ="A

end if

وجعلة يعمل عند الخروج من أى حقل أريد

وشكرا لمحاولاتك فى المساعدة

هناك خطأ منطقي فى الشرط

يجب وضع عبارات or بين قوسين

أخى الكود سليم 100 %

المشكلة ليست بالكود

المشكلةفى أستدعاء الموديول

المشكلة ليست بالكود - المشكلة فى أستدعاء الموديول

صدقونى حراااااااااااااااااااااام - الكلام واضح جداااااااااا - ازاى كلامى غير مفهوم

عاما شكرا للجميع