AbuuAhmed

سبحان الله ، هذا اللي يسمونه "تفاكر أوراد" 🙂

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

تم تصليح خطا في الأستعلام اليومي/الشراء حسب التاريخ في حقل تاريخ الفاتورة الآن النتائج اختلفت ، وقد قمت بإضافة سجلين وتغيير بعض سعر الشراء حتى تتضح الفروقات الآن يمكنك معرفة الفروقات بعرض بيانات الصنف RA15 123_02.accdb

وهذه مساهمة مني مع الإعتذار لزميلي. اضطررت لعمل متوسط يومي لتكرار عمليات الشراء اليومية لنفس الصنف. هناك ثلاث استعلامات خلاصتها في استعلام qryItemsCosts ويمكن استعراض البقية كل على حدة. 123_01.accdb

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

أعمل على إصلاح الخلل وقد قطعت شوطا طويلا فيه ...

بل هو بعينه ولكنك لم توفق في تقديم مثال يحتوي على كل الاحتمالات ، فمثالك لا يحتوي على أي درجة بها كسر مما يوحي أن كل الدرجات أرقام صحيحة وهذا عمل فرق مجموع الدرجات عند المعالجة. فلذلك تم التعديل في نوع متغير واحد فقط وتستطيع المقارنة بين المثال الأول وهذا المثال والتغيير كالتالي: من Sum As Integer إلى Sum As Double لها تقييمين أحدهما جيد أنك تواصل المحاولات والآخر سيئ أنك تطرح سؤالك وتشغل غيرك في إيجاد الحلول وهنا يجب عليك احترام أوقات الآخرين. وكان عليك المتابعة والتفاعل مع مقدم الحل وتجربة مثالك والرجوع إليه حالا لتخبره بالنتائج. أهنئك على ايجاد الحل "الصحيح" والإكتشاف العظيم. المثال المرفق تم فيه تغيير نوع مجموع الدرجات من رقم صحيح إلى رقم كسري وتم إضافة فحص الدرجات المدخلة حتى تكون في نطاق 0 و الدرجة القصوى وكذلك عمل تنسيق شرطي للخانات الخالية. موفق أخي. مشكلة_02.xlsm

عزيزي ، من له حيلة فليحتال 🙂 سبق إني كتبت أن الفيجوال به "تساهل" كبير ، فقد يعتبرها البعض عيوبا وقد يعتبرها آخرون ميزة ومرونة وسهولة للمبرمجين. أنت في استعمالك تجمع قيمة نصية مع قيمة Null ، منطقيا فيها تعارض ولن تمررها لك كثير من اللغات ، ولكنها حل بديل لدالة Nz. يبقى مسألة الفراغات السابقة واللاحقة للنص فإذا أردت التخلص منها فتحتاج إلى استعمال دالة Trim أما إذا أردت التعامل معا وإبقاءها كجزء من النص فما تقوم به فيه الكفاية. بالنسبة لي سأستعمل دالة IsBlank قي برامجي الخاصة ، ولكن في الأمثلة للمنتدى فربما لا حتى لا أضطر أن أحمل معي موديول الأدوات.

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

سأعمل عليه الليلة إن شاء الله.

@ابوخليل أولى بمثاله 🙂 ، إذا تعذر الحل سأتدخل.

مبروك للعراقيين وهارد لك للعمانيين العراقيون كانوا يحتاجون هذا الفوز ليخفف عنهم قليلا من مصائبهم وأحزانهم. هذه المبارة أكدت لي أن العمانيين شديدو العناد.

لقد قمت باختبار الدالة بشكل مكثف ولم تخفق في كل محاولاتي ، وهي دالة أوصي بها بشدة وخصوصا أنها تحمي "الجميع الخبراء قبل المبتدئين" ولا تحتاج لمستخدمها من التعمق في معرفة كل أنواع دوال الفحص ودهاليزها. لقد قمت بإضافتها إلى موديول أدواتي لبرامجي وهي الثانية على ما أتذكر بعد إجراء mySendKeys. فقط ملاحظة واحدة، في الدالة تم استخدام دالة LenB بدلا من Len ولم أعرف هدف المبرمج فالأولى تعد الحروف والثانية تعد مساحة تخزينها بالبايت!.

كتبت رد قبل هذا على أساس أن الدالة التي أتيبت بها Built-in function ، لذلك رأيت أن ردي أبدا غير مناسب 🙂 الدالة فكرتها ذكية وتختصر كتابة دوال الفحص ، ولكن لم أقم بتجربتها حتى الآن ، والإسم مشابه لدالة الإكسل حتى أني اعتقدت أنها تابعة لنسخة vba التابعة للإكسل. الليلة إن شاء الله أقوم بتجربتها وأرجع لكم.

كنت سأعدل على هذه المشاركة وبالخطأ أنشأت مشاركة جديدة

من الجيد الاحتراز بفحص المدخلات والمتغيرات ولكن نحتاج أن نوظفها التوظيف الصحيح وأن نختصرها أحيانا لتقليل كتابتها في الإجراءات والدوال. فمثلا يمكن اختصار فحص الحقول/الصناديق التي قد تحتوي على قيمة Null كالتالي: من: IsNull([txtBox]) Or [txtBox] = "" Or Len([txtBox]) = 0 إلى: Trim(Nz([txtBox],"")) = "" أما استخدام Empty و Missing فتحتاج إلى عناية أكبر في معرفتها ومتى استخدامها، وهنا إجراء لفحص هذين النوعين كالتالي: Sub EmptyAndMissing(A As Byte, Optional D As String, Optional E As Variant) Dim B, C 'B not used C = 5 Debug.Print "IsEmpty", IsEmpty(B), IsEmpty(C), IsEmpty(D), IsEmpty(E) Debug.Print "IsMissing", IsMissing(B), IsMissing(C), IsMissing(D), IsMissing(E) Debug.Print "-------------------------------------------------------------" End Sub وهذا اجراء لمناداة الإجراء أعلاه: Sub EmptyAndMissingTest() Debug.Print , "B", "C", "D(Op)", "E(Op)" Debug.Print "-------------------------------------------------------------" Debug.Print "EmptyAndMissing(5):" Call EmptyAndMissing(5) Debug.Print "EmptyAndMissing(5, '5'):" Call EmptyAndMissing(5, "5") Debug.Print "EmptyAndMissing(5, , 5):" Call EmptyAndMissing(5, , 5) End Sub وهذه نتائج الاختبار: B C D(Op) E(Op) ------------------------------------------------------------- EmptyAndMissing(5): IsEmpty True False False False IsMissing False False False True ------------------------------------------------------------- EmptyAndMissing(5, '5'): IsEmpty True False False False IsMissing False False False True ------------------------------------------------------------- EmptyAndMissing(5, , 5): IsEmpty True False False False IsMissing False False False False ------------------------------------------------------------- موفقين.

فيه أمور غير واضحة .. - هل الصفحة تحتوي جدولا واحدا فقط؟ - هل الجدول به 4 أسطر الأول لوحده والثلاثة الأخرى لوحدها بمعنى نتيجتين لأربعة أسطر؟. - هل موقع الجدول ثابت في الصفحة؟.

وهذه مساهمة أخرى من موقع أوفيسنا ميزته إضافة أي نماذج فرعية وسيتعامل معها تلقائيا. (لم أجرب).

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

هذا موضوع به مقارنة عبارة If مع عبارة switch في لغة C وهو نفس التعبير في بعض اللغات مثل Case/which/when اللغة التي كنت استخدمها تسلك نفس سلوك لغة سي. في الرد الأول فكرة الوصول السريع والقفز مباشرة للقيمة المطلوبة. .net - Is there any significant difference between using if/else and switch-case in C#? - Stack Overflow

عملت دراسة لسلوك If و Case وظهر لي أن الإثنين يقومان باختبار/فحص القيم/الخيارات من البداية حتى القيمة المطلوبة. وهذه أول مرة أختبر فيها هذا الأمر في الـ vba ولكن كنت قد عملت هذه التجربة في لغة أخرى قديمة وكانت كما قلت لكم سابقا أن استخدام Case كان لا يعمل فحص من البداية بل يذهب مباشرة للقيمة المطلوبة. للإختبار لا تغطوا Run بل استخدموا زر F8 واستمروا بالضغط المتقطع حتى النهاية. If_and_Case_01.accdb

أنا أقصد عبارة if وليس دالة IIF هذه مشكلة البعض 🙂 من غير الخبراء/المحترفين ولكن من يعلم التعامل معهما سوف يستعمل Resume Next أكثر فأكثر الأحيان لا يهم نوع الخطأ كثر ما يهم أن هناك خطأ أو لا وفي حالة معرفة التفاصيل وعمل معالجة لها وإعطاء رسائل بها فبالتأكيد يفضل استخدام GoTo. مع أن Resume Next تستطيع القيام بهذه المهمة أحيانا.

أنا ضد المفاضلة بين: On Error Resume Next و On Error GoTo وضد المفاضلة بين: If و Select Case فكثير من الأحيان يمكننا الخيار بينهم ولكن كثرة الممارسة سوف نكشف لنا أحيانا أننا مجبرين على اختيار محدد. كما أن اخنيار أحد الخيارين لا يدل على الخبرة ولا الاحتراف. احترم رأيكم وهذا رأيي المستقل وهو غير ملزم لأحد. تذكرت أن هناك فرق السرعة لصالح Select Case عند تعدد القيم (من نوع واحد) وكثرة الأحتمالات حيث لا يتم اختبار القيم السابقة بل يكون الاختيار للقيمة المطلوبة مباشرة بعكس الـ If فهي ستعمل اختبارات للخيارات التي تسبق القيمة المطلوبة وربما للقيم جميعها (تحتاج إلى دراسة).

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

ملفين لإنهاء مهمة مايكروسفت أكسس Kill_msAccess.mdb Kill_msAccess.xlsm