هل يوجد كود او طريقة لاخفاء رسالة نص التحقق من الصحة

[ابو جودي]

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

 

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

اولا بناء على ارشادات اخى الكريم  الاستاذ  حسين العربي

وضعت الكود  Is not null  في خصائص الحقل الذي اريد تطبيق الشرط عليه امام قاعدة التحقق من الصحه 

ولكن تظهر رسالة مزعجة 

حاولت الغاء تلك الرسالة وبحثت كثيرا ولم اجد لذلك حل
 

ولا اريد ان اضع رسالة بنفسى فى نص التحقق من الصحة 

كل ما اريده هو العمل بدون ظهور اى رسائل تحذيرية بهذا الشأن

 

ثانيا

تفضل اخى الاستاذ  علي المصري

قائلا لى فى احدى مشاركاته بهذا الخصوص 

 

استخدم الجملة التالية 

DoCmd.SetWarnings False

في البداية للكود

ثم في نهاية الكود

DoCmd.SetWarnings True

 

 

 

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

فلم اجد سوى الكود  Is not null  في خصائص الحقل الذي اريد تطبيق الشرط عليه امام قاعدة التحقق من الصحه 

 

برجاء من اساتذتى الكرام مساعدتى وجزاكم الله عنى كل الخير 

[علي المصري]

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

فلماذا تريد إلغائها

 

فما هي الفكرة التي تريد تطبيقها من وراء ذلك

 

ارفق الملف مع شرح الفكرة

 

 

شكرا جزيلا

[ابو جودي]

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

فلماذا تريد إلغائها

 

فما هي الفكرة التي تريد تطبيقها من وراء ذلك

 

ارفق الملف مع شرح الفكرة

 

 

شكرا جزيلا

 

حاضر يا استاذ على تحت امر حضرتك

انا مشكلتى ان لو فتحت النموذج dataentry الخاص بإدخال البيانات وقفلته حتى مع عدم كتابة اى بيانات

يتم فى كل مره حفظ سجل جديد فى الجدول  database

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

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

وبعد محاولات عديده  جدا جدا

الحل الوحيد اللى منع المشكلة دى عندما فتحت الجدول database   فى عرض التصميم وقمت بتغيير خصائص الحقل A  الخاص بالسيريال نمبر الى  Is not null فى قاعدة التحقق من الصحة

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

ولكن تزعجنى الرسالة جدا جدا الخاصة بنص التحقق من الصحة

 

وحدثت مشكلة اخرى لم الحظها الا الان لو فتحت البرنامج وحاولت تغيير الــ P/N     من القائمة اليسرى من خلال مربع التحرير والسرد يطالبنى بادخال السيريال نمبر اولا 

طبعا دى مشكلة كبيرة لانى احتاج تغير الـ p/n  دون كتابة سيريال 

 

للعلم ظهرت تلك المشكلة بعد اضافة عنصر تحكم علامة الجدوله 

رابط مرفق للبرنامج كاملا كما هو

اغيثونى جزاكم الله خيرا

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

 

تم تعديل ديسمبر 15, 2014 بواسطه اسير الشروق

[ابو جودي]

up
برجاء التعديل على الملف الحالى 
الملف اصغر وتم تلافى بعض الاخطاء فى السابق
 

المطلوب عند فتح الملف واغلاقه  او فتح النموذج  dataentry دون اضافة وادخال اى بيانات عدم حفظ اى شجلات فى الجدول databse

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

الموضوع ده تعبنى جدا جدا جدا ومش لاقى حل حتى الان 

اساتذتى الكرام اطمع فى الحل بدون ظهور اى رسائل مزعجه او تقييدى بادخال بيانات لحقل معين

 

وعندى سؤال لانها فكرة عجزت عن تنفيذها

 

انا مثلا عندى حقل باسم A  ده حقل السيريال نمبر

 

انا عاوز مثلا كود برمجى يقول

 

عند اغلاق النموذج او تحديث بيانات فى النموذج  لو ان الحقل  A  فارغ لا يتم الحفظ لاى سجل  

وفى حالة اضافة  قيمة فى الحقل  A  يتم الحفظ تلقائيا دون مطالبتى باى رسائل تنبيهية تفيد ان الحقل فارغ او تطالبنى بادخال بيانات فى الحقل او حتى تطالبنى بالحفظ

 

 

هل ممكن عمل كود يعمل كده ؟!

 

جزاكم الله خيرا

judu.rar

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته
الحمد لله الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله
يارب لك الحمد حمدا كثيرا طيبا طاهرا مباركا 
يارب لك الحمد كما ينبغى لجلا وجهك ولعظيم سلطانك
الحمد لله الذى تتم بنعمته الصالحات
بعد تعب وسهر وعناء توصلت بفضل الله وحده سبحانه وتعالى الى هذا الكود
فى الحدث BeforeUpdate للنموذج / قبل التحديث
لو الحقل A  فارغ نفذ الشرط الاتى تراجع والغاء لاى حدث 

Private Sub Form_BeforeUpdate(cancel As Integer)
If IsNull(A) Then
Me.Undo
DoCmd.CancelEvent
End If
End Sub

بعد تجربة الكود يتم العمل فى صمت دون ظهور اى رسائل الزامية  او تنبيهات مزعجة وايضا سد ثغرات قد تؤدى الى خطأ فى معالجة البيانات وظهور اخطاء فى النتائج بسبب الحفظ التلقائى

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

وبرغم من بساطته الا انه ممتاز جدا جدا جدا ولم اجد مثله ولا امثله تشبهه فى اى منتدى

فعلا الحاجة ام الاختراع    

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