كل الانشطه

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

العمل فنياً ، ابداع وممتاز 🙂 ولكن كيف يمكن الاستفادة منه ، ومن المستفيد ؟

تفضل .... باركود بالنموذج ومُصدر كمان للاكسل والبي دي اف . Jo(4-5-2026)-QR_Code.rar

هل تريد عمل 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