دالة الاستبدال و تغيير حرف بحرف أخر

[محمد احمد لطفى]

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

فى هذا المثال عندما اريد تغير أخر حرف فى الكلمة 
مثلا ي تتغير الى ى 

T = Replace(T, "ي ", "ى ")

تتغير الكلمات الا الكلمة التى باخر الجمله لأن لا يوجد بعدها مسافة 
كيف يمكن تغير الحرف بالكلمات التى بأخر الجملة

وجزاكم الله خيرا

 

Update.mdb

[Barna]

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

B: Replace([test];"ي";"ى")

 

[Barna]

مشكلة هذا الاستخدام تغير كل اسم فيه ي مثلا أمين يجعلها أمىن وهكذا ....... فاحذر منها ؟؟؟؟؟؟؟؟؟؟؟؟

[محمد احمد لطفى]

29 دقائق مضت, Barna said:

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

B: Replace([test];"ي";"ى")

 

 

23 دقائق مضت, Barna said:

مشكلة هذا الاستخدام تغير كل اسم فيه ي مثلا أمين يجعلها أمىن وهكذا ....... فاحذر منها ؟؟؟؟؟؟؟؟؟؟؟؟

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

[عبد الله قدور]

السلام عليكم

اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb

 

[Barna]

8 دقائق مضت, عبد الله قدور said:

السلام عليكم

اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb

 

ماذا لو كان الاسم علي ......

[عبد الله قدور]

هل عندك طريقة يستطيع الكود من خلالها معرفة إذا كانت ي في آخر الكلمة هي صحيحة ولا يجب استبدالها أم هي خاطئة ويجب استبدالها

للاسف أنا لا أملك هذه الكود

[محمد احمد لطفى]

شكر لك ستاذى @عبد الله قدور
 

3 ساعات مضت, عبد الله قدور said:

السلام عليكم

اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb

 

Function C_Word(T As String) As String
If Right(T, 1) = "ي" Then
T = Replace(T, "ي", "ى")
End If
T = Replace(T, "ي", "ى")
C_Word = T

End Function

هكذا يعمل الكود على كل الكلمات جزاك الله خيرا

[محمد احمد لطفى]

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

ماذا لو كان الاسم علي ......

نستخدم الكود بدون شرط
 

Function C_Word(T As String) As String
If Right(T, 1) = "ي" Then
T = Replace(T, "ي", "ى")
End If
T = Replace(T, "ي", "ى")
C_Word = T

End Function

 

[ابو محمد 316]

السلام عليكم

لو كان عند حقل B في جدول TB1

وكان نوع هذا الحقل رقم 

كيف يمكن ان استبدل الرقم 9 برقم 3  دفعه واحدة في الجدول بحيث يكون حدث في النموذج 

 

بالتوفيق إن شاء الله

 

[محمد احمد لطفى]

19 دقائق مضت, ابو محمد 316 said:

السلام عليكم

لو كان عند حقل B في جدول TB1

وكان نوع هذا الحقل رقم 

كيف يمكن ان استبدل الرقم 9 برقم 3  دفعه واحدة في الجدول بحيث يكون حدث في النموذج 

 

بالتوفيق إن شاء الله

 

يمكن عمل ذلك من خلال الاستعلام او عند اضافة سجل جديد و الله أعلم

[محمد احمد لطفى]

أستاذى @عبد الله قدور

واجهتنى مشكلة 

اذ ان بهذه الطريقة يحذف جميع الياء فى الجملة التى اخرها ياء 
مثلا عيد مصطفي تصبح عىد مصطفى

تم تعديل يناير 16, 2019 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

If Right(T, 1) = "ي" Then

End If

باستخدام الكود اذا كان اخر حرف ي 
أن يتحول هوه فقط الى ى
وجزاكم الله خيرا

[Elsayed Bn Gemy]

السلام عليكم اخى الكريم
هل ممكن ان اتدخل بعد اذن اساتذتنا

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

تصبح 
مصطفي عيد مصطفى
 فقط اخر كلمة فى الجملة  صح كدا ؟؟

[محمد احمد لطفى]

3 دقائق مضت, Elsayed Bn Gemy said:

السلام عليكم اخى الكريم
هل ممكن ان اتدخل بعد اذن اساتذتنا

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

تصبح 
مصطفي عيد مصطفى
 فقط اخر كلمة فى الجملة  صح كدا ؟؟

أستاذى @Elsayed Bn Gemy
صحيح المطلوب تغير اخركلمة فى الجملة اذا كانت ي تتحول الى ى

[Elsayed Bn Gemy]

اذن تفضل اخى الكريم وحدة نمطية صغطها مخصوصا لك

Function LastChar(last_input)
If Nz(last_input, "") = "" Then Exit Function
If Mid(last_input, Len(last_input), 1) = "ي" Then
NewString = Left(last_input, Len(last_input) - 1) & "ى"
LastChar = NewString
Else
LastChar = last_input
End If
End Function

 

طبعا هتضيف  الكود دا فى الاستعلام
 

NewName: LastChar([OldName])

مع تغيير oldname  الى اسم حقل الاسماء

 كما فى الصورة
 

 

 

 

 وهذه صورة من الحل

 

 

شكرا لك

 

تم تعديل يناير 22, 2019 بواسطه Elsayed Bn Gemy

[محمد احمد لطفى]

أستاذى @Elsayed Bn Gemy
جزاك الله كل خير نعم هو المطلوب ممكن اضافة صغيرة 
 

Function C_Word(T As String) As String
T = Replace(T, "ي ", " ى")
C_Word = T
End Function

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

تم تعديل يناير 22, 2019 بواسطه محمد احمد لطفى

[Elsayed Bn Gemy]

تضاف كعمود منفصل عن الجديدة هذا فقط 

لو اضيفت الى الجديدة سيتم تغيير كل حروف الياء المنقوطة الى ياء بدون نقط 

ولكن اخبرنى لماذا تريد عمل ذلك ؟

[محمد احمد لطفى]

أعمل على تنقية بيانات كثيرة و تصادف أن حرف ي فى اخر الكلمة كثير جدا فكنت أكتب كل اسم فى الوحدة النمطية ولكن هذه الطريقة أفضل جزاك الله خيراً أستاذى 
هل يمكن النظر فى هذا الموضوع
https://www.officena.net/ib/topic/88236-وجود-ايقونة-البرنامج-على-شريط-المهام-دائما/

 

تم تعديل يناير 22, 2019 بواسطه محمد احمد لطفى

[Elsayed Bn Gemy]

7 ساعات مضت, محمد احمد لطفى said:

أستاذى @Elsayed Bn Gemy
 

Function C_Word(T As String) As String
T = Replace(T, "ي ", " ى")
C_Word = T
End Function

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

معلش مخدتش بالى من بقية السؤال 

انت عاوز اى حرف ي خلفه مسافة يتم تغييرة 

صح كدا ؟؟

دى محتاجة اختراع وحدة نمطية تانية بجانب اللى معاك  هههههههههههه

فممكن تمهلنى باكر ان شاء الله لانى على الموبايل والله الان 

تم تعديل يناير 23, 2019 بواسطه Elsayed Bn Gemy

[محمد احمد لطفى]

1 ساعه مضت, Elsayed Bn Gemy said:

معلش مخدتش بالى من بقية السؤال 

انت عاوز اى حرف ي خلفه مسافة يتم تغييرة 

صح كدا ؟؟

دى محتاجة اختراع وحدة نمطية تانية بجانب اللى معاك  هههههههههههه

فممكن تمهلنى باكر ان شاء الله لانى على الموبايل والله الان 

صحيح هذا هو المطلوب 
هل يمكن جعل 

LastChar = last_input

LastChar = T

فقط 

[Elsayed Bn Gemy]

السلام عليكم اخى الكريم

اضف هذه الوحدة النمطية  ولا تقم بمسح السابقة  لانهم سيعملو سويا

Function ForSearch(Astr As Variant) As Variant
Dim i As Integer
Dim L As Variant, NewStr As Variant

If Nz(Astr, "") = "" Then Exit Function
Astr = CStr(Astr)

For i = 1 To Len(Astr)


L = Mid(Astr, i, 1)
If L = "ي" And Mid(Astr, i + 1, 1) = " " Then
L = Mid(Astr, InStr(Astr, L), 1)
Select Case Asc(L)
Case 237: L = Chr(236)
Case Else:   L = L
End Select

End If
NewStr = NewStr & L

Next


ForSearch = NewStr

End Function

 

ثم قم بتعديل الاستعلام ليصبح الحقل على هذا الشكل

NweName: LastChar(ForSearch([OldName]))

 

 

 

وهذه صورة من الاستعلام

 

[محمد احمد لطفى]

جزالك الله خير أستاذى @Elsayed Bn Gemy

هل يمكن النظر فى هذا الموضوع عندما يتثنى لك الوقت 
 

اقتباس

 

 

[figo82eg]

اقتباس

LL

في ٢٣‏/١‏/٢٠١٩ at 10:39, Elsayed Bn Gemy said:

السلام عليكم اخى الكريم

اضف هذه الوحدة النمطية  ولا تقم بمسح السابقة  لانهم سيعملو سويا

Function ForSearch(Astr As Variant) As Variant
Dim i As Integer
Dim L As Variant, NewStr As Variant

If Nz(Astr, "") = "" Then Exit Function
Astr = CStr(Astr)

For i = 1 To Len(Astr)


L = Mid(Astr, i, 1)
If L = "ي" And Mid(Astr, i + 1, 1) = " " Then
L = Mid(Astr, InStr(Astr, L), 1)
Select Case Asc(L)
Case 237: L = Chr(236)
Case Else:   L = L
End Select

End If
NewStr = NewStr & L

Next


ForSearch = NewStr

End Function

 

ثم قم بتعديل الاستعلام ليصبح الحقل على هذا الشكل

NweName: LastChar(ForSearch([OldName]))

 

 

 

وهذه صورة من الاستعلام

 

اقتباس

اقتباس

ممكن اخلى الكريم إضافة الوحدات النمطية المذكورة بمثال لأنى حاولت كثير أن اتبع التعليمات ولكن لم انجح

 

 

 

[محمد احمد لطفى]

6 ساعات مضت, figo82eg said:

 

تفضل

Update.mdb