عمل وحدة نمطية لتصحيح كلمات فى استعلام

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

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

Replace([test];"مصطفي";"مصطفى")
Replace([test];"يحيي";"يحيى")
Replace([test];"مجدي";"مجدى")
Replace([test];"عبد الحميد";"عبدالحميد")
Replace([test];"محمداحمد";"محمد احمد")

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

Update.mdb

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

للرفع

[jjafferr]

وعليكم السلام

 

نعمل وحدة نمطية اسمها C_Word :

function C_Word(T as string) as string

T=Replace(T,"مصطفي","مصطفى")
T=Replace(T,"يحيي","يحيى")
T=Replace(T,"مجدي","مجدى")
T=Replace(T,"عبد الحميد","عبدالحميد")
T=Replace(T,"محمداحمد","محمد احمد")

C_Word=T

end function

 

وتناديها (على افتراض ان اسم الحقل الذي به المعلومة للتصحيح هو test) :

من الاستعلام
A:C_Word([test])


من النموذج او التقرير
=C_Word([test])

 

جعفر

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

استاذى جعفر بعد اذنك حدث خطأ داخل الاستعلام

Update.mdb

[jjafferr]

يجب ان يكون الاسمين مختلفين

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

جزاك الله خيرا أستاذى