ابوخليل

البحث والتفحص يكون من خلال تقرير او من خلال نموذج محمي هكذا تنحل مشكلتك لانه لا يتصور التعديل على بيانات تاريخية وهنا يجب التنبيه ان الادخال يكون عبر نموذج ( ادخال بيانات ) حتى لا يتم عرض ما سبق ادخاله

السلام عليكم في اعمالي دوما اجعل خصائص النماذج والتقارير منبثق ( pop Up) = نعم و النمط النموذجي (modal ) = نعم وكذلك التقارير مخالفا في ذلك طريقة الاستاذ جعفر .. حيث اوضح في احدى مشاركاته انه يتجنب هذه الخصيصة . ولكن في معمعة التصميم اجعلها كلها = لا والسبب انني احتاج الى فتح اكثر من نموذج وتقرير والتعامل معها في نفس الوقت واحيانا انتهي من المشروع واضبط الجميع على الخصيصة = نعم ثم يطرأ تعديلات في المشروع على اكثر من نموذج وتقرير وهنا انا ملزم بتغيير الخصيصة الى = لا من اجل تسهيل العمل والتنقل احيانا يكون التعديل على 3 او 4 نماذج او اكثر ولكم ان تتخيلوا ان المشروع احيانا يشتمل على اكثر من 20 نموذجا ومثلها او اكثر من التقارير وفي النهاية ومن باب الحرص على الضبط .. اقوم بفتح جميع النماذج والتقارير للتأكد من ان الخصيصة على ما يرام ، وهذا لا شك مرهق ويأخذ من الجهد والوقت الكثير .. لذا هداني الله لدالة تقوم بالعمل نيابة عني في جزء من الثانية تجدون ادناه الدالة لتفعيل الخصائص المختارة .. ولاحظوا انه يمكن عكس العملية وبسهولة الدالة عامة لجميع الخصائص .. عليك اختيار الخصيصة فقط لتعميمها على جميع النماذج ومثلها ايضا على جميع التقارير 'تطبيق على جميع النماذج Public Function funforms() Dim frm As Object For Each frm In CurrentProject.AllForms DoCmd.OpenForm frm.Name, acDesign Forms(frm.Name).PopUp = True Forms(frm.Name).Modal = True Forms(frm.Name).ShortcutMenu = False DoCmd.Close acForm, frm.Name, acSaveYes Next End Function ' ومثلها للتقارير Public Function funreports() Dim rep As Object For Each rep In CurrentProject.AllReports DoCmd.OpenReport rep.Name, acDesign Reports(rep.Name).PopUp = True Reports(rep.Name).Modal = True Reports(rep.Name).ShortcutMenuBar = "cmb_Copy_Sort_Filter" 'قائمة استاذنا جعفر المختصرة DoCmd.Close acReport, rep.Name, acSaveYes Next End Function

🙂

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

تفضل New.rar

انا عادة لا اطرح حلولا لموضوع بادر بالاجابة عنه احد اخوتي .. خاصة الخبراء منهم .. ولكني كنت اعمل على المثال حينما كان الاستاذ عمر يشارك الأمر يسير : 1- افتح النموذج الفرعي على التصميم 2- انقر بزر الفأرة الأيمن على اي حقل 3- اختر من القائمة : التنسيق الشرطي اذا واجهاتك بالعربية او condition formating مؤكد ستتضح لك المسألة ملحوظة : انا قمت بتطبيق الشرط على جميع الحقول كل واحد على حدة كي يتم حماية السجل بالكامل يمكنك الاكتفاء بتطبيقه على حقل واحد

مشاركة مع اخي الاستاذ عمر حل آخر باستخدام التنسيق الشرطي sick2.rar

عليكم السلام اعتقد لو وضعت هذا السطر في اعلى الكود سيتجاوز الخطأ ولن تظهر الرسالة ، ولكن لن يتم التحديث على الحقل On Error Resume Next

هكذ هدايا والا فلا كنز من الأدوات والافكار بارك الله فيك وزادك علما ، وغفر لوالديك الذين انجبوا مثلك .. وغفر لنا ولك

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

الرسالة هذه تفيد عدم وجود بيانات تم اضافة سطر لتوضيح الحالة ملحوظة حتى تظهر المادة يجب ادخال تاريخ موجود في الجدول ExamTimeTable Dim i As String todd.Requery i = Nz(DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#"), "") If i = "" Then MsgBox "لا يوجد اختبار في هذا التاريخ", , "" Else Me.crs_cd = i End If اذا لا تريد الرسالة والتنبيه يظهر تكتفي بهذه Dim i As String todd.Requery i = Nz(DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#"), "") Me.crs_cd = i Gyab3.rar

جزاك الله خيرا ابا احمد الآن يمكننا العمل على هذه الخصيصة بلا حرج بمجرد الشكر من صاحب الموضوع او اي رد منه يدل على حصوله على حاجته .

عليكم السلام Dim i As String todd.Requery i = DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#") Me.crs_cd = i Gyab2.rar

الفكرة حلوة ولكن تنفيذها استغرق منك استعلامات ونموذج فرعي وقوائم وخلف هذه القوائم اكواد وجمل برمجية طويلة .. انظر لطريقتي في تنفيذ الفكرة الاولى في Database6 والتي استخدمها في برامجي للحجب الثانية في Database7 وهي اختصار للأولى واستخدمها للاختيار عند الطباعة Downloads.rar

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

<<<<< نعم >>>>>

عليكم السلام كيف اظهار بعد الاخفاء ؟ ما يصير الا من خلال ادوات اخرى بمعنى لما تخفيه من هذا النموذج يظهر في نموذج آخر مثلا لما تريد تستبعد سجلات لوقت محدد على كل حال في التعديل على المثال فكرة اخفاء السجل لما تريد اظهارها اعمل نموذج آخر لعكس العملية Database6.accdb

اخي ابو احمد اكثر من 300 مشاركة وتبخل علينا باختيار عنوان مناسب يصف الموضوع .. يعلم الله اني احرج كثيرا في تطبيق النظام وغلق المواضيع المخالفة

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

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

اكثر من توصية .. هذا جميل ورائع وكونها تخص فريق الموقع اجمل وأروع الآن ابو ابراهيم لو قام بتوصية على اجابة يمكنني معارضته وأوصي باجابة اخرى مع ان النقاش تم فتحه من اجل كلمة : افضل اجابة ، وعلى دلالة هذا اللفظ والمفترض ان يكون دلالة من السائل على حصول الاجابة المطلوبة التي تناسبه وغلق الموضوع وقد ذكرت سابقا انني انظر الى المواضيع التي امامها علامة صح ولا ادخل اليها على اعتبار انها منتهية فلو كانت التسمية كلمة : ( تم ) او تمت الاجابة لكانت شافية وافية والسبب في ردي هذا احتمال عدم وجود توصيات وهذا وارد جدا .. وبالمقابل احتمال وجود اجابات افضل مما تم اختياره وارد جدا ايضا

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

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

لا يوجد في كلامه ما يدل على ذلك .. اهدأ رحمك الله .. كلنا اخوة وأحبة الخطاب في تغيير القوانين موجه الي

الموضوع يهم جميع اعضاء المنتدى ,, وملاحظتك جميلة من الواقع كثيرا ما نواجهها