كل الانشطه

مشكور اخي ابو حودي حفظك الله ورعاك عبقري

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

المرفق الاخير يقوم بذلك test_05.mdb

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

شكرا جزيلا أخي الفاضل وبارك الله فيك وأعطالك الصحة والعافية علي كرمك وتعبك معي

شكرا جزيلا أخي الفاضل وبارك الله فيك وفي أستاذنا والأب ذو الخلق الكريم والقلب الطيب استاذنا ومعلمنا ( أبو خليل )

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

للتوضيح اكثر اذا كان تاريخ الفاتورة 01/03/2025 أي تاريخ موجود قبل تاريخ 01/03/2025 لمدة 03اشهر أقل منه او يساويه يخرجه الاستعلام مثل 01/03/2025 10/02/2025 أي في مجال من 01/12/2024الى غابة 01/03/2025

صح لكن الصورة للتوضيح استاذ

يعمل معي على ويندوز 10 ...اوفيس 2013

قم بفتح قاعدة بيانات جديدة ، اعمل استيراد لجميع مكونات قاعدة البيانات التي لا تعمل ( جداول واستعلامات ونماذج ... الخ ) . ومن المهم ان تتأكد من المكتبات في محرر أكواد VBA .

ارغب في تصميم برنامج علي الويب سيت

اللهم بحق قولك الحق (وإذا مرضت فهو يشفين) اللهم إشفه شفاء لا يغادر سقما بحولك وقدرتك رب العالمين

عملت اعدادات وبرده مش عوز يفتح ممكن حد يسعدني ارجو المساعده

الصورة دى مش من المرفق الاخيـــر صح ؟

اخي اسمحلي اتعبتك معي نفس ناريح صحيحة لكن ادا كان نفس التاريح وناريخ قبله في المدة 03 اشهر معا

استخدم الجملة دى افضل مع عدد السجلات الضخمه تكون اسرع نظرا لعدم وجود استعلامات فرعيه SELECT t1.* FROM test AS t1 INNER JOIN ( SELECT [رقم الزبون], [إسم المادة], [حجم المادة] FROM test GROUP BY [رقم الزبون], [إسم المادة], [حجم المادة] HAVING COUNT(*) > 1 AND MAX([تاريخ الفاتورة]) >= DateAdd("m", -3, MIN([تاريخ الفاتورة])) ) AS t2 ON t1.[رقم الزبون] = t2.[رقم الزبون] AND t1.[إسم المادة] = t2.[إسم المادة] AND t1.[حجم المادة] = t2.[حجم المادة]; روح لـ Create > Query Design في SQL View الصق الكود أعلاه المرفق test_05.mdb

اتفضل test_04.mdb

ان شاء الله استاذي الكريم اكن في الموعد

ظهرت لي هذه االرسالة

استخدم الكود التالى كجملة استعلام عن طريق Count ولا تزعل نفسك يا سيدى انت تأمر SELECT t1.* FROM test AS t1 WHERE ((((SELECT Count(*) FROM test AS t2 WHERE t2.[رقم الزبون] = t1.[رقم الزبون] AND t2.[إسم المادة] = t1.[إسم المادة] AND t2.[حجم المادة] = t1.[حجم المادة] AND DateValue(t2.[تاريخ الفاتورة]) >= DateAdd("m", -3, DateValue(t1.[تاريخ الفاتورة])) AND DateValue(t2.[تاريخ الفاتورة]) <= DateValue(t1.[تاريخ الفاتورة]) ))>1));

ادا كان نفس ناريخ الفاتورة والشرtest_03.mdbوط محققة لا تخرج اي نتيجة

لا افهم ماذا تريد تحديدا هل السؤال : الاجابه لا جديد ولا تعديل على الكود فالسطر : AND t2.[تاريخ الفاتورة] >= DateAdd("m", -3, t1.[تاريخ الفاتورة]); يحتوى على >= ولو كان هذا سؤال أخر منفصل بذاته عن موضوع تكرار تاريخ الفاتورة مرتين نفس اليوم نعم هو تماما كما قمت أنت الان بإضافة شرط حجم المادة الى الشروط ولكن النتيجه التى سوف تحصل عليها من الاستعلام هى التى يتوافر فيها كل هذه الشروط مجتمعين معا لذلك تأكد من الشروط بشكل صحيح بتمعن وتأن شديدين فسوف يتم الفرز والتصفيه للبيانات بعد توافر كل هذه الشروط مجتمعين معا طيب اذا كان التاريخ متضمنا وقت لنتلافى ههذ المشكلة تكون جملة الاستعلام بالشكل التالى من خلال : DateValue SELECT t1.* FROM test AS t1 WHERE EXISTS ( SELECT 1 FROM test AS t2 WHERE t2.[رقم الزبون] = t1.[رقم الزبون] AND t2.[إسم المادة] = t1.[إسم المادة] AND DateValue(t2.[تاريخ الفاتورة]) >= DateAdd("m", -3, DateValue(t1.[تاريخ الفاتورة])) AND DateValue(t2.[تاريخ الفاتورة]) <= DateValue(t1.[تاريخ الفاتورة]) AND t2.[تاريخ الفاتورة] <> t1.[تاريخ الفاتورة] );

مشكور اخي إدا كان تاريخ الفاتورة مكرر مرتين نفس اليوم وادا اردت اضافة شرط اخر هل اكتب هكذا SELECT 1 FROM test AS t2 WHERE t2.[رقم الزبون] = t1.[رقم الزبون] AND t2.[إسم المادة] = t1.[إسم المادة] AND t2.[حجم المادة] = t1.[حجم المادة] AND t2.[تاريخ الفاتورة] < t1.[تاريخ الفاتورة] AND t2.[تاريخ الفاتورة] >= DateAdd("m", -3, t1.[تاريخ الفاتورة]);

هذا استعلام مركب الاستعلام الاساسى الذى يمثل الجدول ككل هو : وتتم عملية التسمية المؤقته كما شرحتها لك سابقا من خلال : AS t1 SELECT t1.*FROM test AS t1 ; واضفت بداخله ستعلام فرعى وبه جمله شرطيه SELECT 1 FROM test AS t2 WHERE t2.[رقم الزبون] = t1.[رقم الزبون] AND t2.[إسم المادة] = t1.[إسم المادة] AND t2.[تاريخ الفاتورة] < t1.[تاريخ الفاتورة] AND t2.[تاريخ الفاتورة] >= DateAdd("m", -3, t1.[تاريخ الفاتورة]); وطبعا فى الاستعلام الغرعى والخاص بجملة الشرط استخدمت التسمية المؤقته : AS t2 كما تقدم فى الشرح السابق سبب استخدام تسميات مختلفى لنفس الجدول