AbuuAhmed

إذا لم تحيل @ابوخليل للمثال الذي عملت عليه أنا ليفهم الكود ووظيفته وحيثياته فالأمر سيكون بناء كود جديد على دمار كود سابق. ما عمله أبو خليل هو تدمير لما عملته أنا ، كما يرجى ملاحظة تجنب استخدام أي أمر يقوم بحفظ السجل الحالي مثل (Requery, Refresh, Save) حتى يمكنك التراجع عن التعديلات قبل الحفظ. في المثال الذي قمت أنا بالتعديل عليه فيه اختصار لتكرار كود بعد التحديث 50 مرة وبه ميزة عمل المجاميع بدون حفظ السحل الحالي لتمكين المستخدم من التراجع عند الحاجة وكذلك معالجة المجاميع من جديد عند التراجع.

القسط الحالي = القسط السابق × 110%

المثال بعد التعديل تقطيع الرقم القومى إلى أعمدة_01.xlsx

لقد لاحظت عند الضغط على زر يسار يذهب التركيز يمين وكذلك العكس ، فهذا لتصحيح التركيز عملت لك تعديلات عدة منها تحديث المجاميع من جديد عندما تقوم بالتراجع عند تعديلات الحقل. المثال_03.accdb

طريقة أفضل بكثير من سابقتها، ولكنها مشروطة بعدم استخدامك لحدث بعد التحديث After Update المثال_02.accdb

المثال بعد إجراء عدة محاولات ، جربه وارجع لنا بنائج الفحص. المثال_01.mdb

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

أخي @النجاشي لم أنسى موضوعك وأنا أعمل عليه ولكن أوده أن يخرج بأفضل صورة مع أخذ اعتبارات حجم البيانات. قد أنتهي منه بالكثير 24 ساعة وربما أقل. الأفكار كثيرة ، ننتهي من إحداها ثم تطرأ نقاط جديدة نضطر أن نبدأ من جديد، العملية مرهقة. أما إذا اكتفيت بالمشاركة السابقة فهنيئا لك، وسأنزل عملي بموضوع جديد.

يمكن نعم ويمكن لا ، أخي بما أنك زميل في "الرتبة" لما لا تقوموا بالتجارب وتوثيق نتائجكم وتثبيت هذا الأسلوب أو ضحده.

حياك الله عزيزي ، مشكلتي أن الأكسس عندي قديم أعتقد ٢٠٠٧ ولا أستطيع فتح قاعدة البيانات ، إن استطعت ترفع لي نسخة لإصدار ٢٠٠٧ أكون لك شاكرا ، لأني أنا أحتاجها كذلك لعمل بعض التجارب عليها.

جرب أخي هذا الحدث فقد يكفيك عناء تكرار الكود عشر مرات. طبعا يمكنكم وضع المزيد من الفحص لتفادي أخطاء التشغيل. ولا تنسى تفعيل خاصية النموذج Key Preview Private Sub Form_KeyPress(KeyAscii As Integer) With Screen.ActiveControl If .ControlSource Like "Day*" Then DoCmd.RunSQL "UPDATE table_BAIN SET " & .ControlSource & " = " & .Value & " WHERE ID_Time = " & Me.ID_Time End If End With End Sub وأخمن أن التحديث لن يتم بخاصية Value كون القيمة لا تزال في طور التحديث وعليه حاول تبديل الخاصية إلى Text

لو أستطيع أفتح قاعدة البيانات لعملت لك الحل في حدث واحد فقط .. ولكن ما باليد حيلة. الجايات أفضل إن شاء الله.

طريقة استخدمها مع تكرار حدث ما وحتى أتفادى أخطاء الأسماء استخدم بعض التعديل على الكود (وهذا لا يعني كود المهندس قاسم به خطأ). لم أستطع أن أفتح قاعدة البيانات والتعديل مباشرة في محرر المنتدى. With Me.ActiveControl DoCmd.RunSQL "UPDATE table_BAIN SET " & .Name & " = " & .Value & " WHERE ID_Time = " & Me.ID_Time End With

وهذه هدية لحساب الوزن المثالي بشكل تقريبي الوزن_المثالي.xlsx

صممت لك دالة تتعامل معها كدوال الإكسل ، لا تحتاج لعمل زر ، فقط اكتب الدالة في الخلية الأولى واسحبها للأخير كما العادة. كذك لا تحتاج إلى صفحة بيانات المحافظات. الرقم _القومى_02.xlsm

طريقة مختصرة للحصول على سنة الميلاد بافتراض أن رمز الرقم القومي هو ID yyyy = (Left(ID, 1) + 17) * 100 + Mid(ID, 2, 2)

محاولة بدون أكواد ركبت المعادلة على أساس أن أقل راتب 3000 ريال. إذا يوجد أقل من 3000 خبرني أعدل لك المعادلة. MissingValues_01.xlsx

طيب أين دورك أخي @عبدالله بشير عبدالله في الحل؟ الأخ @lionheart نبه إلى جزئية من الكود. والأخ @عبدالفتاح في بي اكسيل نبه إلى جزئية أخرى. وأنا بعد رفع مثال السائل أصلحت أكثر من جزئية. ومع كل الملاحظات هذه لا وجود لحل لمعالجة البيانات، كل ما ذكر محاولات وقف رسائل الخطأ فقط. ملاحظاتي: - أن يغلق هذا الموضوع كون رسالة الخطأ اختفت 🙂 . - يفتح موضوع آخر يشرح فيه السائل المطلوب من إجراء الإضافة والتعديل ويضغ مثالا لبيانات أكثر ويحتوي على نتيجة "يدوية" مفترضة بعد إجراء الإضافة أو التعديل. - أن ينبه الأخ الزميل @lionheart بالالتزام بالكتابة باللغة العربية كون المنتدى عربي والأعضاء عرب وكثير من الأعضاء لا يجيدون الإنجليزية. - أن يلتزم بعض الأعضاء عند الكتابة بعرض حلولهم وأن يتركوا التعليقات غير النافعة. - أن يمتنع من ينوي مهاجمتي على ردي هذا ويبدل هجومه بدعوة صالحة لي وللزملاء الذين يحاولون التصدي "بصدق" لحل مشاكلهم.

وضعك صعب يا اوفيست بن اكسل أنا لم أقم بحل مشكلتك ، ولكن .. قمت بإصلاح بعض مشكلات كتابة الكود لتجهيزه لمن يرغب في التواصل معك للتعديل. 5566_01.xlsm

عزيزي كما لا يخفى عليكم أن أساس قيمة حقل التاريخ والوقت ما هو إلا رقمي وما نراه نحن إلا تنسيقا نصيا لقيمته الرقمية ، وأنا الحقيقة لا أحول رقمي إلى رقمي بل أهرب من تاثير التنسيق النصي على قيمة التاريخ الرقمية كاحتراز حتى لا أقع كما غيري في مشكلات عدم نجاح المقارنات. بالطبع لا بد أن يكون نوع الحقل/الصندوق "تاريخ" وإلا سنضطر إلى استخدام دالة وسيطة وهي CDate قبل استخدام دالة CLng.

استخدام دالة CLng لتحويل التاريخ إلى رقم تسلسلي فيه احتراز أكبر: CLng(bToDate) = CLng(bFromDate)

أبو خليل غفل أن يحذف دالة Year

في خصائص صندوق النص بدل قيمة خاصية Reading Order إلى Right-To-Left

ما فهمته أن المشكلة تكمن في ظهور الشكل وهذا يمكن التغلب عليه باستخدام دالة التنسيق Format أما التوسع في المدى فيكنك التبديل بين: Long Integer Double

استخدم دالة Mod للحصول على فرق الشلنات = Mod(Total, 0.05)