كيف اجبر المستخدم على كتابة حروف بطريقة معينة؟!!

[محسن سرحان]

عندي نمودج به اسم الطالب

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

1- ا "الف بدون همزات "

2-في نهاية الكلمة لو بها هـ مربوطه تُكتب ة تاء مربوطة

3-في نهاية الكلمة لو بها ي بنقطتين تُكتب ى ياء بدون نقط

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

وشكرا

[jjafferr]

وعليكم السلام أخي محسن 

 

في عدة طرق لعمل اللي تريده ، وانا بكتب لك الابسط:

1. اذا فيك شدة تدخل في البحر واهواله ، فعليك بالقراءة عن Ascii Arabic Charset ، 

2. اما اذا اردت البساطة مثلي ، فاليك التالي:

نفترض ان الحقل اسمه text1 ، ففي الحدث قبل الحفظ ، اعمل له الكود مثل التالي ،

اللي بنعمله وببساطة ، اننا سنطلب من البرنامج بتغيير الحرف الغير مرغوب فيه ، الى حرف مرغوب فيه ، عن طريق الامر Replace ،

وطريقة الامر:

'a=Replace(a,"Old value","New value")
a=Me.Text1
a=Replace(a,"أ","ا")
a=Replace(a,"إ","ا")
a=Replace(a,"ة","ه")
a=Replace(a,"ي","ى")
Me.Text1=a

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

 

 

جعفر

تم تعديل مارس 15, 2015 بواسطه jjafferr

[محسن سرحان]

اشكرك اخي العزيز

[jjafferr]

أخي محسن

 

الرابط التالي يعطيك طريقة اخرى لعمل اللي تريده:

http://www.officena.net/ib/index.php?showtopic=59784&p=383494

 

 

جعفر