شايب

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

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

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

تمييز الاعداد من 3 الى 10 يكون جمع مجرور بالاضافة ويخالف العدد المعدود في التذكير والتانيث خمسة ريالات الريال مذكر فتكتب خمسة كما اشار الاستاذ منتصر خمس ليرات ليرة مؤنتة تأنيث لفضي فيكتب العدد خمس الاعداد 1 و 2 يوافق العدد المعدود تذكيرا وتانيثا ويسبق المعدود العدد رجل واحد سيارة واحدة العدد 2 يعرب اعراب المثنى فيرفع بالالف وينصب ويجر بالياء العدد 11 و 12 يطابق العدد المعدود وتمييزهما مفرد منصوب العدد 11 يبنى على فتح الجزاين و12 يعرب اعراب المثنى الاعداد 13 - 19 يخالف الجزء الأول من العدد المعدود والجزء الثاني يطابقه في التذكير والتانيث والتميز مفرد منصوب والعدد مبني على فتح الجزاين حضر خمسة عشر طالبا نجحت ثلاث عشرة طالبة الفاض العقود تعرب اعراب جمع المذكر فترفع بالواو وتنصب وتجر بالياء وتمييزها مفرد منصوب ولا تتاثر بالتأنيث والتذكير قرأتُ عشرينَ كتاباً شاهدت عشرين طالبا مررت بعشرين طالبا الاعداد 100 و 1000 و الخ تمييزها مفرد مجرور بالاضافة لماذا هذه المشاركة ربما ينتفع بها احدهم املاه اخونا الشايب

السلام عليكم بداية التصميم الاخير رائع جدا والبرنامج فكرته ايضا جميلة ندخل في الموضوع بعد تردد في وضع المشاركة قررت بعد التوكل على الله ان اضع هذا الرد تأسيا بقول المولى عز وجل على لسان سيدنا شعيب عليه السلام "إِنْ أُرِيدُ إِلَّا الْإِصْلَاحَ مَا اسْتَطَعْتُ ۚ وَمَا تَوْفِيقِي إِلَّا بِاللَّهِ" ومشاركتي تقتصر على نظام تسجيل الدخول حيث يمكن تجاوز كلمة المرور من خلال الرموز حيث ان 'x'='x' دائما true وبالتالي لا نحتاج الى معرفة كلمة المرور سبق ان اشار الاخ شايب الى ثغرات الرموز وتحدث عن رمز واحد ولم يستكمل بقية الرموز استغلال رسائل الخطأ غير المعالجة ونتعمد الحصول على رسالة ننفذ منها الى محرر الاكواد وتعطيل جزئية التحقق ويمكن معالجة ذلك باستخدام رسائل معالجة الأخطاء وكذلك عند تحويل القاعد الى accde فلن نتمكن من الاختراق تجاوز شاشة تسجيل الدخول والقفز للشاشة الرئيسية من خلال ملف دفعي ويمكن علاجها بعدة طرق من ايسرها استخدام متغير عام يستمد قيمتها بعد تسجيل الدخول الناجح اخيرا يمكن لمن يملك الصلاحية حذف المشاركة فهذا افضل من التقليل من جهود الاخرين او استنقاص افكارهم او الدخول في النوايا املاه اخونا الشايب

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

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

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

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

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

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

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

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