كل الانشطه

وعليكم السلام ورحمة الله تعالى وبركاته 🤗 كإجابة على السؤال المهم في طلبك ، إن كان يمكن تحقيقه من خلال الجدول نفسه ، فإجابتي لا . ما لم يكن هناك رأي آخر . فمثلاً لا تستطيع ادخال قيمة افتراضية لحقل ما داخل جدول من خلال معادلة أو جملة شرطية . كمثال:- =IIf([loifondamontale]="المهندسين", 1, 0) ولا أحاول إحباطك ، فيمكن تحقيق الهدف بطرق مختلفة . منها استخدام الجمل الشرطية المعقدة داخل حدث بعد التحديث لمربع النص او الكومبوبوكس loifondamontale كمثال للتوضيح بالافتراض ان لديك نموذج لإدخال البيانات في هذا الجدول :- Private Sub loifondamontale_AfterUpdate() Dim typ As String typ = Me.loifondamontale If typ = "مهندسين" Then Me.evalu_moubadara_chaksia = 5 Me.evalu_itkan_elamel = 4 Me.evalu_nachatat_tarbia = 3 Me.evalu_absence = 0 Me.evalu_retard = 1 Me.evalu_tatwir = 2 Me.evalu_absence_prof = 0 Me.evalu_retard_prof = 0 Me.evalu_nadawat_prof = 0 Me.evalu_nachatat_tarbia_prof = 0 Me.evalu_mobadara_prof = 0 ElseIf typ = "معلمين" Then Me.evalu_absence_prof = 1 Me.evalu_retard_prof = 2 Me.evalu_nadawat_prof = 3 Me.evalu_nachatat_tarbia_prof = 4 Me.evalu_mobadara_prof = 5 Me.evalu_moubadara_chaksia = 0 Me.evalu_itkan_elamel = 0 Me.evalu_nachatat_tarbia = 0 Me.evalu_absence = 0 Me.evalu_retard = 0 Me.evalu_tatwir = 0 Else Me.evalu_moubadara_chaksia = 0 Me.evalu_itkan_elamel = 0 Me.evalu_nachatat_tarbia = 0 Me.evalu_absence = 0 Me.evalu_retard = 0 Me.evalu_tatwir = 0 Me.evalu_absence_prof = 0 Me.evalu_retard_prof = 0 Me.evalu_nadawat_prof = 0 Me.evalu_nachatat_tarbia_prof = 0 Me.evalu_mobadara_prof = 0 End If End Sub هذا كإقتراح أول يعتمد على الجملة الشرطية المتعددة ( أو حتى باستخدام Case ) وكلاهما يؤدي الغرض نفسه . أما عن وجود حل آخر وهو استخدام جدول للقيم الإفتراضية التي تريدها ولنفترض انه سيتكون من 3 حقول ( نوع الموظف ، اسم الحقل ، القيمة الإفتراضية ) - أسماء مجازية - وتملأ القيم مرة واحدة ( وقد يكون لها مستقبلاً نموذج لتعديلها حسب رغبتك ) . ثم وبنفس النمط - في حدث بعد التحديث لمربع النص نفسه أو الكومبوبوكس - نستخدم أسلوب كمثال :- Private Sub loifondamontale_AfterUpdate() Dim rs As DAO.Recordset Dim fldName As String, defVal As Variant Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_DefaultValues WHERE نوع_الموظف = '" & Me.loifondamontale & "'") Do While Not rs.EOF fldName = rs!اسم_الحقل defVal = rs!القيمة_الافتراضية Me(fldName) = defVal rs.MoveNext Loop rs.Close Set rs = Nothing End Sub 💡 وفي هذا الحل من الضروري أن تكون أسماء مربعات النص ( في النموذج ) مطابقة تماماً لأسماء الحقول في الجدول . وقد يكون هناك حلول اخرى تعتمد على الاستعلامات ، ولكنهك هنا ستحتاج شرطاً للسجل الحالي ..

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع أريد وضع قيمة افتراضية لحقل في جدول بشرط القاعدة المرفقة بها جدول مختصر الحقول يمثل تقييم الموظفين - في السابق كان عندي نوع واحد من الموظفين والآن اريد أن أضيف له عدة انواع من الموظفين ( مهندسن - معلمين...) وكل نوع من الموظفين عنده تقييمات خاصة وهذه التقييمات الخاصة (الحقول) وضعت لها قيم افتراضية خاصة بها لتسهيل عملية حجز البيانات (تكون محجوزة تلقائيا) فقط أقوم بتغيير التقيمات إذا كان هناك تغيير. مثال في الجدول : فيه نوعين : النوع الأول: المهندسين النوع الثاني : المعليمن وذلك حسب ما يظهر في الحقل المسمى : loifondamontale النوع: النوع الأول: المهندسين عنده مجموع من التقييمات ( الحقول) الخاصة بالموظفين لهذا النوع وهي : * evalu_moubadara_chaksia* evalu_itkan_elamel* evalu_nachatat_tarbia *evalu_absence * evalu_retard * evalu_tatwir هذه الحقول (التقييمات) وضعت لها قيم افتراضية موضحة في الجدول من فضلكم اريد مايلي :الحقول هذه تأخذ القيمة الافتراضية الخاصة بها المبينة في الجدول إذا كان النوع (الحقل) المسمى loifondamontale يساوي : المهندسين وإذا كان مختلف تأخذ القمية صفر. النوع: النوع الثاني: المعلمين عنده مجموع من التقييمات ( الحقوول) الخاصة بالموظفين لهذا النوع و هي : evalu_absence_prof * evalu_retard_prof * evalu_nadawat_prof * evalu_nachatat_tarbia_prof * evalu_mobadara_prof هذه الحقول (التقييمات) وضعت لها قيم افتراضية موضحة في الجدول من فضلكم اريد مايلي :الحقول هذه تأخذ القيمة الافتراضية الخاصة بها المبينة في الجدول إذا كان النوع (الحقل) المسمى loifondamontale يساوي : المعلمين وإذا كان مختلف تأخذ القمية صفر. نتمنى أني قد أوصلت الفكرة لكم وهل يمكن تجسيدها بالاعتماد على الجدول فقط أو الإعتماد على طريقة اخرى الرجاء المساعدة والتوجيه وبارك الله فيكم BASE-E.accdb

استخدم تحديث النموذج Docmd.Requery بعد رسالة تأكيد نجاح الاستيراد

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

السلام عليكم لقد قمت بوضع كود استراد ملف ويعمل بشكل عادي لا تظهر البيانات في النموذج عند استراد حتى نقوم بغلق النموذج واعادة فتحه مجلد 1.rar

بارك الله فيك أخي الفاضل وأكثر الله من أمثالك تمام

السلام عليكم الاخوة الافاضل من مدة مش بخش موقعنا الجميل اوفيسنا و اليوم عندى ملف اكسل بسجل فيه مسحوبات عملاء شهري اليوم الواحد فيه 11 عمود و بالتالى الشهر يبقي عدد الاعمدة كتير و الملف بيبقي بطيئ ارجو من الاساتذة الكرام خبراء الموقع الافاضل يبصو على الملف و يشوفو فى طريقة اسهل تؤدى نفس العمل او حاجة تخلى الملف سريع الف الف شكرا لحضراتكم مرفق ملف الاكسل تسهيل رصد فورى اوفيسنا.xlsm

وعليكم السلام ورحمة الله وبركاته.. للإستيراد من اكسل الى اكسيس ، راجع هذا الموضوع:- أما التصدير من اكسيس لإكسل ، فأعتقد أن الكثير من المواضيع في المنتدى تحدثت عنه ، استخدم خاصية البحث ، علك تجد ما يناسبك. *أتابع من الجوال*

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

السلام عليكم لدي جدول اسم Eleve اريد تصدير الجدول الى الاكسيل المرفق مع البرنامج واستراد من الاكسيل الى الجدول بارك الله فيكم اليكم البرنامج مرفق مع الاكسيل مجلد جديد.rar

لدي ملف اكسس لحساب صرفيات الوقود للمولد وهو يعمل بصورة جيده ونتائجه صحيحه والعمليات الحسابية في الاستعلام ليست معقدة لكن عند فتح سجل جديد ومليء البيانات تظهر رسالة لايمكن تحديث الحقل تحياتي test.accdb

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

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

اعتقد يقصد الصفوف .. جمع فرقة ايضا يوجد شيء آخر وهو .. اذا تريد التصفية على الفصل الدراسي فلماذا وضعت حقل الصف في رأس التقرير على كل حال تم تحقيق طلبك : تصفية بناء على الفصل الدراسي ( الزامي ) + تصفية حسب الصف (اختياري ) اتمنى يحقق طلبك Data131.rar

وعليكم السلام أذا كان هذا هو طلبك فالأمر يحتاج إلى ضبط الحدود فقط تم تعديل الصفحات من الغلاف إلى ص5 تفضل مشروع ميزانية 2025.xls

مداخلة .. اجعل خاصية Modal = Yes للنموذج والتقرير أولاً ثانياً في زر الطباعة الموجود في النموذج Main وبعد هذا السطر ElseIf .ResultMain = 7 Then DoCmd.Close acReport, "youssef" قم بإضافة السطر :- DoCmd.OpenForm "main", acNormal ليصبح هذا الجزء كاملاً :- ElseIf .ResultMain = 7 Then DoCmd.Close acReport, "youssef" DoCmd.OpenForm "main", acNormal End If

وعليكم السلام ورحمة الله وبركاته .. تأملت منك توضيح كلمة الفرق هنا = ؟؟؟

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

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

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

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

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

هل من مجيب

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

ابشر اخي الغالي .. فقط امهلني بعض الوقت وسوف اناقشها بندا بندا مقارنة بالعمل القائم عندي .. وسوف ارفق في النهاية جداولي