AbuuAhmed

عملت دراسة لسلوك 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

من أي برنامج يستخدم vba الليلة أعمل لك مثالين واحد بالأكسس وآخر بالاكسل.

لم أنتبه أن المنادة مطلوبة من الرئيسي 🙂

مساهمة أخرى (من حفظي) rs.FindFirst "[bookname] = '" & Me.Parent.Form.stry & "'"

عظم الله أجوركم وأحسن عزاكم، ورحم متوفاكم.

ارفع مثال.

يمكنك الكتابة في الخلايا من A إلى D وما يهمك. وكلم مديرك يوظفني 🙂 برمجة حساب راتب_03.xlsm

بدل 30 إلى 180

لم أنزل مثالك 🙂 بس أعتقد أن تنسيق General Number تحل مشكلتك.

وهنا تم إضافة ثلاثة استعلامات ConditionalFormat_02.accdb

تطبيق التنسيق الشرطي وباستخدام نفس أسماء الصناديق لديك ConditionalFormat_01.accdb

وهذه طريقة أخرى، فبدل الإخفاء والاضطرار إلى إعادة تحجيم أو محاذاة الحقول تظل الحقول في مواقعها ولكن بدون بيانات. HideFieldsInReport_02.accdb

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

ممكن تسهلها على نفسك وتصمم تقريرين أحدهما يحتوي على الحقل المعين وآخر بدونه.

ثم ماذا؟ ، أنا عملت خطواتك ولم تفتح مع الأكواد!!

ارفع مثالك وريح بالك

هذه إحدى الطرق: مثال 48_02.accdb

سامحني ، هذه آخر مشاركة لي في موضوعك. موفقين. جدول الرواتب_05.accdb

أسماء الحقول في مثالك السابق أفضل عموما تمت المعالجة جدول الرواتب_03.accdb

جرب المثال جدول الرواتب_02.accdb

تم التعديل موفقين. حساب المدد_07.xlsb