⚙🛠🎁 أداة لإصلاح وتعديل النصوص العربية التالفة في الأكواد .. من > ÇáÓáÇã Úáíßã إلى > السلام عليكم

[Moosak]

 

🛠🎁 أداة لإصلاح وتعديل النصوص العربية التالفة في الأكواد .. من > ÇáÓáÇã Úáíßã إلى > السلام عليكم

---

:: السلام عليكم ورحمة الله وبركاته ::

نظرا لوجود مشكلة عند نسخ النصوص العربية في أكواد VBA وخصوصا عندما تكون لغة النظام معينة على اللغة الإنجليزية ..

لذلك قمت بتصميم هذه الأداة لتقوم بإصلاح العبارات العربية التالفة في الكود وإرجاعها إلى أصلها ...

مثال :  ÇáÓáÇã Úáíßã   >>>> تعود لأصلها : السلام عليكم

وهذه صورة للأداة :

 

اعرض الملف

---

• صاحب الملف
  Moosak
• تمت الاضافه
  04/22/25
• الاقسام
  قسم الأكسيس

 

[Foksh]

ما شاء الله ، ما شاء الله ..

فكرة جميلة جداً  

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

عندي اقتراحين لا ينقصان من قيمة العمل شيئاً ..

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

أما خلاف ذلك فالفكرة جميلة جداً  

[Moosak]

13 دقائق مضت, Foksh said:

عندي اقتراحين لا ينقصان من قيمة العمل شيئاً ..

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

أنت ناقد جيد ما شاء الله عليك 😅🖐

1- الأول تم تطبيقه بناءا على اقتراحك 🙂 .
2- الثاني : لا أدري 😁👊 جرب وأخبرنا ..

[Foksh]

11 دقائق مضت, Moosak said:

2- الثاني : لا أدري 😁👊 جرب وأخبرنا ..

😉 هي كانت مجرد صرخة لفكرة في رأسي ههههه . ولكن إن أتيحت لي الفرصة لتجربتها فليس لدي مانع طبعاً ..

وما خطر ببالي وقتها هو لماذا لم يتطرق لاستخدام DoCmd.RunCommand acCmdPaste أو DoCmd.RunCommand acCmdCopy  😁 

 

[Moosak]

20 دقائق مضت, Foksh said:

مجرد صرخة لفكرة في رأسي

هذي الصرخات هي اللي مجننتنا 😂

21 دقائق مضت, Foksh said:

لماذا لم يتطرق لاستخدام DoCmd.RunCommand acCmdPaste أو DoCmd.RunCommand acCmdCopy

من الأشياء اللي لاحظتها على نسخة الأوفيس 365 أن هذولا السطرين ما يشتغلوا معاي .. ولا أدري أيش السبب !!! 

ولذلك بحثت عن بديل .. فكان ما رأيت 

وبصراحة ما كثرت من البحث .. أول ما لقيت هذي الأكواد وجربتها أعتمدتها على طوووووول 😅🖐

[ابو جودي]

3 ساعات مضت, Moosak said:

من الأشياء اللي لاحظتها على نسخة الأوفيس 365 أن هذولا السطرين ما يشتغلوا معاي .. ولا أدري أيش السبب !!! 

السلام عليكم

عاااااش والله لم يخطر على بالى ان ممكن نرجع الهيلوغريفى ده لعربى وكمان لم يخطر على بالى ابحث عن حل هذه المشكلة

الله عليك عاش بجد 

شوف يا استاذنا الغالى 

انت لازم تعمل  لعنصر التحكم  اللى هيتم اللصق  له او النسخ منه : SetFocus وده مهم ولابد قبل استخدام الاوامر التاليه 

DoCmd.RunCommand acCmdPaste أو DoCmd.RunCommand acCmdCopy

مفيش حاجه اسمها على نسخة الأوفيس 365 أن هذولا السطرين ما يشتغلوا  
 

يعنى بالنسبه لمثالك بكل بساطه
ده شكل كود النسخ
 

    Me.Weard_ResTxt.SetFocus
    DoCmd.RunCommand acCmdCopy

    MsgOut "تم النسخ"

وده شكل كود اللصق

    Me.Weard_ResTxt = ""
    Me.Weard_OrgTxt = ""
    Me.Weard_OrgTxt.SetFocus
    DoCmd.RunCommand acCmdPaste

 

[ابو جودي]

طيب انا عن نفس فى الحجات اللى زى دى مش بحب اترك مربعات النص عرضه للتعديل اذ ربما يتم تغير البيانات عن طريق الخطا
لذلك اقوم بتأمين مربعات النص ضد الكتابة
من خلال (Locked = True) لمربعات النص

طيب التعامل بيكون ازاى وعلشان ما اكتب اكود كتير بحب اضع دائما اسس اتعامل وابنى عليها 
يعنى انا عن نفسى سوف أضع تأمين لمربعات النص
سوف اعرف ثوابت  بالشكل التالى 
 

Const LOCKED As Boolean = True
Const UNLOCKED As Boolean = False

وهذا سوف يكون الكود المستخدم خلف زر الامر الخاص بعملية اللصق
 

    Dim btnPressed As Control
    Set btnPressed = Me.ActiveControl ' امسك الزر الحالي قبل ما تروح لمربع النص
    
    Me.Weard_ResTxt = ""
    Me.Weard_OrgTxt = ""
    Me.Weard_OrgTxt.LOCKED = UNLOCKED  ' فك القفل
    Me.Weard_OrgTxt.SetFocus
    DoCmd.RunCommand acCmdPaste
    btnPressed.SetFocus ' رجع التركيز مرة أخري على زر الأمر

    Me.Weard_OrgTxt.LOCKED = UNLOCKED ' قفل تاني

وهذا سوف يكون الكود المستخدم خلف زر النسخ
 

    Me.Weard_ResTxt.LOCKED = UNLOCKED  ' فك القفل
    Me.Weard_ResTxt.SetFocus
    DoCmd.RunCommand acCmdCopy
    Me.Weard_ResTxt.LOCKED = LOCKED ' قفل تاني
        
    MsgOut "تم النسخ"