رسالة تنبية لإدخال تاريخ او ارقام او حروف فى الحقل

[مصطفى القمّاش]

السلام عليكم شباب ..........

 

تواجهنى مشكلة وهى انى اريد رسالة تظهر عند ادخال قيمة معينة فى حقل وهذا الحقل لا يقبلها بمعنى اوضح

فى حقل الاسم ...... يجب ان تكون حروف فقط ولو ادخلت اى شئ غير الحروف تظهر رسالة تطلب منى ان ادخل حروف

وكذلك الحال فى حقل الرقم" Number class"  يجب ان تكون ارقام فقط وتظهر رسالة تطلب ادخال ارقام فقط

وكذلك الحال بالنسبة لحقل التاريخ "join date" تظهر رسالة تخبرنى اننى يجب ان ادخل تاريخ فقط اذا ادخلت حروف او غيرها

اليكم المرفقات

 

 

school.rar

[محمدحمدي]

http://www.officena.net/ib/index.php?s=9da68385dd92c0a2c9013f0a7cd36511&showtopic=47236

 

هو نفس ما ابحث عنه ،،

[مصطفى القمّاش]

وجدت حل والحمدلله فى الموقع ولكن فى انتظار اذا كان الحقل تاريخ واريد رسالة تظهر اذا دخلت قيمة غير التاريخ

 

 

 

للارقام والحروف فقط

http://www.officena.net/ib/index.php?showtopic=36516

[محمدحمدي]

الكود المستخدم للتمييز العددي

وليس للنص

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

لانه سيعتبر التاريخ رقم

لكنه يفي بالغرض أكيد

اعتقد ان الخبراء بامكانهم تطويع كود شامل

للنصوص والارقان وكذلك نوع اللغة

[مصطفى القمّاش]

فى انتظار مساعدة الخبراء ان شاء الله

[مصطفى القمّاش]

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

هذا الكود يوضع فى "حدث عند الخطأ" للنموذج

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Ok = "موافق"
MessageBoxH Me.hwnd

Select Case DataErr
Case 2113
MsgBox "البيانات المدخلة غير صحيحة", vbOKOnly, "تنبية!!"

End Select

Response = acDataErrContinue

End Sub

تم تعديل يونيو 16, 2013 بواسطه مصطفى القمّاش