كل الانشطه

المرفق الاخير يقوم بذلك 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 كما تقدم فى الشرح السابق سبب استخدام تسميات مختلفى لنفس الجدول

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

تحديث المرفق التحديث الجديد يحتوى على عدم الاعتماد على وسيط بانشاء ملف فى مسار محدد لتمرير اومر الاعدادات ثم حذفه بعد تمرريرها وتطبيقها وتم ذلك فى الداله : LoadInstalledKeyboards فى النموذج : frmLanguageFormatSetting ملاحظة هامة احيانا يتم اضافة تخطيط لغات بشكل وهمى لاعدادت الويندوز فى شريط المهام بجوار الساعه فقط عند فتح احد قواعد البيانات من خلال فتح النموذج : frmLanguageFormatSetting قم باختيار نفس التخطيط للبلد وعدد المفاتيح الذى تم اضافته فى تخطيط لغات لوحات المفاتيح فى شريط المهام من خلال مربع التحرير والسرد الخاص بـ اختيار : لغة اعداد النظام ومن خلال مربع التحرير والسرد الخاص بـ نوع لوحة المفاتيح وطبعا لا تنسي اختيار تنسيق الوقت والتاريخ الى ترغب به ثم قم بعمل تحديث الاعدادات سوف تظهر تخطيطات كل اللغات المستخدمه للوحات المفاتيح فى الجهة اليسرى من النموذج داخل مربع قائمة القيم اختر اللغة التى تريد حذف التخطيط الخاص بها بها وتأكد من عدم اختيار اكثر من تخطيط لانه معد لاختيار متعدد ثم بعد ذلك قم بالضغط على زر الامر " حذف التخطيط ولغة لوحة المفاتيح " لتنهى مشكله تعدد تخطيطات لغات المفاتيح لاكثر من لغة بدون اعادة تشغيل نظام التشغيل LanguageCheck V3.0.2.zip