شايب

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

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

في العادة الحد الافصى لطول لكيبل الشبكة من نوع cat6 و cat7 و cat8 بحدود 100 متر بشرط ان يكون الكيبل من نوعية جيدة ومعزول بشكل صحيح والفرق بينهم يكون في سرعة النقل وعرض النطاق وكلما زاد طول الكيبل تقل السرعة ويزداد التشويش وفقد البيانات فمثلا كات6 يمكن الحصول على السرعة القصوى اذا كان الكيبل اقل من 55 متر وكات 7 في حدود 30 متر فقط اما الكات 8 فالحد الاقصى للحصول على سرعة نقل كاملة يتطلب ان يكون طول الكيبل لا يزيد عن 100 متر لذا عند زيادة المسافة عن 40 متر يتطلب استخدام سويتشات من نوعية تدعم السرعة المناسبة لنوع الكيبل ويستثنى الكات8 حيث يمكن وضع سوتشات كل 90 متر في جميع الاحول لمسافة 1000 متر او اكثر يكون استخدام هذا النوع من الكيابل والسويتشات امر غير مجدي واعتقد ان الخيار الامثل استخدام كيابل الفايبر حينها لن يكون هناك فقد للبيانات والاهم لن يكون هناك اختناق او عنق زجاجة يمكن للكيبل الفايبر الاحادية نقل بيانات لمسافة 100 كيلو متر او اكثر عند بناء الشبكة نهتم بسعة النطاق اكثر من الاهتمام بالسرعة سعة النطاق لكيبل cat8 وهو افضل كيبل من سلسلة كات فقط 2000 ميجا هيرتز بينما في الفايبر تكون سعة النطاق ما بين 40 الى 100 جيجا في الثانية انا هنا اتحدث الكيابل احادي الوضع والله الموفق

احسنت اخي جعفر بهذة الطريقة يبقى الفورم في المقدمة دائما ويمكن وضع القيمة مباشرة في البارميتر الخامس ليكون الامر DoCmd.OpenForm "FINISHED CAED", , , , , 3 او تجاوز البارامترات وكتابة الامر DoCmd.OpenForm "FINISHED CAED", WindowMode:=3 اخونا الشايب

يعمل بدون مشاكل Windows 11 Pro الاصدار 24h2 واوفيس 2021 " 64 بت" فقط عدلت ليتوافق مع اصدار 64

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

بعد تنفيذ الاستعلام 4 مرات

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

محاولة الشايب

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

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

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

هذه تجربة الاخ شايب عدد السجلات المؤشرة بعد تنفيذ الاستعلام 4998 سجل جعفر 1 خارج المقارنة وذلك بسبب الاستاذ خليفة يتم اختيار سجل واحد كل مره كود الاستاذ ابو عارف 1 يختار سجل واحد وايضا كان هناك اشكاليات تمت الاشارة اليها في ثنايا الموضوع كود الاستاذ ابو عارف 2 يستغرق وقت طويل ثم اضطررت الى اغلاق الملف بشكل اجباري كود حبيبنا محمد استغرق ثانية واحدة تقريبا كود جعفر 2 تقريبا نفس الوقت بحدود ثانية تقريبا ماتم ذكره تجربة للتشغيل ولايمكن اعتباره مقارنة مبنية على اساس علمي وربما بعض الاكواد كتبت لمعالجة جزئية محددة لذا فان المقارنة هنا ليست عادلة على الاقل من وجهة نظر الشايب اخيرا تم التشغيل على جهاز قديم متوسط المواصفات معالج i9 الجيل العاشر و128 جيجا رام ونظام تشغيل ويندوز 11 الاصدار 24H2 والله الموفق الشايب

ممتاز لم اجد اي خطأ وعالج مشكلة التعديل من الجدول استاذ يا ابا عارف 🌹 اخونا الشايب

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

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

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

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

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

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

الحقيقة انه يمكن تجاوز الامر من خلال حقن الامر في الحقل النصي empID في نموذج تسجيل الدخول الفكره كلها باستخدام ' '=' ' حيث ان نتيجة 'x'='x' دائما تساوي صواب وبالتالي نستطيع خداع الاستعلام في هذا المثال لمعلمنا واستاذنا يمكن اغلاق الثغرة بعدة طرق طالما ان الاستاذ استخدم ارقام فقط لكلمة المرور فيمكن تغيير الحقل في الجدول الى نوع رقم وتغيير مايلزم في الكود الاستغناء عن الكود باستخدام دالة العد مع تغيير مايلزم استخدام متغيير نصي ثم استخدامة في الكود مع دالة Replace ليكون الكود النهائي Dim x As String x = Replace(Me.EmpID, "'", "_") Set db = CurrentDb Set myset = db.OpenRecordset("tbl_hos", dbOpenDynaset) myset.FindFirst "empID ='" & x & "'" If myset.NoMatch Then MsgBox "كلمة المرور غير صحيحة", vbCritical + vbOKOnly Exit Sub Else guserName = myset!EmpName gUserid = myset!EmpID gHosid = myset!ID DoCmd.OpenForm "Form1" DoCmd.Close acForm, Me.Name End If توجد حلول اخرى ولكن نكتفي بذلك اخيرا انما الاعمال بالنيات والاخ شايب لا يتصيد او يدعى املاه اخونا الشايب

نعم يا استاذنا هذه واحدة وثغرة اخرى من خلال ارسال امر يتجاوز شاشة تسجيل الدخول ولكن لم اقم بتصويرها اخونا الشايب مبتدئ وليس باستاذ ولكن اعتقد انه يكفي مع الاخذ بعين الاعتبار ان اكسس ضعيف في موضوع الحماية واذكر في موضوع سابق من عدة سنوات تحدثنا عن ثغرة مختلفة وقمتم بارسال ملف عالج الموضوع بشكل متميز لذا يعتقد الاخ شايب ان اكواد محمد عصام عصيه على الكسر وخصوصا من شايب مبتدئ تم الاختراق عن طريق حقن النصوص وهنا كتبنا كلمة المرور باسلوب معين وهذه الطريقة ليست حكرا على الاكسس وانما اي استعلام لم يتم اخذ الاحتياطات الخاص ببعض الحروف والرموز كتبت x' or 'x'='x او اي كلمة المهم توظيف الرمز . بشكل صحيح ممتاز 👍 اخونا الشايب

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

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

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