AbuuAhmed

كالعادة لا أستطيع فتح قاعدة البيانات. في بالي فكرة جربوها ، أن يكون نموذج الفاتورة الرئيس "نموذجا فرعيا" لنموذج رئيسي آخر عبارة عن حاوية/فريم فقط. ففي النموذج الرئيس الجديد نقوم بالتحكم فيه ليلائم الشاشة وفي نموذج الفاتورة الذي أصبح نموذجا فرعيا نقوم بتوسيطه بناء على النموذج الأب/الرئيس الجديد.

عزيزي ، من المعضلات توضيح الواضحات 🙂 عملية التراجع ليست جديدة والتنبيه لها أعتقد قليل من يستخدمها ولكن وددت أن أنبه إلى أوامر "تخريب التراجع" إن صح التعبير ، فخلاصة الموضوع: يمكنكم التراجع بعد تجنب أوامر الحفظ مع ضرورة التنبيه قبل التراجع فقد تقومون بالتراجع في لحظة غفلة.

دائما ينصح بتنبه المستخدم عند حذف أي بيانات محفوظة لخطورة هذه العملية فبعد الحذف لا يمكن إعادة البيانات إلا بإدخالها مرة أخرى. وكذلك التراجع فهو يشبه عملية الحذف فقد يقوم المستخدم بإدخال أو تعديل بيانات ثم في غفلة يضغط على زر "هروب" ويفقد كل ما أدخله قبل حفظه ، لذلك أرى كذلك أن ينبه المستخدم بهذا الإجراء كما في عملية الحذف تماما. بالطبع لو كان السجل عبارة عن حقول قليلة وبيانات لا تؤثر في معلومة حسابية فعملية التراجع لا تشكل هاجسا ولكن في مثل هذا المثال المرفوع وهو لأحد أعضاء المنتدى حيث يحتوي السجل على 60 حقلا تقريبا وكلها عبارة عن أرقام تؤثر في المجاميع وفي العمليات المحاسبية فلا بد من التنبيه والتحذير حتى لا يضطر المستخدم من عملية الإدخال/التعبئة لستين حقلا من جديد. وطبعا التراجع عن الحفط هذه ميزة في الأكسس وللاستفادة منها لا بد من تجنب بعض الأوامر التي تقوم بحفظ السجل عند استعمالها في الأكواد وما يحضرني منها الآن: DoCmd.Save Me.Requery Me.Refresh Me.Recalc جربوا عملية التراجع باستخدام زر هروب Esc موفقين مثال_على_التنبيه_قبل_التراجع_01.accdb

Function UpdateMe() Dim DayNo As Byte, RowTotal As Integer Dim cDay As Control With Screen.ActiveControl If .ControlSource Like "Day*" Then DayNo = Mid(.ControlSource, 4) If DayNo >= 1 And DayNo <= 50 Then Set cDay = Me("Day" & DayNo) Me("Sum" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay For DayNo = 1 To 50 '------------------------------------------------ If Me("s" & DayNo) = Me("Sum" & DayNo) Then Me("D" & DayNo).Caption = DayNo Me("D" & DayNo).BackColor = RGB(255, 64, 61) Me("DDDD" & DayNo).BackColor = RGB(255, 64, 61) Me("Day" & DayNo).BackColor = RGB(255, 64, 61) Me("Sum" & DayNo).BackColor = RGB(255, 37, 92) Me("S" & DayNo).BackColor = RGB(255, 37, 92) Me("s" & DayNo).ForeColor = RGB(255, 255, 255) Me("D" & DayNo).ForeColor = RGB(255, 255, 255) Me("DDDD" & DayNo).ForeColor = RGB(255, 255, 255) Me("Day" & DayNo).ForeColor = RGB(255, 255, 255) Me("Sum" & DayNo).ForeColor = RGB(255, 255, 255) End If '------------------------------------------------ RowTotal = RowTotal + Nz(Me("Day" & DayNo), 0) Next DayNo Me.total = RowTotal Set cDay = Nothing End If End If End With End Function يفترض أن تعديلك يعمل بشكل صحيح بشرط أن أن قيمة Me("s" & DayNo) تكون صحيحة. في هذا الكود قمت باختصار هذا السطر If Me("s" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay Then فقط.

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

إذا لم تحيل @ابوخليل للمثال الذي عملت عليه أنا ليفهم الكود ووظيفته وحيثياته فالأمر سيكون بناء كود جديد على دمار كود سابق. ما عمله أبو خليل هو تدمير لما عملته أنا ، كما يرجى ملاحظة تجنب استخدام أي أمر يقوم بحفظ السجل الحالي مثل (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.