kha9009lid

اخي الفاضل احمد يوسف سلمه الله الشكر والفضل والمنه لله سبحانه ولا اريد سوى دعوه في ظهر الغيب قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : ( مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ : جَزَاكَ اللَّهُ خَيْرًا فَقَدْ أَبْلَغَ فِي الثَّنَاءِ ) تقبل تحياتي وتقديري لشخصك الكريم

هل هذا المطلوب استعلام تحديث لاعمدة القائمة المنسدلة.accdb

جرب المرفق HCT Permit To Work System V.02 - Update _Normal + Red Zon - Copy.rar

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

جرب المرفق New Microsoft Access Database.accdb

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

باذن الله تعالى

اخي واستاذي حسين اشكرك على مجاملتك الرقيقة ومشاعرك الطيبة

الشكر لله اخي الفاضل بخصوص الطلب الاخير او لو الاخيرة باذن الله تعالي ولكني مرهق جدا فاعتذر مقدما لو تأخرت في تقديم يد العون

اهلا وسهلا استاذي ابو بسملة الحقيقة الطريقة التي استخدمها تختلف قليلا عن هذه الطريق وان كانت تشترك معها في استخدام اكواد او وسوم xml الطريقة متعبة وتحتاج الى معرفة بهذة الوسوم او على الاقل المعرفة بلغة ترميز النصوص المتشعبة html الخاصة ببناء صفحات الانترنت لوجود تشابه بينهما طريقتي باختصار كتابة الوسوم ووضع id لكل امر اما طريقة تنفيذ الامر فعن طريق وحدة نمطية مع ان النتيجة رائعة الا ان الطريقة متعبة جدا وسوف احاول بعون الله ان اضع موضوع يشرح الطريقة واعتذر اذاكان الرد غير مفيد واستعير عبارة جميلة لاخي واستاذي الفاضل @essam rabea "انا راجل عجوز" فانا فعلا رجل عحوز والشروحات مرهقة جدا

لمراعاه كافة الاحتمالات لكون معيار التاريخ يتأثر بطريقة الكتابة واسلوب التاريخ في النظام بالتوفيق اخي ليث والشكر لله سبحانه

جرب المثال المرفق ربما يساعدك Database79.accdb

تم انهاء المشكلة ان شاء الله حينها نعود للمربع الاول فيكون كتابة اسم التقرير ومكان الحفظ عن طريق المستخدم ولا داعي لكل ما عملناه 😂 aa (1).accdb

دكتور حلبي الفاضل وانا اكثر سعادة بمشاركتكم اخي الكريم

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

لو حرف امتناع لامنتناع ويستخدم كذلك كحرف مصدري بمعنى ان وكذلك للتمني وايضا للتقليل وللنفي ويستخدم للدعاء وللحض والامر وللتعميم والدلالة على المستقبل على العموم جرب المرفق لعله ينهي لو 😉 aa.accdb

اهلا استاذ حسين نور الموقع بوجودك

اعتذر منك اخي فعلا كان هناك مشكلة مع الارقام المتشابهه حزئيا جرب الان واخبرني aa.accdb

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

الفلترة بناء استعلام بمعيار مبني على القائمة المنسدلة comUnits وهذة القائمة تستمد قيمتها من خلال استعلام مبني على الجدول tblUnits فلو كان الجدول يحتوي على 3 وحدات تكون خيارات الفلترة لثلاث وحدات ولو كان الجدول يحتوي على 1000 وحدة تكون خيارات الفلترة 1000 وهكذا تحياتي

اضفت وحدات جديدة ولم اواجه اي مشكله ايضا غيرت صيغة ملف اكسيل لان الكود السابق احيانا يرفض الفتح جرب الملف المرفق علما بان الفلترة لا علاقة لها بعدد الوحدات 3 او 100 او 1000 Database3 (2).accdb

هل جربت اضافة وحدات ?

نعم ممكن في الملف المرفق عملنا مربع نص مخفي اسميتة tx8 وجعلنا قيمته الافتراضية تساوي اسم التقرير ="rptEmploee" وفي حدث عند التحديث للقائمة الخاصة بالفلترة اضفنا الامر التالي Me.tx8 = Me.comUnits.Column(1) في حدث عند النقر لزر حفظ بي دي اف اضفنا الامر Dim x As String x = Me.tx8 DoCmd.OutputTo acOutputReport, "rptEmploee", acFormatPDF, CurrentProject.Path & "\" & x & ".PDF", False وفي حدث لزر الامر الخاص بالاكسل اضفنا الامر Dim x As String x = Me.tx8 & ".xlsx" DoCmd.OutputTo acOutputReport, "rptEmploee", acFormatXLS, CurrentProject.Path & "\" & x, False الملفات تحفظ في نفس المجلد الخاص بقاعدة البيانات التصدير لاكسل قد يتطلب الدخول على محرر الاكواد والتاشير كما هو موضح في الصورة Database3 (2).accdb

بعد اذن اخي دكتور محمد حلبي جرب المرفق Database3 (1).accdb

اذا لم ترغب في وحدة نمطية واذا كنت ترغب في اختصار مربعات النص ممكن عملها في مربع نص واحد بدلا من عملنا السابق 3 مربعات وبدلا من الوحدة نستخدم دالة format DSum("[debit]-[credit]";"daily";"[date]<" & Format([Date];"\#mm\/dd\/yyyy\#") & "And [code]='" & [code] & "'")