شايب

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

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

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

انا عملتها وفقا للمثال في النموذج وبالنسبة لي لا افضل استخدام اي من دوال المجال في الاستعلام لانها تجعل الاستعلام بطيء التنفيذ اذا كان عدد السجلات كبير ويمكن الاستغناء عنها باستخدام صلة بين الجدولين في الاستعلام هذا حسب فهمي للامر اما بالنسبة لاستخدامها في الاستعلام فان الطريقة الاسهل من تحويل الامر الى دالة عن طريق جمع الحقلين مع بعضهما والمعيارين ايضا مع بعض ليكون الامر 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, "'", "_") ايضا استخدام رسائل معالجة الاخطاء وتحديد الاجراء عند حدوث خطأ ونكتفي بهذا القدر عن الرمز (') وقد نتحدث غن رمز اخر لايقل خطورة والله الموفق الشايب

حسن في كل عين من تود الحقيقة من تجربة لانظمة التشغيل من dos 3 الى ويندوز 11 اقول لا يوجد نظام تشغيل من مايكروسوفت يمكن مقارنته بويندوز 11 وخصوص الاصدار 24H2 والحديث عن المزايا يستغرق الكثير من الوقت وعليه اكتفي ببعض المزايا دون الدخول في التفاصيل الامان المحسن ولا يقتصر على مراقبة السلوك المشبوه لبعض التطبيقات وانما يتطلب توفر امكانية التمهيد الامن وكذلك tpm2 وهي معيار امان لتخزين مفاتيح التشفير والشهادات بشكل آمن ويوفر التحقق من سلامة النظام الأساسي قبل الاقلاع دعم افضل للذكاء الصناعي تكامل تام من اجهزة الهاتف تلقي مكالمات وارسال واستقبال الرسائل ونقل الملفات واستعراضها بدون برامج اضافيه يقدم افضل تجربة لمحبي الالعاب ادارة افضل للذاكرة ويقدم كذلك تحسين على نظام الذاكرة الظاهرية وخصوصا عند استخدام اقراص m.2 من الجيل الرابع او الخامس لوحة الاشعارات والتنبيهات افضل و من خلال مكان واحد ويمكن التحكم فيها وتحديد الاشعارات المرغوب بها وايقاف اي تطبيق لا ترغب في تمكين اشعاراته ويمكن تخصيص وقت لعدم الازعاج لوحة المفاتيح المدمجة يمكن تكبيرها وتعديلها وفقا لاحتياجك وهي مفيدة لمن لايملك لوحة مفاتيح تحويل اي صورة الى نص بدون الحاجة الى برامج وتعمل بشكل ممتاز مع اللغة العربية ادارة المهام افضل ويمكن البحث عن اي تطبيق بدون الحاجة لاستعراض كافة التطبيقات يمكن تفعيل Sudo وهي ميزة تسمح للادمن بالحصول على امتيازات وتحكم اكبر في النظام و هذه الميزة يعرفها كل من لدية خبرة بانظمة التشغيل المستندة على منصة Linux مثل اوبنتو وديبيات وفيدورا ومينت وغيرها من هذه التوزيعات مستكشف الملفات افضل ويمكن فتح عدة تبويبات والتنقل بينهم بكل سهولة توجد العديد من التحسينات مثل الوضع المحمي للطباعة ميزة مفيدة للشركات وبيئات تعدد المستخدمين وكذلك ميزة عدم التشتيت من خلال التحكم في الاشعارات والتنبيهات وغيرها من مميزات ولكني اكتفي بما سبق و للحصول على افضل تجربة تجنب استخدام نسخ معدلة وان يكون جهازك يحقق متطلبات تشغيل ويندوز 11 وعدم استخدام نسخ تسمح بتجاوز متطلبات التشغيل باستخدام برنامج Rufus او اي برنامج مشابه تسمح بتجاوز هذه المتطلبات والنصيحة الذهبية عدم استخدام الكراك او الكيجن والحرص على تحديث النظام . اخيرا بعض المستخدمين لا يستطيع التاقلم مع الواجهة الجديدة وهذه ليست مشكلة في النظام. الشايب

مبروك استاذ @Foksh خطوة موفقة الموقع يحتاج فعلا الى تجديد الدماء و اختيار عقليات واعية تجدد في طريقة الادارة والاشراف مع تمنياتي لك بالتوفيق تحياتي

الف مبروك استاذ @Ahmos الامر ليس مستغرب بل اني سبق ان اشرت وتوقعت ذلك في مداخلة مع احدهم منذ عام تحياتي

ايضا من الافكار اذا رغبنا في عدم تغيير طريقة الاخ حسين وحيث يشير الى عدم الرغبة في استخدام الماوس والكتابة مباشرة هنا يمكن برمجة احد مفاتيح الكيبورد لنقل الركيز للنموذج If KeyCode = vbKeyF4 Then Forms!list.SetFocus End If مع ان الحل المقدم منكم افضل تحياتي

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

في حلكم استخدمتم OpenArgs لتمرير اسم التقرير في امر فتح نموذج ليست ومن ثم يمرر الاسم لفتح التقرير واعتقد انه يمكن الوصول للنتيجة بدونها مع اني لاحظت انه باستخدام طريقتكم بتمرير اسم التقرير فتح التقرير يكون اسرع بفارق بسيط وربما اكون واهم تحياتي Database1101.accdb