ابو جودي

👆 وانا كذلك من رأى استاذى الجليل @kanory ال #C كذلك Visual Studio.NET قد تكون قريبة نوعا ما من اسلوب كتابة الاكواد داخل محرر أكواد الاكسس

اهلا بيك .. لا شكر على واجب

Database1 (1) (2).accdb

اتفضل Database1 (1).accdb

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

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

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

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

فكرة بره الصندوق على اعتبار ان مصدر البيانات ثابت من 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

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

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

حتى يكون الموضوع مرجع متكامل لمن اراد فيما بعد المرفق الاتى فقط قم باستيراد النموذج frmRestTable الى قاعد بياناتك وسوف تقوم فقط باختيار الجداول التى تريد تفريغ القيم منها تمام سواء كانت جداول بنفس القاعدة او جداول مرتبطة بقاعدة خلفية دون اى عناء او كتابة اى اكواد Reset Select Table.mdb

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

ممكن مرفق وشرح مفصل لو تكرمت

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

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

العفو منكم استاذى الجليل ومعلمى القدير ... اذا حضر الماء بطل التيمم