16-01-15, 11:05 PM
[quote='محمد العبيدي' pid='52899' dateline='1421423173']
على حسب علمي يجب ان تستخدم دالة الReplace وتستبدل حروف أ و إ بحرف ا ويجب ان تعمل هذه الطريقة عند الاضافة ايضاً لغرض توحيد عملية الادخال
او انك تضع الكود التالي في الاداة Text لمنع المستخدم من ادخال الحروف أ و إ
[/qu اولا اشكرك اخي كثيرا الحقيقه دورت عالحل كثيرا لكن لم اجد الحل اشكرك
لكن اخي هسه هذا الكود اذا كان الادخال في تكست بوكس لكن اني عندي الادخال في inputbox كيف ستكون البرمجه
ولقد ارفقت لك صوره لكي تكون الصوره واضحه
تحياتي لك
على حسب علمي يجب ان تستخدم دالة الReplace وتستبدل حروف أ و إ بحرف ا ويجب ان تعمل هذه الطريقة عند الاضافة ايضاً لغرض توحيد عملية الادخال
او انك تضع الكود التالي في الاداة Text لمنع المستخدم من ادخال الحروف أ و إ
كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("أ") Or KeyAscii = Asc("إ") Then KeyAscii = Asc("ا")
End Sub[/qu اولا اشكرك اخي كثيرا الحقيقه دورت عالحل كثيرا لكن لم اجد الحل اشكرك
لكن اخي هسه هذا الكود اذا كان الادخال في تكست بوكس لكن اني عندي الادخال في inputbox كيف ستكون البرمجه
ولقد ارفقت لك صوره لكي تكون الصوره واضحه
تحياتي لك
