عدم ترك الخانة في النوذج فارغة

تصميم رائع أخي : حسن قديمي

بالنسبة لعدم ترك الحقل فارغاً أعمل مايلي :-

1- إذهب إلى خصائص الحقل Quty

2- بيانات

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

>=0

4- نص التحقق من الصحة وضع فيها الرسالة التي تريد مثلاً .. يجب عدم ترك الحقل فارغاً

فقط

تحياتي ..

=============

أصبح الواحد منا يطفش إذا أراد أن يكتب رداً لسؤال لما يلاقيه من المتاعب في المنتدى فأحياناً خمس أو ست مرات أحاول الرد ولا أستطيع .

و الله صحيح يا اخ فهد

أشكرك أستاذ سمير على الإطراء الحسن للتصميم ولكن وجدت إجابة على شطر من السؤال والشطر الآخر ؟!!

السؤال الأول : هو عدم ترك الخانة فارغة وأقل قيمة تساوي صفر ؟

السؤال الثاني : عند فتح النموذج لا يستطيع المستخدم من تعديل الفاتورة السابقة ( البيانات ) ويمكنة إستعراضها بالزر التالي - السابق فقط وفي حالة رغبتة في التعديل يطالب برقم سري خاص ؟

أشكرك كثير الشكر والحمد لله قدرت أنا كمان أرد بقـــــــــــــــــــوة ...

أخوكم : حسن قديمي

اخي العزيز فهد الدوسري

تحية عطرة من القلب

أرفقت لك هذا الملف لتشاهد الشرط والمعادلة المطلوبة لعدم ترك خانة الكمية فارغة ولا يستطيع المستخدم تركها فراغة مطلقاً مالم يكتب الرقم صفر

وانا تركت مكان المعادلة المطلوبة او الصيغة الصحيحة لك لتكملها لي باللون الأحمر بشرط أن تجربها لديك حتى أستطيع إنقاذ نفسي من الإفلاس ..!! هاهاه

آسف من شدة إستعجالي تشابكت الأسماء عندي ولكن اعتقد أنكم واحد في نظري إن شاء الله

استبدل السطر الأول من الكود بهذا

If IsNull([الكمية]) Or [الكمية] = "" Then

أما بالنسبة للتعديل

فضع في حدث في الحالي الخاص بالنموذج الكود التالي

Me.AllowEdits = False

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

Dim II
II = InputBox("أدخل كلمة المرور للتعديل في الحقل")
If II <> 123 Then
 MsgBox "الرقم السري خطأ"
 DoCmd.CancelEvent
Else
 MsgBox "يمكنك التعديل الآن"
 Me.AllowEdits = True
End If

غير كلمة السر حسب رغبتك

تحياتي ..

اخي فهد تحيه طيبه

بالنسبه للتعديل

فقلت وضع كود في حدث في الحالي للنموذج .

السؤال هو

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

قد تضعه قبل الكود الموجود مسبقاً أو بعده هذا يترتب على عمل الكود السابق .

وغالباً أن الأكواد إذا عملت بطريقة سليمة فإنه لا يوجد تعارض في عملها .

تحياتي ..

تهانئــــــــــــــــــنا ....

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

الطلب كالتالي

يقوم المستخدم بفتح البرنامج فيقوم طبعاً البرنامج بفتح أول فاتورة تم تسجيلها ( تمام ) وفي هذة الحالة يستطيع المستخدم من التغيير في البيانات السابقة للفاتورة بأي حال من الأحوال

لذا أرغب في الحلين التاليين وهما :-

1- عند فتح النموذج تكون جميع الفواتير غير قابلة للتعديل إلا في حالة الضغط على زر تعديل حيث يطالب المستخدم بكلمة مرور .

2- عند فتح المنوذج ينتقل مؤشر الفارة إلى فاتورة جديدة وطبعاً هذا الحل غير مجدي عملياً لأنة يستطيع إستعراض الفواتير السابقة سواءً بالماوس أو غيرها .

ولديك في أول مشاركة لي بالأعلى صورة من ( نموذج الفواتير )

مع تحياتي الخالصة لكل جهودك المتميزة وأعدك بعرض البرنامج عند إكتمالة في هذا المنتدى حتى تعم الفائدة للجميع ..

آسف على التأخير

هل جربت التعديل سواء في أول فاتورة أو آخرها

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

جرب وأخبرني

تحياتي