الأعضاء الكرام
السلام عليكم ورحمة الله وبركاته
ومساكم الله بالخير
عملت تحيث عند التغيير وعندما أغير الدرجة يحدث المجموع فورا ولكن لايقبل الدرجة من خانتين 25 مثلا فماهو الحل ودمتم
وهذا مثال مرفق
تحديث عند التغيير
مغلق
وعليكم السلام ورحمة الله وبركاته
أخي الكريم
لفت نظري في القاعدة التي تستخدمها ، أنك تقوم بتخزين المجموع في القاعدة ، وهذا غير مستحب في عمل القواعد لأنك تستطيع الحصول على المجموع بواسطة الإستعلامات بدون أن تتحمل القاعدة إهدار المساحة التخزينية.
أرفقت لك ملف القاعدة بعد التعديل للتكرم بالإطلاع.
شكرا أخي ابن مسقط على الرد وابداء المساعدة
ولمن الشكلة ما زالت قائمة
المطلوب تحديث الجمع قبل الخروج من الخانة أي بعد كتابة الرقم مباشرة
وجزاك الله خير على كل حال
تم تعديل هذه المشاركة بواسطة ابن المحتزم في 15 يوليو 2004 في 04:18
ابن المحتزم كتب:شكرا أخي ابن مسقط على الرد وابداء المساعدةولمن الشكلة ما زالت قائمة
المطلوب تحديث الجمع قبل الخروج من الخانة أي بعد كتابة الرقم مباشرة
وجزاك الله خير على كل حال
المثال الذي أرفقته لك يعمل معي 100%
ولا أدري لماذا لا يعمل معك.
على كل حال أيضاً الأستاذ/ مهند مثاله يحل مشكلتك بإذن الله
والله يوفقك.
شكرا اخي مهند
ولكن مازالت المشكلة لم تنحل
فجرب في مثالك اكتب في البداية رقم من خانتين في خانت الواجبات مثلا 44 ثم عدله الى 33 فلن يقبل سوى (3) فقط
وشكرا اولا وأخرا
تم تعديل هذه المشاركة بواسطة ابن المحتزم في 16 يوليو 2004 في 17:32
ضع السطر التالي عند فتح النموذج
Application.SetOption "Behavior entering field", 2
شكرا جزيلا أخي مهند
بذلك السطر انحلت المشكلة وأصبح الشغل 100%
وجزاك الله عنا كل خير
والشكر موصولا للأعضاء الكرام الذين بادروا في المساعدة مثل ابن مسقط
تم تعديل هذه المشاركة بواسطة ابن المحتزم في 17 يوليو 2004 في 02:02
ومعليش أخ مهند ولو كثرت عليك الطلبات هل ممكن نكرر (ماعمل) في الخانة الأولى في باقي الخانات
وشكرا
ممكن عمل ذلك طبعاً ..
انسخ الكود
حاول وقل لي ما النتيجة
اخي مهند
السلام عليكم ورحمة الله وبركاته
نسخت الكود في خانة المشاركة والاختبار ولكن لم يعمل . في الادخال الأول يعلق الجهاز
واذا خرجت من النموذج ودخلت مرة ثانية تبطل فعالية الكود مع العلم أنه موجود
وبارك الله فيك
SendKeys "{tab} +{tab}"
d.Requery
اخي مهند شكلي دوشتك ولكن تحملنا ولك الأجر من الله
الحل مضبوط في نفس النموذج المرفق ولكن عندما نقلت الكود الى نوذج أخر مع تغيير أسماء الخانات ماعد ((( الاسم ))) تركته لأني ماأعرف ماذا يعني
وشغلت النموذج خرجت لي رسالة هي المرفقة
وبارك الله فيك
أخي الكريم
المفروض أن تفهم الحل لكي تطبقه على حالات أخرى
الحل يعتمد على أننا في حدث (عند التغيير) نقوم بنقل التركيز إلى عنصر آخر(وهو الاسم) ثم إعادة التركيز إلى الأداة نفسها وهذا لكي يتم تحديث قيمة مربع النص بالقيمة المكتوبة ضمنه
ولاحظ أننا أضفنا هذا الكود :
Application.SetOption "Behavior entering field", 2
ووظيفته عندما يتم الانتقال إلى مربع نص يتم وضع المؤشر في آخر الأحرف المكتوبة (بدلاً من تحديد كامل الحقل كما هو الوضع الافتراضي)
إذاً الكود يقوم بتحديث قيمة مربع النص من خلال نقل المؤشر خارجه ثم إعادة المؤشر إليه ثانية .. ثم القيام بعملية تحديث مربع النص الذي يحتوي على المعادلة
أرجو أن تستطيع الآن تعديل نموذجك الآخر وفق هذا المعنى
شكرا اخي مهند على صبرك وشكرا على حلمك وشكرا على حسن تعاملك
الأمور اصبحت ممتازة ومايحتاج
وجزاك الله خير
هذا الموضوع مغلق.