منتصر الانسي

هذا افضل فلا يمكن معالجة مشكلة إلا في نفس بيئتها

جائتني فكرة لا ادري اذا كانت ستنجح ولكن عند فتح الواتس عبر المتصفح ستظهر ايقونة لتنصيبه كتبطبيق كما بالصورة والذي سيجعل الواتس يظهر كما ولو كان برنامج منصب على الجهاز حاول تجربة هذه الطريقة

كما ذكر الاخ @Foksh فالسبب مرتبط بالويندوز نفسه عموما وجدت لك فيديو يشرح طريقة تحميل واتساب على نفس نسخة الويندوز إن شاء الله تنجح معك رابط الفيديو ومرفق لك ملف مضغوط يحتوي على الملفات المطلوبة في الفيديو قم بنسخ الإصدارات المتوافقة مع جهازك تحياتي LTSC-Add-MicrosoftStore-2024-main.zip

جرب تجميل البرنامج من هذا الرابط بعد التنزيل جرب تنصيبه بالطريقة العادية أي النقر المزدوج إذا لم تنجح الطريقة السابقة قم بفتح Powershell كمسؤل ثم أكتب الأمر التالي Add-AppxPackage -Path "مسار الملف" تحياتي

مرفق لك تعدبل لإضافة أعمدة النتيجة لا ادري هل هذه هي النتيجة التي تريدها أم لا؟ Data_Base_2.rar

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

جرب المرفق Data_Base.rar

اعرض الملف تحديث لموضوع الحل الشافي لتقارير اكسس {سلسلة الأدوات المساعدة المخصصة} الحقيقة أن هذا الموضوع ماهو إلا تحديث للموضوع الذي كنت قد رفعته للمنتدى منذ زمن طويل ولكني حبذت أن أفتح له موضوع جديد هنا في المكتبة لسببين الأول إثراءاً لمكتبة الموقع وتسهيل الوصول إليه لكل من يبحث عن موضوع التقارير والثاني لأني قمت بإجراء بعض التحسينات في الملف من حيث تبسيط الإجراءات وإرفاق شروحات وتعليمات توضيحية لطريقة العمل بهذه الأداة وخلافاً لما جرت عليه العادة فهذه الأداة لاتحتاج إلا إستيراد وحدة نمطية واجدة لذلك لم أرفق ملف بإسم القالب فكل ما ستحتاج إليه سيكون موجود في الملف المرفق تحياتي صاحب الملف منتصر الانسي تمت الاضافه 01/14/26 الاقسام قسم الأكسيس  

هذا لأن الكود يتعامل مع الوورد إصدار 2003 لذا قم بإضافة حرف x لإمتداد ملف الوورد بمعنى بدل هذا السطر OpenClsword (CurrentProject.Path & "\123.doc") إلى هذا السطر OpenClsword (CurrentProject.Path & "\123.docx")

هذا بعض مما عندكم أخي موسى 💕

اشكرك أخي ابو خليل على الكلام الطيب 💕

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

هذا بسبب أن مصدر بيانات مربع النص هو حقل Nr الموجود في الجدول TblDetaché حمل المرفق الان بعد تعديل مصدر الحقل من الجدول tbl_Loans وشاهد النتيجة Taher_22122025.rar

ولكن هذا هو مايتم بالفعل شاهد الصورة بمجرد أن أغير الوظيفة إلى 15

السؤال هنا هل سيتم انشاء جدول بنفس الاسم كل مرة ام سيتم انشاء الجدول باسم جديد؟ لانه الحل سيختلف بناء على اجابة السؤال

جرب التعديل المرفق Taher_22122025.rar

انا لم أقم بتعديل أي شيئ كل ما قمت به هو تصحيح الكود الخاص بك كالتالي السطر الأول كان هكذا Set rstE = db.OpenRecordset("SELECT * FROM Employee WHERE Nr <= 5", dbOpenDynaset) وكان يحتوي الأخطاء التالية - كنت تتعامل مع الحقل Nr في الجدول Employee على أنه حقل رقمي ولكنه حقل نصي - أعتقد أنك تظن أن هذا الحقل يحتفظ برقم الوظيفة إلا أنك مخطئ فهو يحتفظ بإسم الوظيفة والصورة التالية ستوضح لك ما أقصده مما سبق يتضح لنا أنه لن يتم تحقيق معيار التصفية Nr <= 5 لذلك قمت بتعديله إلى السطر التالي Set rstE = db.OpenRecordset("SELECT *,TblDetaché.Nr as NrE FROM Employee INNER JOIN TblDetaché ON Employee.detach = TblDetaché.detach WHERE (((TblDetaché.Nr) <= 5));", dbOpenDynaset) حيث سيتم ربط الجدول Employee مع الجدول TblDetaché وسنأخذ قيمة Nr من الجدول TblDetaché لأنه رقمي وقمنا بتسمية الحقل هذا بإسم NrE أما التعديلات التالية كلها تخص الحقل EmpID فأنت تتعامل معه كحقل نصي وهو حقل رقمي لذلك قمت بإزالة علامة الإقتباس المفردة التي قيل وبعد EmpID فمثلا 'تم تعديل هذه العبارة EmployeeID='" & EmpID & "' 'بهذه العبارة EmployeeID = " & EmpID & " اخر تعديل ونظرا لأنه وكما سبق توضيحه بخصوص الحقل Nr تم تعديل السطر التالي 'إستبدلنا هذا السطر rst!Nr = rstE!Nr 'بهذا السطر rst!Nr = rstE!NrE حتى يتم أخذ قيمة Nr من الحقل الذي قمنا بتسميته بالإسم NrE في جملة Sql أعلاه هذه هي كل التعديلات التي قمت بها فهل هذا سيؤثر على طريقة احتساب القروض؟

جرب التعديل المرفق اقتطاع مرة واحدة فقط 2025-1.rar

هل قمت بالتأكد من إعدادات اللغة في الويندوز ؟ للتأكد في مربع البحث في شريط المهام اكتب Region ثم اضغط زر Enter ليفتح لك النافذة التالية تأكد من انه تم تحديد اللغة العربية

اعرض الملف إداة تخصيص مربع الرسائل MsgBox {سلسلة الأدوات المساعدة المخصصة} نواصل سلسلة الأدوات المخصصة بأداة بسيطة وسهلة الإستخدام ولكن نتيجتها رائعة فكما نعلم فإن صندوق الرسائل MsgBox القياسي يأتي بإمكانيات محدودة كعدم إمكانية تنسيق الخطوط وتغيير مسميات الأزرار وغيرها من الأمكانيات وهنا تأتي هذه الأداة لتقوم بكل مايعجز مربع الرسائل القياسي عن القيام به حيث يمكنها - إنشاء الرسائل بنص غني RichText وهذا يعني أمكانية التحكم في تنسيق النص من حيث نوع الخط ولونه وحجمه وتسطيره ... الخ - تعيين تسميات الأزرار مع إمكانية تغيير لونها - الإغلاق التلقائي وغيرها من المميزات التي ستتعرف عليها في الملف المرفق طريقة إستخدام الأداة بسيط للغاية فمن خلال نموذج (المعالج) نقوم بكتابة وتنسيق نص الرسالة وتعيين خيارات مربع الحوار ثم إستعراض شكل مربع الرسالة الناتج عن هذه التحديدات حتى يتم الوصول للنتيجة المطلوبة ليقوم النموذج بإنشاء صيغة الكود الذي يقوم بتنفيذ الأمر لنسخه ولصقه في المكان المطلوب ملاحظة هامة : ارجو التركيز على الملاحظات المكتوبة باللون الأحمر في النموذج لأنها ملاحظات هامة يجب إستيعابها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 12/18/25 الاقسام قسم الأكسيس  

من كلامك هذا اعتقد أنك قمت بتغيير الجهاز ويمكن أن تكون المشكلة مرتبطة بلغة النظام لأن المشكلة لم تظهر عندي انا ايضاً

قم بنسخ الكود التالي ولصقه في أي وحدة نمطية Public Function ReportExists(rptName As String) As Boolean Dim obj As AccessObject For Each obj In CurrentProject.AllReports If obj.Name = rptName Then ReportExists = True Exit Function End If Next obj ReportExists = False End Function بهذا سيتم حل المشكلة التي تسبب الخطأ الظاهر في الصورة الثانية لا أدري إذا ما سيتم حل المشكلة الظاهرة بالصورة الأولى أم لا ولكن جرب ورد علينا بالنتيجة تحياتي