منتصر الانسي

لو رجعنا لتعليمات مايكروسوفت بخصوص الامر DoCmd.PrintOut على هذا الرابط سنجد أن صيغة هذا الأمر هي كالتالي DoCmd.PrintOut (PrintRange, PageFrom, PageTo, PrintQuality, Copies, CollateCopies) نلاحظ أنه يحتوي على المعلمة (Copies) والتي نحدد فيها عدد النسخ ولكن مع الأسف لا تعمل بشكل صحيح ولا ادري إذا ما كانت هذه المشكلة مرتبطة بنسخة الاوفيس لدي أم انها مشكلة عامة حبيت اوضح هذه النقطة لتجربتها فإذا عملت لديكم كان بها وإلا فإن طريقة الاخ @Foksh قامت بمعالجة المشكلة تحياتي

انا طريقتي تختلف عن الاخوان حيث قمت بإظهار الجدول نفسه كما بالصورة وللقيام بذلك قم بتنفيذ الخطوات كالتالي 1- إنسخ الملف تحت القرص D مباشرة (يمكن نسخه إلى أي مكان ولكن هكذا سيكون المسار قصير) 2- إفتح الملف وقم بإنشاء الاستعلام التالي (هذه الخطوة غير مهمة لكم لإني سبق واستخرجت قيمة العمود المطلوب ووضعتها في الكود ولكني ذكرتها للتعرف على الخطوات) SELECT MSysObjects.Flags, MSysObjects.Name, MSysObjects.Type FROM MSysObjects WHERE ( ((MSysObjects.Name) NOT LIKE "MSys*") AND ((MSysObjects.Type) = 1) ); من خلال هذا الاستعلام سنتعرف على أي جدول Type=1 ولايبدأ بالأحرف MSys لتظهر لنا النتيجة كما بالصورة مايهمنا هنا هي قيمة العمود الأول Flags بعد ذلك قم بإغلاق التطبيق بدون حفظ اي شيء 3- إفتح أي قاعدة بيانات أخرى (سواء قاعدة بيانات فارغة أو مستخدمة لايهم) وفي أي وحدة نمطية (جديدة أو فيها اكواد لايهم) والصق فيها الإجراء التالي Sub sbUnHideTables() Dim app As Access.Application Dim wks As Workspace Dim db As dao.Database Dim rst As dao.Recordset Dim tdf As TableDef Set app = New Access.Application Set wks = app.DBEngine(0) 'الإصدار 64 Set db = wks.OpenDatabase("D:\HideTBL V1-64.accde") 'مسار الملف 'الإصدار 32 'Set db = wks.OpenDatabase("D:\HideTBL V1-32.accde") 'مسار الملف For Each tdf In db.TableDefs If tdf.Attributes = -2147483645 Then tdf.Attributes = 0 'تغيير قيمة العمود Flags Next tdf Set db = Nothing End Sub 4- انقر الزر F5 لتشغيل الإجراء حيث سيقوم بتغيير قيمة العمود Flags إلى القيمة صفر 5- اغلق قاعدة البيانات التي قمنا بتنفيذ الكود فيها (حفظ الكود من عدمه راجع لك) 6- الان إذهب إلى القرص D وقم بفتح الملف (HideTBL V1-64.accde او HideTBL V1-32.accde وفقاً لإصدار أوفيس لديك) لتجد أن الجدول قد ظهر في جزء التنقل تحياتي

بعد التفكير في سؤالك اخي @Moosak أعتقد أنه بالإمكان الحصول على نفس النتيجة بطريقة غير مباشرة فإذا ماجعلنا خلفية مربعات التسمية ومربعات النص شفافة وبسطرين برمجيين لزر الأمر يمكننا الحصول على نفس النتيجة كما بالصورة فهل هذا هو ماكنت تقصده في سؤالك ؟

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

هذا غير ممكن لأن ما تفعله الأداة هو إنشاء صورة وهمية وتعيينها كقيمة لخاصية الصورة Picture الخاصة بالنموذج

مرفق لك المثال بعد استخدام ماكرو البيانات جرب تعديل حقلSlabs الي في جدول Receiving_Bundle وشاهد كيف ستتغير قيمة الحقل Slabs_in_Bundle في جدول SAW حيث يقوم ماكرو البيانات بما يشبه الـ Trigger في انظمة قواعد البيانات الكبيرة مثل Sql Server و Oracle وغيرها ولكن المشكلة الوحيدة هي ان هذا النوع من الماكرو لن يعمل الا مع اكسس 2010 ومابعده (صراحة غير متأكد من انه يعمل مع اكسس 2007) والاكيد انه لن يعمل مع ماقبل 2007 تحياتي Database.accdb

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

بعد اطلاعي على مرفقات الاخ @ابوخليل والاخ @kkhalifa1960 لاحظت أنكم إعتدمتم على النموذج للقيام بالتحديث ولكن ماذا لو تم الادخال عن طريق الجدول سيحدث خلل وهذا من احد اهم الاسباب التي تجعلنا لا نعتمد على الجداول في الاحتفاظ بالقيم المحتسبة ولكن في هذه الحالة اعتقد أنه لو يتم الاعتماد على Data Macro الخاص بجدول Receiving_Bundle للقيام بعملية التجميع بعد تحديث السجل After Update سيكون افضل من الاعتماد على النموذج

لماذا الاعتذار أخي @kkhalifa1960 بالعكس فإثراء الموضوع بالافكار هي الغاية من المنتدى بحيث تكون الصورة كاملة امام السائل وهو من يقرر اي الإجابات التي تناسب عمله

اخي الكريم من الممارسات الجيدة عند تصميم قواعد البيانات العمل على تقليل حجم البيانات التي يتم تخزينها بقدر الإمكان فمثلاً لماذا نقوم بحفظ الاجمالي في الجدول وتضخيم حجم البيانات المحفوظة فيه ونحن بإمكاننا الحصول على نفس النتيجة بواسطة الإستعلامات ارفق لك ملفك بعد إضافة إستعلام والذي إذا فتحته جنبا الى جنب مع الجدول فلن تجد أي فرق إلا آخر عمود والذي يحتوي الإجمالي المطلوب بالتالي يمكنك إستخدام هذا الإستعلام بدلا من الجدول تحياتي Database.accdb

اعرض الملف احصل على ألوان أكثر بهجة لنماذجك بإستخدام هذه الأداة {سلسلة الأدوات المساعدة المخصصة} أقدم لكم اليوم أداة تلوين خلفية النماذج بألوان متدرجة والتي تقوم بمنح النماذج خلفية ملونة بطريقة جميلة حيث تقوم فيها بإختيار لونين ليتم دمجهما والحصول على خلفية تتكون من ألوان متدرجة بين هذين اللونين ويمكن تحديد إتجاه التدرج (أفقياً - عمودياً - قطرياً) إستخدام الأداة سهل للغاية ولن يتطلب أي مهارات حيث أن الأداة تقوم بكل العمل تقريباً ما عليكم سوى تحديد الألوان والإتجاه وستقوم الأداة بتعميم التنسيق على بقية النماذج ضمن التطبيق. مرفق لكم مجلد يحتوي على نسخة توضيحية لتجربتها ومعرفة طريقة عملها ونسخة الفالب وتحتوي على الكائنات المطلوب إستيرادها لإستخدامها في تطبيقاتكم أرجو أن تنال هذه الأداة إعجابكم تحياتي صاحب الملف منتصر الانسي تمت الاضافه 11/17/25 الاقسام قسم الأكسيس  

يجب التنويه هنا أن هذا الأمر لا يتم إلا عندما يكون الـ Back-End هي قاعدة بيانات SQL Server لأنه عندها يمكننا الربط مع الإستعلامات والتي تسمى Views ولن يتم هذا مع Back-End أكسس ارجو من الاخ @kkhalifa1960 تصحيح كلامي لو كنت مخطئ

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

اهااا المشكلة هذه هي بسبب قياسات الصفحة والهوامش قم بتصغير عرض التقرير إلى 27 سم وستنتهي المشكلة تحياتي

الأسماء مرتبة أبجديا ومن السهل الوصول لأي إسم بسهولة ولكن إذا قمنا بعمل مربع بحث يقوم بتصفية مربع القائمة فسيتم تجاهل أي إختيارات تم تحديدها سابقاً هذا لايعني أنه ليس بالإمكان عمل حل ولكنه يحتاج بعض الوقت وقد يكون بإستطاعة أحد الأخوة الأعضاء مساعدتك فيه تحياتي

نظراَ لوجود أسماء متشابهة فإننا نقوم بتمييز كل إسم بفاصلة منقوطة في بدايته واخره وذلك حتى لايتم ظهور أسماء اخرى يكون الاسم المطلوب جزءاً منها فمثلا لو تلاحظ يوجد شركة بإسم فيجن واخرى بإسم دوت فيجن فإذا كان المطلوب هي الشركة فيجن فقط فلو كان المعيار هكذا Like "*فيجن*" فستظهر شركة دوت فيجن لإنها مستوفية للمعيار ولكن عندما يكون المعيار هكذا Like "*;فيجن;*" فهذا معناه أننا تجاهلنا ظهور سجلات غير مطلوبة ارجو أن أكون قد وضحت الفكرة

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

شاهد التعديل المرفق q serial.accdb

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

مرفق لك الملف بعد التعديلات التالية - اضفت وحدة نمطية تحنوي على كود الترقيم - تعديل اسم الحقل اسم الشركة للغة انجليزية ليسهل العمل - ازلت معايير البحث وجعلتها خيارات عادية لتسهيل مشاهدة النتيجة بدلا من ادخال قيم كل مرة يمكن مشاهدة النتيجة بالمعايير المحددة ثم قم بإزالة أو إضافة إسم شركة من او الى المعايير وشاهد النتيجة الجديدة ملاحظة يجب اغلاق الاستعلام واعادة فتحه بعد كل تعديل في المعايير تحياتي q serial.accdb

شكرا أخي الكريم على كلامك الجميل وبصراحة فاجأني تثبيت الموضوع 😅

اعرض الملف إداة إنشاء تعليمات مخصصة لتطبيقك ليظهر كالبرامج المحترفة {سلسلة الأدوات المساعدة المخصصة} تواصلاً لهذه السلسلة أقدم لكم اليوم أداة رائعة تقوم بإضافة التعليمات المساعدة لتطبيقات الأكسس لتظهر بمظهر البرامج الإحترافية حيث تسمح لكم الأداة بإنشاء ملف تعليمات مقسم إلى عناوين رئيسية تحتوي على مواضيع فرعية بحيث يكون لكل موضوع فرعي التعليمات الخاصة به مرفق لكم مجلد يحتوي على ثلاثة ملفات 1 - القالب وهو نسخة فارغة تحتوي على الكائنات الضرورية والتي يتم إستيرادها إلى التطبيق الخاص بكم (ويمكن إستخدامه في إنشاء التعليمات لأي تطبيق وإستيراد الكائنات المطلوبة بعد الإنتهاء كتابة كل التعليمات الخاصة بالتطبيق حيث يوجد هناك ثلاثة نماذج لن تحتاجونها إلى في نسخة التطوير ويمكن الإستغناء عنها في الإصدار المخصص للمستخدم النهائي) 2 - عرض توضيحي يوضح لكم طريقة العمل بالأداة والذي أرجو أن يتم التركيز على الخطوات الموضحة فيه 3 - مثال عملي قمت فيه بتوضيح الطرق المختلفة للإستفادة من الأداة في مثال مشابه للواقع أرجو أن تكون هذه الأداة إضافة مفيدة لكل الإعضاء تحياتي صاحب الملف منتصر الانسي تمت الاضافه 11/09/25 الاقسام قسم الأكسيس  

الكود يعمل بشكل صحيح فبحسب الشرط اذا كان رقم الاداه لايساوي صفر (بدون تحديد ما اذا كان اكبر او اصغر من صفر) واسم الحقل هو Cridi او Elec فسيتم إرجاع قيمة التجميع لهذين الحقلين عبارة Else ستعني أنه إذا كان رقم الأداة يساوي صفر واسم الحقل هو Inkhirat او ErrVerment فسيتم إرجاع قيمة التجميع لهذين الحقلين اذا اردت ان يتم النعامل مع جميع الحقول بنفس الشروط قم بحذف عبارة Else وستنحل المشكلة تحياتي