كود تحويل [أ] و [آ] و [إ] الى [ا] وتحويل [ة] الى [ه]

[النهر العطشان]

السلام عليكم 

احتاج الى كود عند الضغط (زر تعديل الحروف )  في ال form للملف المرفق يقوم هذا الزر بتحويل  [أ] و [آ] و [إ] الى [ا] وتحويل [ة] الى [ه] ليسهل عملية البحث للاسماء المكررة وشكرا

الغاء الهمزه والاليف.rar

[Shivan Rekany]

مادام تريد لهدول الحروف فقط

اتفضل اليك هذا استعلام

SELECT Table.NAME, Replace(Replace(Replace(Replace([Table]![NAME],"أ","ا"),"إ","ا"),"آ","ا"),"ة","ه") AS MYNAMEEEE
FROM [Table];

واليك هذا الكود خلف الزر
لأنه الكود بها حروف العربية لذا غير مكان الحروف

Private Sub Command0_Click()
Dim REPL As String
    REPL = Replace(Replace(Replace(Replace(Me.NAME1, "أ", "ا"), "إ", "ا"), "آ", "ا"), "ة", "ه")
        Me.MYNAME = REPL
End Sub

واليك ملفك بها كلا طريقين

 

الغاء الهمزه والاليف.rar

[النهر العطشان]

السلام عليكم

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

ولكن استاذي الفاضل الذي احتاجه الآن بالضبط هو عند النقر على  (زر تعديل الحروف ) مره واحده يقوم بتعديل الاحرف دفعه واحده وفي نفس الجدول 

وشكرا

[ابو جودي]

7 دقائق مضت, النهر العطشان said:

السلام عليكم

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

ولكن استاذي الفاضل الذي احتاجه الآن بالضبط هو عند النقر على  (زر تعديل الحروف ) مره واحده يقوم بتعديل الاحرف دفعه واحده وفي نفس الجدول 

وشكرا

بعد اذن الاستاذ @Shivan Rekany
اتفضل اضافة زر للتعديل على الجدول دفعة واحده لكل الحروف فى وقت واحد
 

الغاء الهمزه والاليف (2).rar

[النهر العطشان]

شكرا لك استاذ ابا جودى هذا بالضبط ما احتاج اليه

وشكرا لك استاذ شفان ريكاني 

جعلها الله في ميزان حسناتكم

[النهر العطشان]

الى الاساتذه الكرام ارجو المساعده في معرفة السبب اعلاه في ضهور الارقام باللغة الانكليزية عند التحويل الى ملف pdf 

علما اني قمت بتجربة تنصيب برنامج مايكروسوفت 2007 النسخة العربية والانكليزية فكانت النتيجه نفسها اي ضهور الارقام باللغة الانكليزية لكن عندما قمت بتنصيب برنامج  مايكروسوفت 2010 النسخة الانكليزية فضهرت الارقام بالعربي وشكرا

[ابو جودي]

4 دقائق مضت, النهر العطشان said:

الى الاساتذه الكرام ارجو المساعده في معرفة السبب اعلاه في ضهور الارقام باللغة الانكليزية عند التحويل الى ملف pdf 

علما اني قمت بتجربة تنصيب برنامج مايكروسوفت 2007 النسخة العربية والانكليزية فكانت النتيجه نفسها اي ضهور الارقام باللغة الانكليزية لكن عندما قمت بتنصيب برنامج  مايكروسوفت 2010 النسخة الانكليزية فضهرت الارقام بالعربي وشكرا

اخى الحبيب اولا يجب الاخذ فى الاعتبار المحافظة على نهج واسس وقوانين المنتدى فهذا التساؤل لا علاقة له مطلقا بالموضوع 
هذا اولا 

ثانيا  وبالعودة لعنوان الموضوع هذا مرفق اخر بطريقة مختلفة 

اولا الاستعلام يحتوى على طريقتين 
-  by mr Shivan Rekany   طريقة الاستاذ @Shivan Rekany
- from modul                  الطريقة الجديدة وتعتمد على استبدال الحروف عن طريق الكود المستخدم فى الموديول    Module1

 

الكود هو 
 

Function change_characters(str_Name As String) As String
    
    str_Name = Replace(str_Name, "أ", "ا")
    str_Name = Replace(str_Name, "إ", "ا")
    str_Name = Replace(str_Name, "آ", "ا")
    str_Name = Replace(str_Name, "ة", "ه")
    str_Name = Replace(str_Name, "ى", "ي")
    change_characters = str_Name
    
End Function

,وهذا الكود الذى تم استخدامة على زر الامر لتغيير حالى الاحرف دفعة واحدة 
 

DoCmd.RunSQL "UPDATE [Table] SET [Table].NAME = change_characters([NAME]);"

 

تغير حالات الاحرف.rar

[النهر العطشان]

شكرا استاذ ابا جودى :

استاذي الفاضل اولا اعتذر على سؤالي السابق وكما يقال (سقط سهوا) فحدث ذلك بدون قصد فقد قطع النت عندي اثناء الكتابه واعتقد حدث هذا الالتباس

اكرر اسفي .

وثانيا شكرا للطريقة الثانية فهي جميله جدا وهي بالضبط المطلوب .

جعلها الله لك استاذي والاساتذه الكرام في ميزان حسناتكم وشكرا

[ابو جودي]

19 دقائق مضت, النهر العطشان said:

شكرا استاذ ابا جودى :

استاذي الفاضل اولا اعتذر على سؤالي السابق وكما يقال (سقط سهوا) فحدث ذلك بدون قصد فقد قطع النت عندي اثناء الكتابه واعتقد حدث هذا الالتباس

اكرر اسفي .

وثانيا شكرا للطريقة الثانية فهي جميله جدا وهي بالضبط المطلوب .

جعلها الله لك استاذي والاساتذه الكرام في ميزان حسناتكم وشكرا

بدون اعذار اخى الكريم انا لك ناصح امين فقد يعرضك عدم الامتثال لقواعد المشاركات لاغلاق موضوعك 

ثانيا الطريقة الاولى والثانية مثل بعضهم البعض فلا افضلية فى شئ الاتنين واحد الاسهل ليك اشتغل بيها