اجبار الستخدم على كتابة الاسم كاملاً ؟

لقد عملت لك مثالا ولكن الظاهر لا يمكنني إضافة هذا المثال

ضع هذا الكود في حقل الاسم بعد التحديث

If Len(m2) < 13 Then
MsgBox "يجب أن يكون الاسم أكبر من ثلاثة عشر حرفاً !!!", vbOKOnly, "رسالة توضيح"
Me.Undo
Me![أمر1].SetFocus
Me![m2].SetFocus
Else
End If

شاكر

أخي عزيز :

يمكنك اجبار المستخدم على كتابة الاسم رباعيا أو كاملاً

بعمل 4 حقول للإسم ..

الاسم الأول

اسم لأب

اسم الجد

اسم العائلة

هذه الطريقة تضمن لك سهولة ادخال المعلومات وايضا سهولة أوامر البحث

بأي جزء من الاسم .

رغم محاولاتي الا انني اجد هذه الطريقة جيده ولا تنسى ان تجعل شرط الحقول

( مطلوب ) لكي لا يتجاوز المدخل اي حقل

أخوك مايكرو

اخي الكريم

اكتب في خاصيةالتحقق من الصحة

Len([جديد])>13

منقول من ابي حمود اكسس سين جيم

لاخ شاكر الزين / والاخوة MICOR / ABU-RJB

تحية شكر وتقدير

لقد استخدمة الكود الذي ذكرة الاخ شاكر في حقل الاسم بعد التحديث وحققت ما اريد

ولكن اخي شاكر :

عند ظهور الرسالة التحذيرية التي تفيد بان الاسم اقل من 13 حرف اقوم

بالنقر على موافق ثم يتحول المؤشر الى الحقل التالي وبعدها استمر دون ادخال الاسم

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

شاكرا لك ياشاكر

أخي العزيز

Me![أمر1].SetFocus
Me![m2].SetFocus

هذان الامران لكي يرجع المؤشر إلى حقل ( الاسم ) ولا يظهر منه إلا بعد تعبئة

الحقل بأكثر من ( 13 ) حرفا ,,,,,

أنا وضعت في المثال التي عملته حقل واحد وهو حقل ( الاسم ) وأسميته في

النموذج ( m2 ) ،،،، ووضعت فيه أيضا زر أمر أسميته ( أمر1 ) ،،، فعند كتابة أقل

من ( 13 ) حرفا يقوم بالتركيز على زر ( أمر1 ) ,,, والعودة السريعة إلى حقل

( الاسم ) ,,,,,

شاكر

السلام عليكم

لقد اجح كل شي في الحقل

شكر ا كثيراً

حياك الله أخي / AZIZ1389

على الرحب والسعة ،،، إحنا حاضرين للطيبين ,,,

شاكر