كيفية التحكم في بيانات كل حقل حسب التنسيق؟

[محمدحمدي]

السلام عليكم ورحمة الله وبركاته

لو عندنا قاعدة بيانات

فيها حقول عبارة عن

1- رقم

2- نص

3- تاريخ

عند ادخال بيانات في حقل تاريخ مثلا غير التاريخ

او ادخال نص في حقل من نوع رقم

تظهر رسالة من الاكسس

أن القيمة المدخل لهذا الحقل خير صالحة

كيف اتحكم في ذلك بحيث اجبر المستخدم برسالة بهذا الخطأ

بدلا من رسالة الاكسس

عند ادخال نص في حقل رقم

تظهر رسالة يجب ادخال رقم

وبالمثل عند ادخال نص في حقل تاريخ

تظهر رسالة يجب ادخال تاريخ

وايضا اذا كان حقل اريد ان يكتب فيه باللغة الانجليزية تظهر رسالة تفيد ذلك

وهكذا،،

db1.rar

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

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

 

بص انا بالصدفة سألت نفس سؤالك اليوم ووضعته فى المواضيع انا لاقيت حل فى الموقع هنا يلبى طلبك وطلبى

ولكن ننتظر رسالة اذا كان الحقل تاريخ ...........

اليك الرابط
http://www.officena.net/ib/index.php?showtopic=36516

[محمدحمدي]

فعلا لسة التحكم في التاريخ

والتحكم في اللغة اذا كانت عربية او انجليزية....

[محمدحمدي]

وجدت هذا المثال في احد المنتديات

ارفقه للافادة

بقي طلب أخير هو التحكم في حقل التاريخ،،،

تحديد نوع المدخلات في مربع النص up.rar

[ابوخليل]

http://www.officena.net/ib/index.php?showtopic=36615#entry194029

[محمدحمدي]

بالضبط يا اخ ابو خليل
شكرا للاضافة ..

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

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

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

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

[ابوخليل]

جزاك الله خيرا اخي مصطفى واثابك  وجعله في موازين اعمالك

 

اضافة وزيادة فائدة :

هذا الكود عام لجميع الأخطاء التي تقع ضمن النموذج ، ويتم تخصيص الخطأ  باستبدال الرقم  الظاهر في الكود برقم الخطأ المطلوب

ولمعرفة هذه الاخطاء:

هذه مشاركة يوجد فيها تطبيق يتم فيه البحث عن الاخطاء بأرقامها  http://www.officena.net/ib/index.php?showtopic=39825#entry222470