شايب

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

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

حسب فهمي للامر نحتاج فقط الى وضع معيار في حقل رقم المعرف لمصدر مربع التحرير والسرد ونستخدم استعلام فرعي منفي على النحو التالي Not In (SELECT [تفاصيل المنصب].المنصب FROM [تفاصيل المنصب]) الملف مرفق الشايب مثال(4).mdb

جرب المرفق time.accdb عذرا لم اشاهد ردك

ويمكن اختصار الامر الى DoCmd.OpenForm "data1", WhereCondition:="[passenger]='" & [t] & "'"

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

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

بداية مع التحية والتقدير للاستاذ @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 فسوف يعمل اخونا الشايب

🙏

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