17-01-15, 06:59 AM
(آخر تعديل لهذه المشاركة : 17-01-15, 07:09 AM {2} بواسطة محمد العبيدي.)
اخي العزيز في حالة ان الادخال في InputBox فانت لاتستطيع اجبار المدخل على ادخال ا بدون همزه ولكن تستطبع تحويل الحرف الذي ادخله اين كان الى ا فقط ضع هذا الكود في سطر البحث الموجود في كودك
كود :
n = Replace(Replace(n, "إ", "ا"), "أ", "ا")
ST.MoveFirst
ST.Find "FourNS='" & n & "'"