Foksh

أعلم هذا أخي احمد .. ولكن لو كان كل مقترح نطلبه كإضافة لأي أداة .. فلربما كان لي طلب من مايكروسوفت أن تدعم مثلاً عرض واجهة اكسل أو وورد داخل النماذج أو التقارير .. لكنا قد حصلنا على إضافات مميزة 😉 ثم أنه إن لاحظت فإن عدد الرموز تبارك الله في المرفق الذي أشرت له قد يتجاوز الـ 1000 رمز معبّر .. وهنا سنضطر طبعاً لعرض هذه الرموز مع نظيرها من رقم استدعاء .. وبالتالي تضخيم العمل وتحميله حملاً زائداً عن وظيفته المُصمم لها .

أخي احمد ،، الأداة مفتوحة المصدر ، اصنع منها التعديلات التي تناسبك واحتياجاتك ما تشاء ..

وعليكم السلام ورحمة الله تعالى وبركاته.. الشكر لله وحده .. وأقدّر لك مرورك العطر 💐

هل تم حل المشكلة ؟؟

وعليكم السلام ورحمة الله وبركاته .. بناء على ما فهمته من شرحك . في الوضع الحالي الطالب "أحمد فوزي عبد الهادي وهبة" سيكون ترتيبه رقم 1 في الصف الثالث في التقرير . لأن اسمه يبدأ بالألف المهموزة . وبعد تعديل الاستعلام وبحسب طلبك فإن ترتيبه الصحيح بالفرز الأبجدي سيكون الخامس . كما في الصورة ، فهل هذا صحيح ؟ إذا ، ما سيلزمنا هو نقطة واحدة فقط ، وهي تعديل الإستعلام ليصبح قادراً على عرض أسماء الطلاب بدون التهميز ... إلخ ؛ ليصبح :- SELECT DISTINCT Tbl_student.alsaf_Id, Tbl_fsl.fsl, Replace(Replace(Replace(Replace(Replace(Replace([Tbl_student].[Studentname],"أ","ا"),"إ","ا"),"آ","ا"),"ة","ه"),"ى","ي"),"عبد ","عبد") AS StudentName, Tbl_student.gender, Tbl_fsl.fsl_id, Tbl_student.eldina_id FROM Tbl_student INNER JOIN Tbl_fsl ON Tbl_student.fsl_id = Tbl_fsl.fsl_id ORDER BY Tbl_student.alsaf_Id, Replace(Replace(Replace(Replace(Replace(Replace([Tbl_student].[Studentname],"أ","ا"),"إ","ا"),"آ","ا"),"ة","ه"),"ى","ي"),"عبد ","عبد"); وأما بخصوص الفرز والترتيب الأبجدي ، فسبق أن قمنا بهذه الخطوة داخل التجميع . لذا جرب انقل الاستعلام الى تقرير rpt_AllSAF ، وشاهد النتيجة إن كانت صحيحة .

1️⃣ تم تعديل وتصحيح بعض الأخطاء التي تمت ملاحظتها بناءً على تجارب الإخوة والأساتذة - مشكورين جميعاً دون استثناء - والتي تتلخص بـ :- تصحيح كود "عرض التصميم" للتقارير أو النماذج . والكثير غيرها . إضافة ميزة التحقق مما إذا كان الأمر مكرراً أم لا ، مع تخيير المستخدم بمتابعة إضافته أو لا .. ملف المشروع مفتوح المصدر :- Menu Builder V.2.zip كملاحظة ، وللحصول على التعديثات الجديدة .. قم بإزالة الإصدار السابق ، وإعادة تشغيل اكسيس واجهة الأداة وحفظها كـ Add-in ..

صديقي بشار ،، القيمة الافتراضية هي قيمة ثابتة تحددها إما من خصائص العنصر داخل النموذج او التقرير. او داخل الحقل في جدول. أو كما كان المقترح باستخدام Dlookup تفضل الملف كتجربة ، وافتح النموذج 0 واختر قيمة . ثم اذهب لنموذجك الصفوف.accdb

العفو أخي أسعد .. وإياكم أخي ، ولكم بمثل ما دعيتم

أهلاً أخي أحمد .. الحل يسير إن شاء الله تعالى .. قبل أمر الطباعة في الدالة ExportToPDF_SmartPrinter .. فقط كل ما عليك هو نقل التركيز الى التقرير . بحيث قم بإضافة السطر التالي قبل أمر الطباعة . DoCmd.SelectObject acReport, reportName, False يصبح الكود كالتالي :- Public Function ExportToPDF_SmartPrinter() Dim reportName As String Dim defaultPrinter As String Dim prt As Printer Dim pdfPrtName As String On Error Resume Next reportName = Screen.ActiveReport.Name If Err.Number <> 0 Then MsgBox "لا يوجد تقرير نشط", vbExclamation + vbMsgBoxRight, "" Exit Function End If On Error GoTo 0 pdfPrtName = "" For Each prt In Application.Printers If InStr(1, prt.DeviceName, "PDF", vbTextCompare) > 0 Or _ InStr(1, prt.DeviceName, "Cute", vbTextCompare) > 0 Or _ InStr(1, prt.DeviceName, "Foxit", vbTextCompare) > 0 Then pdfPrtName = prt.DeviceName Exit For End If Next prt If pdfPrtName = "" Then MsgBox "لم نتمكن من العثور على طابعة افتراضية وهمية في نظامك" & vbCrLf & vbCrLf & _ "يرجى تثبيت طابعة مجانية على الويندوز مثل بي دي إف فاكتوريً", vbCritical + vbMsgBoxRight, "" Exit Function End If defaultPrinter = Application.Printer.DeviceName Set Application.Printer = Application.Printers(pdfPrtName) DoCmd.SelectObject acReport, reportName, False DoCmd.PrintOut acPrintAll Set Application.Printer = Application.Printers(defaultPrinter) End Function جرب بنفسك وأخبرني

أخي أسعد ، أكيد يمكن تحقيق مطلبك بسهولة .. تابع معي :- سنقوم بإضافة تجميع جديد لنفس الحقل alsaf_Id الموجود أساساً في ملفك . وهنا سيكون لديك تجميعين لنفس الحقل ، صحيح ؟؟ وسننقل هذا التجميع الجديد ليكون أول تجميع كما في الصورة :- لاحظ انه يوجد تجميعين لنفس الحقل . وهنا نركز قليلاً .. في المجموعة الأولى التي أضفناها وسحبناها لأعلى سلسلة التجميع ، سنقوم بسحب العناصر الخاصة باسم الصف الى القطاع الخاص بها ، ونقوم بتصغير رأس الصفحة الذي أصبح فارغاً ، وسنجعل للقطاع الخواص التالية :- في مجموعة التجميع القديمة ( التي أصبحت الثانية ) اترك العناصر التي باللون الأزرق كما هي ، ولكن سنغير من خصائص هذا القطاع لتصبح :- وكفى الله المؤمنين القتال ملفك بعد التعديل على النموذج نفسه :- emad4.zip

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

حبيبي يا بشار .. الحمد لله كيف رح تغير القيمة الإفتراضية 😅 اذا وضع التصميم مقفل ؟؟؟ إلا إن كان التغيير برمجياً ودون تحديد قيمة افتراضية داخل خاصية القائمة

وعليكم السلام ورحمة الله وبركاته اسمح لي أخي بشار بسؤالك سؤال واحد .. هل القائمة المنسدلة هذه قيمها ثابتة كما في مثالك ؟؟؟؟ برأيي بما انك حددت قيمة افتراضية = نص = لغة عربية فقد تواجه مشكلة في الأجهزة التي لغة الترميز فيها لا تدعم اللغة العربية . هذا من جهة من جهة أخرى اعتقد أنك لو اسندت القيمة الافتراضية الى قيمة رقمية بحيث :- القائمة المنسدلة تتكون من عامودين . حيث الأول رقم فريد والثاني اسم الصف مثلاً وبالتالي سيكون الرقم 1 = الأول على العموم ملفك يعمل عندي بدون مشاكل :-

شكراً لك مرورك أخي منتصر .. يكفيني اعجابك بكلمة واحدة انتظر التحديثات الجديدة .. قد تعجبك 😉

نرجو رفع الملف مرة أخرى والتحقق من عمله .. لأنه لم يعمل على اكسل 2021

اذا تفضل التعديل على نفس التقرير emad3.zip

حتى اختصر عليك التوضيح قليلاً .. هل هذا ما تريده ؟

وعليكم السلام ورحمة الله وبركاته .. انت كتبت عنوان طلبك .. لكنك لم تقم بالتوضيح أخي الكريم !! يعني مثلاً هل الحجز سيكون من خلال المريض نفسه من موقع مثلاً ولا من كمبيوتر وآكسيس ، ولا من ايه بالضبط !!

أخي أسعد ، خانة الرد هذه تتسع لنص يفوق خيالك ، فلا تبخل علينا بالكلمات اعتبر نفسك تحادثنا من خلال كلماتك = اكتب ما تقوله بصوتك وإن شاء الله توصل الفكرة اللي عندك

يعني انت تريد طباعة أسماء الطلاب الذكور أولا لكل الصفوف وبتسلسل من 1 الى نهاية طلاب الصف الأول والصف الثاني للذكور من 1 الى نهاية طلاب الصف الاني ... وهكذا ثم ينتقل الى الإناث بنفس الطريقة !!!!!!! أم ماذا ؟؟؟

ألف سلامة عليك أخي خليفة .. شافاك الله وعافاك 🤲🏻

وعليكم السلام ورحمة الله وبركاته ممكن توضح أكثر 🤔 مع ارفاق ملف إن أمكن

ولكم بالمثل كما دعوتم أخي أسعد 🥰

وعليكم السلام ورحمة الله وبركاته .. الأمر يسير أخي أسعد إن شاء الله .. تابع معي خطوة بخطوة .. انسخ نسخة من التقرير Rpt_CLASSES1 وأعد تسميته مثلاً Rpt_CLASSES2 انشئ زر جديد في النموذج ليفتح التقرير Rpt_CLASSES2 . DoCmd.OpenReport "Rpt_CLASSES2", acViewPreview الآن لاحظ ما سنفعله في التقرير Rpt_CLASSES2 :- 1. إزالة الشرط من الاستعلام مصدر سجلات التقرير ليصبح :- SELECT DISTINCT Tbl_student.alsaf_Id, Tbl_fsl.fsl, Tbl_student.Studentname, Tbl_student.gender, Tbl_fsl.fsl_id FROM Tbl_student INNER JOIN Tbl_fsl ON Tbl_student.fsl_id = Tbl_fsl.fsl_id; 2. النقطة المهمة وهي إضافة تجميع باستخدام الحقل alsaf_Id ، ونقله الى بداية سلسلة التجميع كما يلي :- وهذا ملفك بعد التعديل :- emad3.zip

البساطة جميلة جداً .. ما شاء الله على الإستغلال لوظائف اكسيس والويندوز