ابا جودى

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

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

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

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

فكرة بره الصندوق على اعتبار ان مصدر البيانات ثابت من 1 الى 35 Test.accdb

وعليكم السلام ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل .. حياكم الله وبياكم اولا وقبل كل شئ اشتاقت لكم نفسى كثيرا ... اسال الله تعالى لكم الصحة والعافية والبركة فى العمر والعلم والعمل والاهل والولد وكل اساتذتى الكرام واخواننا مشاركة مع اساتذتى الأفاضل هذا تطبيقى المتواضع بناء على توجيهاتكم ولكن بما ان اخى الكريم الاستاذ @alzahrani2014 يريد عمل فزر وتصفية فى نموذج تلك فكرتى المتواضعة وحاولت جاهدا امعان النظر والتفكير خارج الصندوق وفى انتظار رأيكم وتوجيهاتكم المرفق يضم بين طياته - نموذج واحد لإجراء الفرز والتصفية على كل البيانات سواء كان السجل سرى أو غير سرى -عند فتح النموذج يتم الفرز والتصفية فقط على السجلات الغير سرية -عند تحديث مربع السرد الخاص بالفرز فى حالة كانت البيانات سرية يتم اخفائها على الفور وتظهر البيانات فقط بكتابة كلمة المرور الصحيحة (123) والا لا ولن يتم عرض البيانت >>---> حيلة وخدعة -التغلب على التنقل بين الحقول بالضغط على زر TAP من لوحة المفاتيح حتى لا يتم استعراض البيانات السرية >>---> حيلة وخدعة -فى حالة الغاء الفرز والتصفية سواء كان السجل الحالى سرى او حتى بعد ادخال كلمة مرور خطأ او حتى كان السجل الحالى لا يحتوى بيانات سرية يتم اليا اجراء تطبيق الفرز على السجلات الغير سرية - طبعا تم التعديل على بنية الحقل sec فى الجدول بتحويله الى حقل رقمى وتم التعديل علية بحيث يتم تحويله الى Combo Box بحيث يكون نوع مصدر بيانات الحقل Value List وقيم الحقل الافتراضية تتكون من -1;"سرى";0;"غير سرى" -تم اضاقة موديول لاخفاء كلمة المرور اثناء الكتابة لتظهر على شكل ***** اترككم مع المرفق b2- Moh3sam.mdb

اضف ايضا تلك الطريقة المتواضعة الى مكتبتك

تنفضل ان شاء الله فى هذا الموضوع تجد ما يسرك

بعد اذن استاذى العزيز ومعلمى القدير الاستاذ @kanory شوف يا دكتور @الحلبي علشـــــــان انا بس بحــــــــبك الاستاذ القدير كنورى حول استعلام التحديث فى المرفق بتاعى بس لكود سيكوال علشان تقدر تستخدمه فى كل النماذج من محرر الاكواد -- طيب ليه حصل مشكلة معاك لان اكيد مربح الاحتيار مش موجود فى النموذج شوف اول مرفق لى للنموذج فى وضع التصميم تجد مربع اختيار مخفى --------- طيب حابب تحول استعلام التحديث لكود داخل روتين عام يستخدم مع اى جدول حتى لو غيرت اسم الجدول او حتى غيرت اسماء الحقول فى الجدول ومع اى نموذج وتنادى عليه لتستخدمه فى زوايا التطبيق اتفضل يا دكتور اعمل موديول وقم بوضع الاسطر الاتية Public Function GoOnUpdatChkBox(ByVal strTableName As String, ByVal strFieldNameUbdt As String, ByVal strFieldNameWher As String, ByVal strXuser As String, ByVal strUpdatChkBox As String) CurrentDb.Execute "UPDATE [" & strTableName & "] SET [" & strTableName & "].[" & strFieldNameUbdt & "] = '" & strUpdatChkBox & "' WHERE [" & strFieldNameWher & "] = '" & strXuser & "' ;" strTableName = vbNullString strFieldNameUbdt = vbNullString strFieldNameWher = vbNullString strXuser = vbNullString strUpdatChkBox = vbNullString End Function وفى النموذج ضع الكود الاتى على زر الامر تفعيل Call GoOnUpdatChkBox("t2", "yesno", "xuser", Me.xuser, -1) Me.t2_subform.Requery ولزر الامر الغاء التفعيل بس غير فى الكود السابق قيمة -1 الى 0 اى خدمه يا دكتور والطريقة دى من وجهة نظرى افضل من طريقة اللوب ------------------------------- طيب مش حاب الكود فى الموديول يكون روتين عام وحابب تستخدمة بطريقة مباشرة باسم الجدول والحقول كما هى استخدم الكود الاتى فى الموديول بدلا من السابق Public Function GoOnUpdatChkBox(ByVal strXuser As String, ByVal strUpdatChkBox As String) CurrentDb.Execute "UPDATE t2 SET t2.yesno = '" & strUpdatChkBox & "' WHERE (xuser = '" & strXuser & "');" strXuser = vbNullString strUpdatChkBox = vbNullString End Function وفى النموذج ضع الكود الاتى على زر الامر تفعيل Call GoOnUpdatChkBox(Me.xuser, -1) Me.t2_subform.Requery ولزر الامر الغاء التفعيل بس غير فى الكود السابق قيمة -1 الى 0 المرفق الى يوضح الافكار بالطرق الثلاث خانة الاختيار - 5.accdb

وهاد المرفق تعديل طفيف لتقليل الكود المستخدم بالنموذج خانة الاختيار - 4.accdb

اتفضل يا دكتور خانة الاختيار - 3.accdb

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

اتفضل ابسط حل خانة الاختيار - 2.accdb

يعنى رجاء وفضلا وكرما وليس امر تسهل على من يريد مساعدتك بوضع مرفق على الاقل

راجع المشاركة ان شاء الله بها طلبك