AbuuAhmed

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

في هذه الدراسة كيفية التعامل الصحيح مع المدد بين تاريخين آمل أن تكون مفيدة. PeriodsDiff_04.xlsx

لن يخرج الجواب عن مشاركتي السابقة أو مشاركتي هذه بعد إنقاص يوم واحد. PeriodsDiff_03.xlsx

سبقني الأستاذ محمد هشام ولكني للتو رأيت مشاركته. PeriodsDiff_02.xlsx

- كما يبدو أن النموذج لا يحتوي على نموذج فرعي، هل هذا صحيح؟ - إذا برنامجك يحتوي على نظام مستخدمين وصلاحيات فمن أين تمرر هذه الصلاحيات عند فتح النموذج؟

جرب هذا الحل: استخدام حدث عند الفتح للنماذج Private Sub Form_Open(Cancel As Integer) If Me.RecordsetClone.RecordCount = 0 Then Me.AllowAdditions = True End If End Sub

هل نتائج مجموع الإجازات سليمة؟ *بدون أكواد* Vacations_04.xlsx

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

البحث عن المدينة يعمل

هذا للأجل التعليم، فكرة باستخدام خاصية Tag للصناديق بكتابة حرف العمود لصفحة الإكسل وهي تقلل من أخطاء أرقام الأعمدة. فقط أحببت تقديم هذه الفكرة لا غير، والتكملة لكم. ملاحظة: أتمنى من يرفع ملف جديد بتغيير رقم الملف مثلما أنا أفعل بزيادة رقم مع كل مرة. كروت_04.xlsb

أخي أنا لم أكتب الأكواد، والطلب كان يخص البحث فقط، وما قمت به فقط تنظيم لإجراء البحث فقط. عموما الآن انتبهت أنك تريد البحث في العمود الثاني وليس الأول. بدل هذا السطر: SearchCol = IIf(IsNumeric(TextBox22), 1, 11) بهذا السطر: SearchCol = IIf(IsNumeric(TextBox22), 2, 11) وأعتذر عن المواصلة.

محاولة أخرى يمكنك الآن البحث في حقلي الرقم والمدينة. كروت_03.xlsb

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

لو كان فهمي صحيحا، ضع هذا المعادلة في الخالية B2: =D2-MOD(WEEKDAY(D2),7)

جيدة، أوافق.