Foksh

اعتذر منك صديقي ، لكن ثقافتي في الفرنسية .......... لو ان الرسالة باللغة الانجليزية لتوضحت لنا المشكلة .

تحقق من :-

✨ ما الجديد في التحديث ؟.. 1️⃣ تم دعم إعدادات اللغة لكل دولة عربية على حدة :- تمت إضافة إعدادات خاصة لـ 17 دولة عربية ، تشمل : 🌐 اسم الإعدادات المحلية ( LocaleName ) . 🌐 معرّف اللغة ( LocaleID ) . 🌐 اسم الدولة باللغة الإنجليزية . 2️⃣ واجهة مستخدم محدثة ومحاكية لرسالة الويندوز :- تمت إضافة قائمة منسدلة ( ComboBox ) لتمكين المستخدم من اختيار الدولة العربية المراد ضبط الإعدادات لها . 3️⃣ مرونة في اختيار تخطيط لوحة المفاتيح :- يمكن للمستخدم اختيار / عدم اختيار إضافة و ضبط تخطيط لوحة المفاتيح وفقاً للدولة المحددة . ( تم حل المشكلة القديمة بعدم ظهور لوحة المفاتيح بعد استخدام الأداة 👍 ) 4️⃣ مرونة في اختيار واجهة عرض نظام التشغيل ( Display Language Of Windows ) . ‼ هذه الميزة تتطلب تحميل حزمة اللغة العربية مسبقاً 5️⃣ رسائل واضحة ومخصصة :- تظهر للمستخدم رسالة عند إعادة تشغيل النظام ، مع اسم الدولة المختارة لتطبيق الإعدادات . 6️⃣ تعامل احترافي مع الأخطاء . 7️⃣ تمت إتاحة الفرصة للمبرمج من الإستفادة من النموذج بحيث يكون هو النموذج الرئيسي الذي سيعمل به مشروعه ، بحيث عند اكتشاف النموذج ان لغة الترميز ( اللغة الإدارية - Unicode ) لديه في نسخة نظام التشغيل ( ويندوز ) تدعم اللغة العربية ، فسيتم الإنتقال الى النموذج الرئيسي دون ظهور أي مشكلة أو تعطل البرنامج وتوقفه . وإذا لم يتم اكتشاف أن اللغة في نظامه تدعم اللغة العربية ، فسيتم فتح النموذج لتمكينه من تفادي وتلافي وحل هذه المشكلة من خلال استبدال سطر الرسالة الموجود في حدث عند التحميل للنموذج . 8️⃣ في هذا التعديل تم تلافي أي تغيير في إعدادات النظام والتشغيل لدى المستخدم مثل ( تنسيق التاريخ والوقت ، والعملات ، أسماء الأشهر والأيام .. إلخ ) MsgBox "استبدل هذه الرسالة بكود فتح النموذج الرئيسي", , "عندما تكون اللغة الإدارية = العربية" 👁‍🗨 صورة من واجهة التطبيق :- ودمتم في رعاية الله وحفظه [ LanguageCheck V 2.5.accdb ]

وعليكم السلام ورحمة الله وبركاته ،، مشاركة مع الأستاذ @kkhalifa1960 .. جرب في خيارات أو خصائص الطباعة البحث عن :- Fit to Page أو Shrink Oversized Pages عند تفعيل هذا الخيار ، سيتم تصغير التقرير المصمم على A3 ليتم احتواؤه بالكامل في صفحة A4 💡 فهذا الخيار يضمن تقليص التقرير كاملًا ليتناسب مع ورقة A4 ، مع الحفاظ على أبعاد التصميم الأصلي . طبعاً انصحك بتصدير التقرير إلى ملف PDF للحفاظ على تصميم التقرير وأبعاده . أعتقد انني مررت بهذه التجربة ولكن حالياً ليس لدي طابعة 😬 .

يا صديقي ، الجملة الأخيرة اللي انت عاملها اعتقد ملهاش داعي ، والخطأ من عندي أنا ، ولا عيب باعترافي بالخطأ حتى تتوضح الفكرة بشكل أدق لأنني نسيت أنه يجب عمل تحديث للنموذج المفتوح "handicapees" على ما اعتقد ، ويجب بدلاً من Docmd.Requery استخدام Forms!handicapees.requery وهنا لا حاجة لجملة فتح النموذج وهو في الأساس مفتوح 😅 اعتذر عن الخطأ مرة اخرى 😇 ، وفي زر الاستعادة نفس الشيء .

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

إذن ،، الإتجاه الأول هو نسخة الأوفيس ، وبالنسبة لي كنت سأفكر فيها أول شيء. الإتجاه الثاني وهو تعريف كرت الشاشة ( أو خلل في الويندوز ) . حاول ان استطعت تصوير الشاشة مدة ٣٠ ثانية للمشكلة 💡 أيضاً هي أطراف أفكار 😇 ..

وجهة نظر غير ملزمة .. اذا كنت زي حالاتي عندك فكرة اتباع اسلوب معين في طريقة شغلك ، فإنت ممكن تكون محتاج لحل المشكلة الأصلية واللي هي باعتقادي .. اذا كنت بتعتمد على إن في نماذج محددة عندك لازم تفتح في مكان معين ( ودي حسب المشروع ومتطلباته ) فأعتقد أن مشكلتك بالطريقة اللي بتستخدمها بهذا الخصوص. هذا مجرد تخمين وقد لا يكون له أي وجود 😁 .

يبقى قدامك حل من اتنين ،، يا إما تغير اسماء الدول واللغات في النموذج العربي ، أو إنها كفكرة وبما إن الهدف اللغة العربية!! تقدر تخلي قيمة الليست بوكس مضمنة داخل مصدر صف الليست بوكس نفسه وليس من خلال الكود ، اعتقد بكدة تكون حليت مشكلة القيم العربية بدل ما تاخدها من حدث عند التحميل وتكتبهم داخل الـ VBA . ودي انا كنت عاملها في التحديث الجديد 😉 .

يا اهلا وسهلاً بالإبداعات .. جميل جداً جداً... 🙏 أنا قلتلك إني هفرمت الكمبيوتر وأنزل ويندوز تانية ، ومش هعتمد على استعادة النظام خالص ، وجربت المرفق 😁 .. أول حاجة أنا كنت بالغنى عنها إني أضيف كل اللغات العالمية .. بالنسبة لي دي انا كنت مش بحاجتها لإن هدفي كان الناس اللي عندنا في الوطن العربي بس .. تاني حاجة وهي دي المهمة ، انا ما عرفتش اختار في النموذج العربي اللغة اللي انا عايزها بشكل نهائي ، بص وتالت حاجة دي محتاجة إعادة تركيز اعتقد عندي وعندك . وهي إن لغة الترميز أو اللغة الإدارية Current System Local ما تغيرتش رغم اني اخترت دولة عشوائية وطلعت البحرين 😇 . وحاجة تانية سريعة كده ، هي ملف الباتش اللي بيظهر على سطح المكتب 🤔 الحاجات التانية بعد ما اركز شوية 😁 هبقى أقولك عليها ، بس انت اصبر شوية 😈

🥴 أخي الكريم نفس المشكلة التي حصلت معك عند الحذف ، استخدم Docmd.Requery بعد الرسالة 😇

اخي الكريم ، لم كل هذا العناء في محاولة الحفاظ على الترقيم حتى بعد الحذف من السجلات بشكل متفرق ؟؟ إذا كان الترقيم فريد ومرتبط بعلاقة ؛ كما أخبرتك فستحصل على نهاية غير متوقعة بخسارة ولخبطة في السجلات وترتيبها .... الخ

بعض ما عندكم طبعاً يا صديقي .. أجرب فكرتك بعد ما أعمل فرمتة للكمبيوتر 😁😁

تصدقني لو قلتلك اني مبارح لغاية ما صليت الفجر ونمت ييجي الساعة 6 وانا عملت فورمات 3 مرات لضمان إجابتي اللي كنت متأكد منها مسبقاً ، وبعد ما صحيت وصليت الجمعة في آخر لحظة 🥺 ورجعت نمت تااااني 😴 ، ولسه بحاول أخزي الشيطان وأصحصح كده ، ولما شفت ردك قلت لأ لازم يعرف ويتأكد ، وقلت نلعب وماله بس أما أفوقله 😁😁 دحنا حنلعب لعب 🤣🤣

يا اهلا ومرحباً 😈 انا مضطر أخالفك الرأي تماااااااماً في النقطة دي وبكل ثقة ، هي هتشتغل معاك وتعمل اللي انت عاوزة أصدي اللي انا عاوزه هههههههه وتغير اللغة زي ما كلنا عاوزين يا هندسة حتى لو فيها حروف عربية 100% ... ولو عايز تتأكد فرمت وحمل أوفيس وجرب من غير ما تجيب سيرة اللغة العربية في أي حتة في الويندوز 😁😁😁 شوف ده وركز في كمية الثقة اللي فيه 😎 دي ثقة مش غرور وأعوذ بالله 😇🤗🤗🤗😇

بسيطة أخي الكريم , بعد هذه الجملة MsgBox "تم تحديث السجل بنجاح", vbInformation قم بإضافة أمر تحديث للنموذج كالتالي DoCmd.Requery ولا تنسى تغيير نص الرسالة في كود الإستعادة ,, نسيت تغييره 😅

من غير ما تلعب ، الفكرة موجودة عندي ولكن نبحث عن ما هو مختلف 😎 ..

وعليكم السلام ورحمة الله وبركاته .. اخي الكريم لاحظ ان الاصدار 1 أكبر وأحدث من الإصدار 0.2 . فمن الطبيعي انه يكون الاصدار اللي في ملف التكست اللي انت عدلته والخاص بك يحتوي على اصدار أعلى من تلك التي في الجدول .

أخي الكريم احذف الحدث اللي في زر الاستعادة ، واستبدله بالتالي VBA Dim strSQL As String Dim RecordNumber As Long RecordNumber = Me![الرقم].Value strSQL = "UPDATE الإجمالية " & _ "SET [سبب الحذف] = '" & Null & "', [محذوف] = False " & _ "WHERE [الرقم] = " & RecordNumber & ";" DoCmd.RunSQL strSQL MsgBox "تم تحديث السجل بنجاح", vbInformation DoCmd.Close acForm, "Frm_Delete"

ولا يهمك ، سأطبق الفكرة وارسلها هنا

حتى نتلافى الخطأ في الفهم .. جرب انشاء هذا الاستعلام وشوف النتيجة صحيحة أو لا بعد اختيار الفصل والصف والدرجات ( عربي ) الموضوع عليها علامة صح !!! SELECT Tbl_degree_Detail.Stud_id, Tbl_student.Studentname, Tbl_degree_Detail.draseid, Tbl_degree_Detail.Elsaf, Tbl_degree_Detail.Ara, Tbl_degree_Detail.[ashra%_ar], Tbl_student.Stucod FROM Tbl_student INNER JOIN Tbl_degree_Detail ON Tbl_student.id_student = Tbl_degree_Detail.Stud_id WHERE (((Tbl_degree_Detail.draseid)=[Forms]![frm_Reports]![drase]) AND ((Tbl_degree_Detail.Elsaf)=[Forms]![frm_Reports]![ComboSaf]) AND ((Tbl_degree_Detail.[ashra%_ar])=True));

وعليكم السلام ورحمة الله وبركاته .. ما هو المطلوب أخي الكريم !!! قرأت الموضوع 3 مرات ولم اتوصل للمطلوب وبعد هذه الخطوة !!!!!

ههههههه علمت ذلك بطريق غير مباشر لاحقاً ، وقد تأكدت بعد أن رأيت مرفقك .. جزاك الله كل خير على التوضيح .. سأحاول لاحقاً اعتماد فكرتك ( بعد إذنك طبعاً ) والإعتماد على الدروب بوكس فقط 🤗

انت تعرف اني احترم كل الآراء هنا .. ولكن !! خد بالك انا كبرتها كتيييييير هههههههههههه ( أمزح الله يرحم والديك ) جرب وبعدين احكيلي وناقشني في النقطة دي هذا النموذج لن يظهر إلا عندما تكون اللغة الإدارية غير العربية ، وبالتالي لم أجد انها من صلاحيات المستخدم بقدر ما هي صلاحيات المبرمج ، فما تطرقت لهذه الفكرة ,, الرسائل المكتوبة بالعربي لن تظهر للمستخدم أبداً أبداً أبداً أبداً إلا اذا المبرمج وقع امر استدعاء دالة التحقق من اللغة ( وكأننا لم نفعل شيئاً حينها ) ما تخافش انا خدت بالي من كل الإحتمالات لأنني جربت الفكرة على 16 نسخة ويندوز للآن ، ومن بينهم جهازين تم عمل فورمات لهم وتنزيل ويندوز جديدة ولم يتم اختيار اللغة العربية ، وبعد تثبيت أوفيس 2016 و 2019 على كل منهما قمت بتشغيل الملف ولم تظهر أي مشكلة قد تخطر ببالكم إجمالاً .. لو تم ايقاف الجزء المسؤول عن اغلاق النموذج في الحدث عند التحميل ، وحاولت تغير اللغة فلن يتم تغييرها أبداً ، لأن الهدف هو ان يكون الترميز لغة عربية وليس الهدف البلد ، ولكن إضافة الفكرة كانت كرغبة في عدم التقيد ببلد محدد للمبرمج 😉