كل الانشطه

هل تريد عمل QR_Code لقراء بيانات المريض . امسح الصورة بقارئ QR_Code لديك بتليقونك

تفضل التعديل بالمرفق . Jo(4-5-2026).rar

الخبير الافاضل شكررررررررا لحضرتك على الابداع وتحقيق اكثر ما كنت اطلب طلب اخير فى الصورة المرفقة

شكراً لملاحظاتكم بارك الله جهودكم وكتب أجركم

استاذي الكريم في خليه من تجمع الخلايا الملونه ضمن العمود اسفله ببنما يكون مجموع ةلغير ملونخ تحسب العدد ضمن الغير مؤمن استاذي الكريم في الاعلى لدي خلبه مؤمن وغير مؤمن واسفب ذلك يوجد عامود الاسماء الاسماء الملونه يحسب عددها ضمن المؤمن اما الغير مضلل فيحسب عددهم ضمن الغير،مؤمن

تفضل د/ @jo_2010 المرفق بعد التعديل بطلبك . ووافني بالرد . Jo(3-5-2026).rar

1. رجاء اخذ صورة من رسالة الخطأ ، حتى نرى ما يراه الاكسس ، 2. في الكود اعلاه ، كتبت شرطة زائدة "\" ، فبدل: "\Youssef\" يجب ان يكون "Youssef\" ، فرجاء تجربة الكود التالي: Private Sub cmd_Export_to_Excel_Click() '- تصدير الى اكسل Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & Me.PCode 'File_Path = CurrentProject.Path & "\" & Me.PCode DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True End Sub Private Sub cmd_Export_to_pdf_Click() '- تصدير الى PDF Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & Me.PCode & ".pdf" 'File_Path = CurrentProject.Path & "\" & Me.PCode & ".pdf" DoCmd.OutputTo acOutputQuery, "Qry_Lab_Request_for_EXPORT", acFormatPDF, File_Path, False, , , acExportQualityPrint End Sub

تفضل الملف بعد التعديل . كان فيه أخطاء كثيرة جدا في ارتباط الخلايا في اليوزرفورم مكتب_المحامي للتعديل2.xlsm

فعلاً لم أفهم المطلوب بشكل واضح ..

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

اعتقد أن الحل كان بين يديك في مشاركة الأستاذ @عبدالله بشير عبدالله في موضوعك السابق ..

جزيل الشكر لك عزيزي باشمهندس @منتصر الانسي على المشاركة 🙂 فعلا مر علي ملف الأستاذ أبو هادي سابقا .. وهو عمل مدهش وشامل فعلا .. وأذكر أنني عدلت عليه قليلا ليعطيني الكود الخاص بمنشيء التعبير أيضا : الأصل المعدل وهذه هي قائمة الخيارات توسعت لطالبها 🙂

هممم 1. انا لم اتاكد من وجود مجلد باسم Youssef في المجلد المحلي ، فهل هو موجود ؟ بالتعديل التالي ، قمت بالتاكد من وجود لبمجلد Youssef ، وان لم يكن موجودا ، فيقوم الكود بعمله : Private Sub cmd_Export_to_Excel_Click() '- تصدير الى اكسل Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef\" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & Me.PCode 'File_Path = CurrentProject.Path & "\" & Me.PCode DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True End Sub Private Sub cmd_Export_to_pdf_Click() '- تصدير الى PDF Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef\" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & Me.PCode & ".pdf" 'File_Path = CurrentProject.Path & "\" & Me.PCode & ".pdf" DoCmd.OutputTo acOutputQuery, "Qry_Lab_Request_for_EXPORT", acFormatPDF, File_Path, False, , , acExportQualityPrint End Sub 2. دائما لما تحصل على رسالة خطأ ، رجاء ارفاقها حتى نعرف سبب الخطأ ، ونستطيع مساعدتك ، 3. ومع اني اعرف ان رد الاستاذ خليفة هو الافضل للاستعمال ، ولكن رجاء اعمل التجربة اعلاه واعطنا النتيجة لوسمحت.

كل الشكر للاساتذه الكرام الاستاذ فوكس والاستاذ عبد الله جزالكم الله كل خير

يالغالي : الرقم 123456

الخبير المبدع شكرا علي الحلول الرائعة التى تقدمها لي عدة طلبات سامحنى علي الاطالة ١ إضافة اجماليات لكل حقول الاكسل ٢ كتابة اسم المريض علي ملف الاكسيل بعد التصدير ملف pdf يفتح لكنة لم يحفظ اريد حفظة بجوار الاكسيل وياخد اسم المريض شكرا لحضرتك

الخبير الفاضل jjafferr قمت بتجربة البرنامج بعد تعديل حضرتك علية واعطى رسالة خطا عند ضغط التصدير الى اكسيل او PDF DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True باللون الاصفر فى pdf و اكسيل

حدث عند الوقت 👍🏻 فكرة جميلة جداً توظيف التايمر

جرب التعديل التالي 115.xlsm

استاذي @jjafferr دمت دائماً مدداً لنا ولا انسى فضلك وفضل الزملاء جميعاً بمددي ..

يا رجال ، انا قلت اعطي يوسف تصبيرة الى ان يجيه المدد 🙂 احسنت

كل الشكر للاساتذه الكرام استاذ عبد الله عند تغيير اي خليه الى لون لا يتغير مجموع اللون في الاعلى بشكل تلقائي ارجو ان اكون اوضحت مثلا العمود j 110.xlsm