شايب

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

قي الأمثال الشعبية مثل دارج " المعنى في بطن الشاعر" قال المتنبي أنامُ مِلْءَ جُفُوني عَنْ شَوَارِدِهَا ... وَيَسْهَرُ الخَلْقُ جَرَّاهَا وَيَخْتَصِمُ لذا فان تعليقي يقتصر على عيبين من عيوب الشعر اختلال الوزن العروضي الاقواء وهو ان تختلف حركة الاعراب لاحد الابيات عن البقية وقد يُخطِئُ الرَّأْيَ امرؤٌ وهْو حازِمٌ ... كما اختلَّ في وزنِ القَريضِ عَبيدُ الحمد لله اخي محمد نور الموقغ بعودتكم 🌹 الشايب

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

مع ان االاخ شايب يفضل العمليات الحسابية في النموذج للحقول المحسوبة ولكن كما تريد ما يحتاج تعدل الاستعلام جرب المرفق الشايب test(1).accdb

الاخ شايب ينصح بالغاء العمليات الحسابية من الاستعلام ونقلها للنموذج وسوف تختفي الرسالة الشايب

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

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

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

لان هذا الي انا فهمته وقد اشرن الى ذلك الشايب

انا عملتها وفقا للمثال في النموذج وبالنسبة لي لا افضل استخدام اي من دوال المجال في الاستعلام لانها تجعل الاستعلام بطيء التنفيذ اذا كان عدد السجلات كبير ويمكن الاستغناء عنها باستخدام صلة بين الجدولين في الاستعلام هذا حسب فهمي للامر اما بالنسبة لاستخدامها في الاستعلام فان الطريقة الاسهل من تحويل الامر الى دالة عن طريق جمع الحقلين مع بعضهما والمعيارين ايضا مع بعض ليكون الامر Dim i i = DLookup("[date2]", "[tbl2]", "[date2]& [user_id]=#" & Me.text1 & "# &'" & Me.text2 & "'") MsgBox i او استخدام تعديل الاستاذ ابو احمد فهو الافضل الشايب

ماشاء الله يا ابا احمد فكرتي دائما عندما يكون هناك اكثر من معيار يكون سطر لكل معيار اسهل في المراجعة Dim i As Variant Dim strWhere As String strWhere = "[date2] = " & Format(Me.text1, "\#mm/dd/yyyy\#") strWhere = strWhere & " and [usr_id]='" & [text2] & "'" i = DLookup("[date2]", "[tbl2]", strWhere) MsgBox i الشايب

افتح النموذج في عرض التصميم وفي تبويب بيانات في خصائص النموذج في خانة ادخال بيانات اختر لا شاهد الصورة

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

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

في المعايير النصية لبعض الاستعلامات نستخدم WHERE U_UserName = '" & strUser & "' AND U_Password = '" & strPass & "'") وكذلك الحال في دوال تجميع المجال "[U_FullName]='" & [tx3] & "'") ايضا عندما نضع معيار نصي لفتح فورم من خلال فورم اخر DoCmd.OpenForm "frm2", , , "[U_UserName]='" & [tx2] & "'" وكذلك الحال عند الفلترة بمعيار نصي DoCmd.ApplyFilter , "[U_UserName]='" & [tx9] & "'" وحيث ان الحقول النصية تقبل كتابة أي احرف أو أرقام أو رموز خاصة وبالتي يمكن توظيفها بطريقة معينة لتنفيذ اجراء غير شرعي الحقيقة التي يعلمها اي شخص لديه خبرة في الحماية أن الرموز الخاصة ورسائل الخطأ غير المعالجة تمثل الطريق الأسهل للاختراق في الحالة الاولى معيار نصي في استعلام يمكن تسجيل دخول غير شرعي بكافة صلاحيات مستخدم رقم 1 ويمكن تنفيذ استعلام حذف او الحاق او او ... الخ في حالة رقم 2 مع دوال تجميع المجال يمكن تنفيذ الدالة دون معرفة المعيار وتعود باول او اخر او اكبر سجل وفقا لنوع الدالة في الحالة الثالثة نحتاج أحيانا لفتح فورم وإحضار بيانات محددة للعرض و يمكن من خلال توظيف الرمز فتح الفور مع اول سجل او كافة السجلات ويمكن استعراضها والتنقل بينها هنا لا داعي لمعرفة المعيار فقط رموز ونجوم يتم كتابتها بطريقة معينة وكذلك في الحالة الرابعة الفلترة يمكن فلترة كافة البيانات والتنقل بدون الحاجة لمعرفة المعيار والسؤال هل هذا هو الرمز الوحيد الذي يمكن استغلاله (') الاجابة لا ولكن ركزنا عليه لكونه الأكثر استخدام في قاعدة البيانات اخيرا هل يمكن انهاء المشكلة وخصوصا ان الرمز مطلوب للمعايير النصية نعم يمكن بتتبع المدخلات للحقول النصية المرتبطة باجراء ومن اسهل الطرق استخدام دالة Replace strPass = Replace(Me.U_Password, "'", "_") ايضا استخدام رسائل معالجة الاخطاء وتحديد الاجراء عند حدوث خطأ ونكتفي بهذا القدر عن الرمز (') وقد نتحدث غن رمز اخر لايقل خطورة والله الموفق الشايب