كل الانشطه

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

السلام عليكم ورحمة الله وبركاته في مشروع المخازن للسيد المحترم moho58 نفذت بعض التعديلات في مذكرة الوارد ومذكرة الصادر بحذف الضريبة والتسعيرة من الفاتورة لانتفاء الحاجة اليها حسب البروتوكول المطلوب. في كل من مذكرة الوارد ومذكرة الصادر وفي خانة المخزن عند اختيار مخزن معين كمثال " مخزن المواد الغذائية " وادراج صنف او اكثر في مذكرة الصادر او الوارد وعند محاولة اختيار مخزن اخر كمخزن المواد الدراسية لايمكن تنفيذ ذلك وتبقى مذكرة الصادر او الوارد محصورة في المخزن الذي تم اختياره في البداية فقط . وطلبي هنا ان نتمكن من ادارج اكثر من مخزن في نفس مذكرة الصادر او الوارد تحياتي لكم جميعا stock25.rar

لو عاوز الباركود ملون ... Jo-QR_Code_Arabic-Color.rar

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

ممكن طريقة الادراج لو تكرمت

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

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

تفضل .... باركود بالنموذج ومُصدر كمان للاكسل والبي دي اف . 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. ومع اني اعرف ان رد الاستاذ خليفة هو الافضل للاستعمال ، ولكن رجاء اعمل التجربة اعلاه واعطنا النتيجة لوسمحت.