منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
سؤالي هو كيف ابحث عن اسم مثلا ابحث عن( أحمد ) بهذه الصيغه واني حافظه نفس الاسم ب(احمد) بدون همزه ...؟
المفروض يعترض البرنامج ومينفذ ..بس لو الموضف اشتبه ودخل الاسم بصؤره سريعه كيف ممكن اعالج هيك مشكله
علما اني الاداه المستخدمه هي ado
مع فائق الاحترام

حل مشكلتك يوجد في هذه المشاركة في ردي الأخير :
http://vb4arb.com/vb/Thread-vb6-0-%D8%B3...8%AD%D8%AB

السلام عليكم ممكن مساعده
كيف ممكن
ا منع المستخدم من ادخال قميه غير رقميه

وشكرا

بعد اذن الاستاذ القدير anan
If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then
KeyAscii = 0
Exit Sub

End If