شايب

تستاهل كل خير ياشايبنا 🌹

بداية مع التحية والتقدير للاستاذ @M.Abd Allah على جهوده فان الاخ العزيز شايب يعتقد ان وضع معيار بشكل مباشر في محرر الاكواد وهو هنا كتابة السنة امر غير صحيح ولا ينصح به لان المستخدم للبرنامج مجرد مدخل بيانات وكان الاجدى ان تستخلص السنة من التاريخ وبالتي لسنا بحاجة الى اجراء تعديل على الكود في بداية السنة الجديدة او السنوات التالية وايضا نختصر كتابة الكود ونقلل من الاحتمال مع ذلك هي وجهة نظر غير ملزمة اخونا الشايب

جرب جلب قيمه1.accdb

غير نوع المتغير من نوع نص الى متنوع وبالتالي نبدل السطر الاول الى Dim currentText As Variant اخونا الشايب

سؤال بسيط ولكن الاجابة ليست بتلك السهولة في البداية لا اخفي اعجابي بطريقة الاستاذ @M.Abd Allah في كتابة الكود على الرغم من وجود الثغرات واعتقد ان وجوده مكسب كبير للموقع الاجابة نعم ممكن معالجة ثغرة الحقن وسبق ان تمت مناقشة الامر مع الاخ جعفر وقد قدم وقتها حل حاز على رضى السائل !! وهذا المهم في النهاية ولكن اخونا شايب يعتقد ان الموقع يحتوي على امثلة متميزة يمكن ان تكون اكثر امان الشايب

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

نعم ممكن استبدل كود الاخ جعفر بالتالي Dim I_am_Empty As String, Set_Focus_On_Me As Control Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox And ctl.Visible = True Then If Len(ctl.Value & "") = 0 Then I_am_Empty = I_am_Empty & vbCrLf & ctl.Controls.Item(0).Caption Set Set_Focus_On_Me = ctl End If End If Next ctl If Len(I_am_Empty & "") <> 0 Then Cancel = True MsgBox "رجاء تعبئة الحقول الفارغة التالية" & I_am_Empty Set_Focus_On_Me.SetFocus Set ctl = Nothing: Set Set_Focus_On_Me = Nothing Exit Sub End If طبعا التعديل في السطرين الرابع والسادس فقط وباقي الكود كما هو اخيرا ممكن اختصار الكود وكتابته بطريقة مختلفة ولكن الاستاذ شايب يكتفي بالتعديل اعلاه الملف مرفق اخونا الشايب user.accdb

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

علما بان اخينا الفاضل شايب سبق ان اشار الى موضوع مشابه في هذة المشاركة ⬇️ الشايب

السلام عليكم اخونا الكبير شايب يعتقد ان طريقة جعفر للعمل على النواتين طريقة شاملة ولكن في مثل هذه الحالة التي واجهت الاستاذ سلوم بعد اضافة Ptrsafe فقط يكفي ان نقوم بتغير اي متغير رقمي من long الى LongLong او الى LongPtr وسوف يعمل البرنامج ويختصر عدة اسطر من الكود اخير LongPtr ليس نوع بيانات حقيقي وانما يتوافق مع الاصدرين 32 و 64 بحيث يتحول الى long مع 32 و longlong مع 64 ايضاح اخير يمكن تقيد فتح النموذج الاخير بحيث لا يمكن فتحه الا من خلال زر الامر بعد كتابة الرمز الصحيح ولكن نكتفي بهذه المشاركة اخونا الشايب رقم سري.accdb

نعم بدون اي تدخل او تحريك

الدقة 3840 * 2160

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

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

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

ربما اخذ الموضوع اكبر مما يستحق ولكن "" لا تعني ان الحقل فارع وانما يحتوي سلسلة ذات طول صفري ولتاكيد ذلك نغير خصائص الحقل الى السماح بطول صفري = لا عندها لو اردنا استخدام ⬇️ فسوف نحصل على رسالة خطأ في "" وكذلك empty اما الخيار الاوسط null فسوف يعمل اخونا الشايب

🙏

صحيح يعطي نتيجة صحيحة ولكن احيانا نرغب في عد الاحرف بدون استخدام الشرط لذا ⬇️ اخونا الشايب

يا هلا استاذ قاسم وكل عام وانتم بخير وسوف احمل المرفق يا هلا استاذنا وكل عام وانتم بخير الحقيقة ان الاولى يعدها اكسس 0 اما البقية فلا يعدها اكسس ونحتاج عند عد احرف الحقل الى استخدام nz حتى لا نحصل على رسالة خطأ الحقيقة ان ⬇️ مجرد تفكير بصوت مرتفع ومع ذلك اعتز بمداخلتكما اخونا الشايب

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

طالما الامر كذلك

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

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

بدون الحاجة لاكواد غير مصدر البيانات للتقرير الرئيسي الى استعلام يساوي SELECT معلومات_1.[اسم الاب], معلومات_1.[رقم الهاتف], معلومات_1.العنوان FROM معلومات, معلومات AS معلومات_1 INNER JOIN الابناء ON معلومات_1.[اسم الاب] = الابناء.[اسم الاب] GROUP BY معلومات_1.[اسم الاب], معلومات_1.[رقم الهاتف], معلومات_1.العنوان; الملف مرفق 1(2).accdb