متقاعد

فكرة اخرى مشاركة مع الاساتذة @Matin_Murad و @abouelhassan الفكرة طالما راح نستخدم الكود في اكثر من حدث في حدث الحالي للنموذج وفي حدث بعد التحديث للحقل النوع فاجد انه لا داعي لتكرار كتابة الكود اولا نعمل اجراء في النموذج اسميته k او اي اسم Sub k() Select Case Me.نوع_الخطاب Case Is = "داخلي" Me.الجهة_الخارجية_الوارد_منها.Enabled = False Me.الجهة_الداخلية_الوارد_منها.Enabled = True Case Is = "خارجي" Me.الجهة_الداخلية_الوارد_منها.Enabled = False Me.الجهة_الخارجية_الوارد_منها.Enabled = True End Select End Sub ثم في حدث الحالي للنموذج وفي حدث بعد التحديث للحقل نوع الخطاب call k تحياتي

في زر امر ضع Dim intnewrec As Integer intnewrec = Form.NewRecord If intnewrec = True Then MsgBox "You're in a new record." End If ويمكن ايضا استخدام الشرط في اي حدث او ضمن كود معين مثلا اذا رغبنا في منع التعديل للسجلات ماعدا السجل الجديد او .... الخ

اللهم ارحم والد اخونا المهندس قاسم ويسر له عملا صالحا يبر به والديه نبذل جهدنا ونحصد مازرعنا الا ان يشاء الله بالتوفيق ان شاء الله

ماشاء الله جعفر ماقصر مع ذلك للوصول لمعالج التقسيم في التبويب قاعدة بيانات ثم ايقونة قاعدة بيانات اكسس او ضع الامر التالي في زر امر DoCmd.RunCommand 520 سوف يفتح معالج التقسيم تحياتي

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

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

جرب في حدث بعد التحديث للحقل rx الامر التالي Me.txtn = Nz(DLookup("[totalbook]", "[tblibrarey]", "[books] ='" & [bx] & "' And [readers] ='" & [rx] & "' "), 0) هذا حسب فهمي للطلب

برنامجك يا موسى سلاح ذو حدين

يمكن تجاوزها جرب alt x 5 اذا كان النموذج منبثق لن تعمل

في هذه الطريقة ☝️ باستخدام حقل نصي غير منضم في النموذج او كما قام استاذ @jjafferr بوضع حقل نصي للاسم في الجدول اجد انه لا داعي لوجود العلاقة بين الجدولين !

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

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

الحقيقة الحقل NameID هو حقل رقمي وايضا هنا مستخدم للربط بين جدولين بعلاقة رأس باطراف وعندما نعمل مربع تحرير نقدر نتحكم فيما يظهر لنا من خلال عرض الاعمدة 0سم;2.54سم او من خلال حقل اخر = NameID.Column(1) كما اشرتم ولكن حقل NameID في نظر الاكسس يبقى رقم وهذة واحدة من مشاكل استخدام مربع تحرير في الجدول و من وجهة نظر هذه المربعات مكانها النموذج الحل باستخدام حقل اضافي او الطريقة الاسهل بواسطة استعلام او نلجا الى الي الطريقة الصحيحة تبقى الحقول كما هي رقمية فقط ونستخدم مربع التحرير في النموذج ونتحكم في ما يظهر في التقارير بواسطة الاستعلام تحياتي

حل اخر ممكن نعمل استعلام من الجدولين يكون مصدر ملف الاكسل واعتذر اذا كان فهمي غير صحيح

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

😎

فنان ما شاء الله عليك وشرحك جميل هذا الحل ينهي المشكلة 100% بالنسبة لي افضل استبدال Me.Requery بـ Me.Recalc لان الهدف اعادة احتساب الحقول المحسوبة وليس اعادة تحميل البيانات وجهة نظر ومن باب تبادل الافكار -------------------------- فائدة اربعة اوامر يتشابهون للوهلة الاولى ولكل منهم استخدامه Requery لاعادة تحميل البيانات ويعيدنا للسجل الاول اشبه ما يكون باعادة اغلاق النموذج وفتحه Refresh يتعامل مع البيانات المعروضة في النموذج ولا يعيد تحميل مجموعة السجلات Repaint عندما نقوم بتغيير قيمة عدد من الحقول ولدينا حقول اخرى تعتمد قيمتها على تعبيرات محسوبة للحقول التي تم تغيير قيمتها قد يتأخر اكسس في اعادة الاحتساب لذا نستخدم هذا الامر وهو اشبه ما يكون باعادة رسم للنموذج وكافة عناصر تحكمه وله استخدامات اخرى لا يتسع المجال لذكرها ولكونها لا تبتعد كثيرا عن هذا الاطار Recalc يقوم بتحديث كافة العناصر المحسوبة في النموذج والله الموفق

اخي الفاضل الشكر لله ثم للمهندس قاسم فانا فقط وضعت مداخلة بسيطة وبما انك وجدت الحل المطلوب والحمد لله فسوف اتحدث قليلا عن فائدة حقل في الجدول الذي اشرت اليه في ردي السابق وكيف يؤثر على عمل قاعدة بيانات ويمنعنا من الخطا ويغنى عن وجود جداول متعددة تحتوي على نفس النوع من البيانات ومثالنا برنامج للموارد البشرية في جدول الموظفين وضعنا حقل رقمي واسميناه الحالة اذا كانت القيمة 1 يكون الموظف على راس ويدرج اسمة في بيان الرواتب و كشوف العمل الاضافي و الاجازات وووووو الخ القيمة 2 يكون الموظف تم تعيينة ولكن لم يباشر الوظيفة وبالتالي غير مستحق للراتب وووو الخ القيمة 3 الموظف مكفوف اليد يدرج اسمة ضمن كشف الرواتب ولا يستحق سوى 50% من الراتب ولا يستحق اي من مميزات الموظف القيمة 4 استقالة لا يستحق اي من المميزات ماعدا شاشة التعويضات القيمة 6 متقاعد مبكر فقط يدرج اسمة في شاشة مكافاة نهاية الخدمة بحد اقصى 4 اشهر وشاشة التعويض عن الاجازات الخ وهذه الحالات كثيرة ولكن هذا مجرد مثال مع ملاحظة ان هذة القيمة للحقل لايتم ادخالها بشكل يدوي وانما من شاشة القرارات والرقم يسجل اليا بناء على نوع القرار الان يتبين ان جدول واحد للموظفين يكفي ولا داعي لجداول للمتقاعدين وللمنقطعين والمتوفيين ....... الخ وايضا لا داعي لاستعلام الالحاق الخلاصة تكرار نفس البيانات في اكثر من جدول يعني ان هناك قصور في فهم عمل قاعدة البيانات كما تعودت ان اشير دائما مداخلاتي ليس لانتقاد اي عمل وانما تعبر عن وجهة نظر لمبرمج سابق تحياتي

الحمد انك وجدت الحل مع الشكر والتقدير للمهندس الخبير @Eng.Qassim من وصف المشكلة اجد من وجهة نظر مبرمج سابق لزوم مالا يلزم حفل في جدول يعني عن استعلامين وجدول ولكن لكل شيخ طريقته رأي شخصي غير ملزم وليس الهدف الانتقاد فمشاركاتي تهتم فقط بالجانب النظري تحياتي

احيان يكون مصدر النموذج الجدول وليس استعلام او اننا لاي سبب لا نرغب في استخدام الاستعلام و نرغب في استخدام الكود مباشرة لعمل الفلترة في حدث بعد التحديث للقائمة نضع الامر التالي ⬇️ Me.Filter = "[Employee_Num]=" & Me.k.Column(0) & "" Me.FilterOn = True [Employee_Num هو حقل رقم العميل k مربع القائمة "لا افضل استخدام الاسماء العربية للحقول " مع اعتزازنا وفخرنا بلغتنا column(0) هو الحقل الاول في القائمة الخاص برقم العميل ولا داعي لعمل تحديث للنموذج مداخلتي من باب تعدد الحلول فقط

ايضا ويندوز 11 Ctrl Shift S على الترتيب هذا ☝️ الموضوع فيه افكار جميلة كثير من المبرمجين الشباب لديهم افكار رائعة وبعضها خارج المألوف بينما المبرمجين الفدماء لديهم الخبرة ولكن اعمالهم تقليدية اكثر واهتمامهم بالتفاصيل والعملانية اكبر . رأي شخصي وفي كل خير

احسنت

لم ابحث مجرد تجربة سريعة

توجد مشكله في الرقم الثاني بعد الفاصلة 2*0.02=4 ! حاسبة ويندوز 2*0.02=0.04

ماشاء الله متألق دائما