منع ترك مربع النص فارغًا أو غير مكتمل الإدخال

[faife]

أخواني الأعزاء .. السلام عليكم ورحمة الله وبكاته

عندي مجموعة من الاستفسارات واتمنى أن أجد الحل كما تعودنا منكم

أولا: عندي نموذج وبه حقل إدخال رقم السجل المدني وأريد ان أن اضع رسالة للمستخدم تقوم بما يلي

-تمنع المستخدم من ترك الحقل فارغ

-تنبه المستخدم عند كتابة أقل من عشرة أرقام

-منع المستخدم من الانتقال للحقل التالي عند حدوث الأخطاء السابقة

مع العلم أن حقل السجل المدني قابل للتكرار وليس مفتاح اساسي

ثانيا: عندما أريد أن اضع أكثر من أمر في زر الأمر الواحد كفتح نموذج وإغلاق نموذج اخر هل يفضل أن استخدم الماكرو لتنفيذ العملية أو الكود . وما هو الكود الصحيح لتنفيذ أمر فتح نموذج وإغلاق آخر .

ثالثا: كيف ألغي أو اخفي أزرار إطار قاعدة البيانات ( زر الإغلاق والتكبير والتصغير ) بحيث لايمكن استخدامها من قبل المستخدم للبرنامج أي ان المستخدم لا يستطيع الخروج من البرنامج إلا عن طريق النموذج الرئيسي. وبدون إستخدام خاصية ملئ الشاشة للنموذج الرئيسي

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

أخي العزيز بخصوص السؤال الأول يمكنك عمل ذلك بأستخدام قاعدة if then

السؤال الثاني

عندما أريد أن اضع أكثر من أمر في زر الأمر الواحد كفتح نموذج وإغلاق نموذج اخر هل يفضل أن استخدم الماكرو لتنفيذ العملية أو الكود . وما هو الكود الصحيح لتنفيذ أمر فتح نموذج وإغلاق آخر .

يا أخي زر أمر واحد ويقوم بفتح وغلق النموذج كيف وترغب في وضع أكثر من أمر في زر أمر واحد كيف يشتغل تبيه يعني يعطي رسالة أختيار أرجو توضيح السؤال

جواب السؤال الثالث

غير خصائص النموذج كالتالي

وضع الكود التالي في حدث عند الفتح

DoCmd.Maximize

وتقبل تحياتي

أخيك سهل أحمد ( ابو نعيم )

[faife]

شكرا أخي أبو عقيل على هذا الرد وبارك الله فيك...

وارجو أن يتم إدراج كود للسؤال الأول للتوضيح

أما بالنسبة لسؤالي الثاني فإنني لا أقصد فتح وغلق نفس النموذج ..

وسأضرب لك مثال (ماكرو فيه امرين فتح نموذج السجلات وإغلاق النموذج الرئيسي) ما هو الكود اللذي يقوم بعمل الماكرو السابق

[yr_20]

docmd.openform"اسم النموذج المراد فتحه"

docmd.maximize

docmd.close acform,"اسم النموذج المراد غلقه"

[رامي]

السلام عليكم

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

حاولت استخدم جملة is not null

حيث وضعتها في خانة قاعدة التحقق من الصحة للحقل

وضعت رسالة تظهر في حال عدم تتطابق الشرط في خانة نص التحقق من الصحة

ولكنها لم تضبط عند مرور على الحقل وتركه قارغا

ولكن اذا ادخلت قيمة في الحقل ثم حذفتها واذهب للحقل التالي وجدت ان الكود يضبط وتشتغل الرسالة !!!

ولكن لما ذا لم تضبط في المرة الاولى ؟؟!!!!

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

0

[فتى الوادي]

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

استخدم هذا الكود عند حدث عند الخروج من حقل ( الرقم )

If IsNull(Me.الرقم) Then
MsgBox "عفواً لقد ترك حقل الرقم فارغاً .."
Cancel = 1
DoCmd.GoToControl "الرقم"
Else
End If

[رامي]

حياك الله اخي العزيز فتى الوادي وسلمت يدك

الحمدلله ضبطت بفضل الله ثم بفضلك جزاك الله خيرا

[الدكتور خضر الرجبي]

السلام عليكم

حل جميل جدا من أخي فتى الوادي ، بارك الله فيك

أخي رامي ، بارك الله فيك

حيث وضعتها في خانة قاعدة التحقق من الصحة للحقل

إذا كنت مصرا على ذلك استخدم الاقتران nz .

مثال

=nz(x,0)<>0

في هذه الحالة إذا كانت قيمة x = null فإن رسالة التحقق من الصحة تظهر .

مع الاحترام