AlwaZeeR

نعم صحيح أستاذ كيرة وقد تم عملها في المرفق اعلاه

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

وعليكم السلام ورحمة الله وبركاته تفضل: up_0.rar

وعليكم السلام ورحمة الله وبركاته استخدم هذا الكود عند النقر المزدوج: 'With CodeContextObject ' DoCmd.OpenForm "22tblm", acNormal, "", "[المعرف]=" & .المعرف, acEdit, acDialog DoCmd.OpenForm "22tblm", acNormal, , "[المعرف]= " & Forms![برنامج الفروع و المؤسسات].tblm1.Form("[المعرف]") & "", acFormEdit ' End With طبعاً: احذف الكود القديم لديك بعد ذلك: اذهب الى النموذج 22tblm وغير في خصائصه كالتالي: دورة: السجل الحالي طريقة العرض الافتراضية: نموذج مفرد ولو أحببت اجعل منبثق : نعم شكلي او مشروط: نعم ::: ملاحظة: لم افهم ما المغزى من زر الحذف في النموذج 22tblm برنامج المجالس الخاص بك

وعليكم السلام ورحمة الله وبركاته تفضل: تم إضافة وحدة نمطية لحساب الأيام مع وبدون الجمعة والسبت لم افهم ما الغرض من إضافة اسم الموظف ووو في جدول الحركات رغم ان هناك جدول لبيانات الموظف العلاقات تم تغييرها لانها خاطئة ما علاقة رقم التعميد؟ بالربط؟ اذا كان في جدول بيانات الموظف حقل أساسي هو الرقم الوظيفي وبناء عليه يجب ان يكون الربط عموما هذا ما طلبت مع بعض الإضافات الانتدابات 0وخارج الدوام.rar

تفضل: تم إعادة ضبط العلاقات في النماذج والتقارير بشكل صحيح تم إضافة اكواد للمعاينة والطباعة والفتح حسب الحاجة مع إزالة كل الماكرو المستخدم، لانني لا اعرف كيف يستخدم الماكرو هكذا يعمل الان: 1- عند فتح البرنامج : يفتح على الشاشة الرئيسية في وضع جديد 2- يجب اختيار سجل موجود قبل الضغط على قائمة التحاليل 1 او 2 3- الطباعة والمعاينة تتم للسجل الظاهر على الشاشة :: جرب ووافني بالنتيجة برنامج التحاليل 2020

يظهر الخطأ في حال كان السجل فارغ ولا يحتوي على مفتاح ID انت طلبت ان يفتح النموذج على سجل جديد كيف ستعاين سجل جديد فارغ؟؟؟ ارجع خطوة للوراء على سجل موجود وقم بالمعاينة وسوف ترى انه يعاين السجل الموجود على الشاشة فقط

هل الجمع ضمن التقرير؟ أم استعلام ارفق قاعدة مصغرة وان شاء الله نجد حلا

تفضل : تم إضافة هذا الكود في حدث عند التحميل للنموذج ID للفتح على سجل جديد If Not IsNull(Me.ID) Then DoCmd.GoToRecord , , acNewRec End If الكود التالي: على ازرار المعاينة للتقارير: مع تغيير اسم التقرير رقم 1 او 2 Dim stDocName As String DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 stDocName = "قائمة رقم 1" DoCmd.OpenReport stDocName, acViewPreview, , "MAinID=" & [ID] تم إزالة كل فلاتر ID الموجودة في استعلامات التقارير لانها لا تلزم تم تسمية حقل ID في الاستعلامات الخاصة بالتقارير الى MainID كي يتم التمييز عند استخدام الكود السابق للفلترة هذا البرنامج: مرفوع على الميديا فير رابط برنامج مركز الصحة

تفضل عزيزي: search20071.rar

نزلت المرفق وصراحة ما عرفت وين اروح ووين بدك التعديل يا ريت تحدد بالضبط مطلوبك وأين في نماذجك وتقاريرك

الموضوع في المنتدى عموماً تفضل المثال المرفق في نفس الموضوع Search.zip

https://www.officena.net/ib/topic/85048-بحث-ملون-الحروف-والخلفية/ راجع هذا الموضوع

تفضل: فك الضغط عن الملف المرفق وضعه في المسار التالي: c:\program files (x86) \Common Files\Microsoft shared\DAO\ واذا كنت تستخدم نظام 64 بت ضعه في مجلد: SYSWOW64 وان شاء الله تحل مشكلتك dao360.dll.zip

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

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

بالتوفيق 👍

قد تكون اعدادات اللغة لديك تختلف عن الاعدادات لدي قم بتغيير الفاصلة الى فاصلة منقوطة , ;

تفضل : CurrentDb.Execute "UPDATE YourTbl SET YourTbl.YourChk = false;", dbFailOnError Me.Requery

هلا صديقي عادة اخر شيء نفكر به هو استخدام SendKeys اليك الحل الشافي لهذه الظاهرة ان شاء الله تفضل : testNum.rar

نعم صحيح كما قال اخي وصديقي الحبيب صالح

لو ترفق مثالا بالجدول والتقرير فقط ::

لم انتبه لطلبك في المشاركة الاولى في حال تريد نقل أصناف محددة تحتاج الى عمل حقل في جدول رقم العهد ولنفرض انه : Chk واجعل نوع البيانات رقم ثم قم باضافته في النموذج الفرعي في ADD واستخدم هذا الكود تحت زر ADD Dim strSQL As String strSQL = "UPDATE [رقم العهد] " & _ "SET [الرقم العام] = myn,[التاريخ] = Date()" & _ "WHERE chk =true" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True DoCmd.Requery

تفضل : جرب ووافني بالنتيجة استخدم هذا الامر تحت زر الأمر : ADD Dim strSQL As String strSQL = "UPDATE [رقم العهد] " & _ "SET [الرقم العام] = myn,[التاريخ] = Date()" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True DoCmd.Requery

وعليكم السلام ورحمة الله وبركاته طبعا العمل في نموذج جديد مصدره استعلامك :: دعنا نمشي خطوة خطوة لأن الطلبات في موضوعك كثيرة استخدم هذه المعادلة لحساب المعدل لكل مادة : فصل اول + فصل ثان ونسمي حقل المعدل مثلاً M1 وهكذا::: =Nz(Round((Nz([on1],0)+Nz([on2],0))/2),0) وبعد الانتهاء ننتقل الى الخطوة الثانية