ابوخليل

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

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

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

طيب اخي جرب هذا المثال وجدته ضمن الملفات المحفوظة عندي علما اني جربته على جهازين : 1024/867 1842/1048 والنتيجة ممتازة جدا انا اتوقع 80% من المشاركات السابقة والامثلة فيها تعمل بشكل صحيح فقط يجب عدم استخدام DoCmd.Maximize لأن المشكلة فيها جميعا من هذا الجانب ضبط النموذج على الشاشة.rar

عن نفسي جربت الكثير من الدوال اكتشفت عند نقلها الى جهاز آخر تحدث بعض المشكلات الغير منطقية احيانا رأيي ان ترفق نموذجا وتضع فيه بعض الأزرار ... يفتح على كامل الشاشة وترفق صورة : يظهر النموذج مفتوح على كامل الشاشة بدون اكواد كما تحب ان يظهر لأني حين افتحه عندي سيختلف مما هو عندك اتمنى انك فهمتني : هنا اخوانك سيحاولون التطبيق خاصة لمن لديهم اكثر من جهاز والضبط اعتقد سيختلف من دقة صغيرة الى كبيرة أو العكس ( وهنا مربط الفرس .. وأصل المشكلات الحاصلة) ) بالنسبة لي عندي شاشتين على جهازين مختلفي الدقة والشاشات.. واحدة 32 بوصة وهي التي اعمل عليها والاخرى صغيرة كالمعتاد 18 بوصة

هذا يعني انه يجب فصل المكملين في الترم الثاني باستعلام يخصهم والتقرير مبني على جدول الاسماء مع بقية الجداول لذا لزاما تغيير جدول الاسماء باستعلام اسماء المكملين يعني تحتاج تعمل تقرير آخر يخص جداول الدور الثاني مع اني ضد فكرة تكرار الادوات .. الا اني عملت لك ضد منهجي على عجل حاجة يمكن تطلع عليها الى ان يتسنى لي اتفرغ وارى اذا يمكن الدمج جرب على الصف الرابع ... على فكرة : التقرير لا ينظر الى الفصل الدراسي او الفئة .. فقط الصف Data127.rar

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

السلام عليكم الصورة أمامكم هي الجدول الوحيد في المرفق اريد التأشير على مربع الخيار (تجديد) كما يلي : يظهر في الصورة معرفات وتواريخ في سجلات المعرف 1 تواريخ ثلاثة اريد الابقاء على سجل واحد فقط بدون تأشير وهو التاريخ الأكبر ( ويتم التأشير امام السجلين الآخرين ) ومثله في سجلات المعرف 2 والمعرف 6 اما المعرفات 3 ، 4 ، 5 فتبقى كما هي بدون تأشير لأنها سجلات وحيدة احبتي .. افضل التحديث عبر استعلام .. ولا بأس بغيره testData.accdb

الف شكر ابا جودي .. حفظك الله ورعاك

اللي يدخل مع مبرمجين في : ( لو ) و ( إذا ) حيودوه في ستين سكة .. الله يعينه 🤣 صحيح انتم شعبتوها .. سكك وطرق المسألة كلها سجلات ثابتة كل سجل له آي دي خاص ثابت ثبات الى الممات هذه السجلات غير قابلة للحذف .. صباح / مساء / دوام كامل / دوام خاص المتغير فيها هو حقول الوقت فقط .. فيمكن تغيير وقت الدخول او الخروج حسب الحاجة ، وبناء عليه سيتغير عدد الساعات هذا كل شي .

ما رأيكم بهذه الحيلة على اعتبار ان النموذج تحكم ومعرفات السجلات لن تتغير ابدا .. ولو تم اضافة سجلات جديدة كفترات اضافية لا مشكلة .. Dim i, ii As Date Me.Recordset.FindFirst "id =2 " i = countWorkHours Me.Recordset.FindFirst "id =3 " ii = countWorkHours Me.Recordset.FindFirst "id =1 " countWorkHours = i + ii Database2.rar

ولكن جميع القيم النصية لا تشتمل على هذه الارقام .... لم افهم

شكرا على الاضافة الجميلة ماذا يعني الرقمين هنا ftraName IN ('1','2')

الشكر مقدما لكما فجزاكما الله خيرا اعتمدتما على اسم الفترة .. ولكن معرف الفترة اثبت .. لأن الفترة قد يتم تعديلها مثلا من الفترة الصباحية الى كلمة الصباح فقط ... ما علينا لا مشكلة يمكن التعديل .. ولكني افكر بسطر واحد فقط !! يقوم بالمهمة .. هل يمكن سطر واحد استعلام Update ان يحقق المطلوب ؟ افكر بصوت مكتوب فقط

كما تشاهد في الصورة : الحقل الأول الأعلى فارغ .. الخاص بالفترتين ... لأن السجل مجرد مسمى ليس امامه وقت دخول ولا خروج اريد ان يتم ادراج قيمة في هذا الحقل هذه القيمة = مجموع ساعات العمل : المسائية + الصباحية بحيث تصبح القيمة= 09:40

السلام عليكم كما في الصورة والملف المرفقين اريد عند الضغط على زر الحفظ .. يتم ادراج مجموع ساعات العمل في الفترة الصباحية والفترة المسائية تدرج في الفترتين (صباحي/مسائي) Database1.rar

بارك الله فيكم نعم الحقل نصي تاريخ ام القرى كامل لذا ذهبت الى عد الحروف .. ولظهور بعض الأخطاء طرحت سؤالي هنا . وتحويل النص الى تاريخ فكرة جيدة . وكنت اتحاشاها لوجود تعارض بين الهجري والميلادي في يوم او يومين من كل سنة ولهذا اشرت الى CDate(varDateTime)

جزيت خيرا اخي ناقل .. السطر يتحدث عن نفسه .. سوف اجربه انا حريص على عدم وجود ثغرات .. خاصة وان التاريخ عرضة للتغير بسبب تنسيقات وندوز ... عربي /انجليزي /ونظام 12 و 24 لذا اعتقد ان كلمة السر في كود ابي جودي هي هذا السطر : dtmTime = CDate(varDateTime)

تمام باشمهندس .. جربتها الآن تعمل 100% الف شكر .. على الخدمات السريعة ما بين نشري للسؤال وحصولي على الاجابة 5 دقائق فقط دمت ذخرا لإخوانك ولمرتادي هذا المنتدى .. وكتب لك الأجر

اهلا ابا جودي اصغر من 12 = الصباح الساعة الآن 11:05 هل نحن في الصباح ؟

السلام عليكم انا استخدم هذا السطر لاستخراج كلمة الصباح ... ومثله للمساء من التاريخ الكامل مراعيا تنسيقات المستخدم للتاريخ ان كان عربي او غيره IIf(Mid([chekin];20;1)="م" Or Mid([chekin];20;2)="PM";"المساء";IIf(Mid([chekin];20;1)="ص" Or Mid([chekin];20;2)="AM";"الصباح";"")) ولكن احيانا يختلف عدد حروف التاريخ بناء على الساعات اليومية هل من طريقة احكم واضبط استخدمها في الاستعلام ؟ اعني هل هناك دالة تتعرف على الوقت هل هو صباح ام مساء بمجرد تمرير التاريخ اليها ؟

اقصد انها زائدة لا داعي لها حتى شرح الدالة هنا ادناه .. لا يوجد ما يفيد بوجود شرط يتبعها .. الشرط اختياري يكون في اول الدالة لتحديد مكان الحرف او الرقم المطلوب في الجملة فمنطقيا هي true عند وجود المطلوب و false عند عدمه ... وحسب طلب مثل طلبي ( يعتمد على علامة السالب.. وهي وحيدة دوما) .. لسنا بحاجة لمعرفة مكان الحرف الحمد .. سؤال بسيط .. كنت متوقع اجابة واحدة فقط ... انظروا كم من من الفؤائد المحصلة الف شكرا لكم اخوتي واحبتي على هذا التفاعل الايجابي .. جعله الله في موازين اعمالكم ، وغفر لنا ولكم ووالدينا ووالديكم .

ما رأيكم نشيل الصفر او القيمة المنطقية اي نحذف الجملة <>0 .. ونرتاح

ليه بس كذا .. 😔 الكود وحسب الشروحات اعلاه .. يقول .. ابحث .. يا موجود .. يا لا اذا موجود لبسه البشت

يا سلام شرح وافي وكافي اعذروني . كنت اعرف InStr زمان قبل ما تكبر وتعجز 🙃 يعني يصلح اكتب False بدلا من الصفر ؟ صح ؟ بحيث تصبح : InStr([FieldName],"-")<>False