اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

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

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

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

Update.mdb

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

نعمل وحدة نمطية اسمها 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])

 

جعفر

  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information