كل الانشطه

شفاكم الله شفاء لا يغادر سقماً وحفظكم بحفظه

السلام عليكم الإخوة الافاضل في هذا المنتدى الجميل في البيت عندي كمبيوتر دقة الشاشة المناسبة هي 1360*768 اصمم عليها برنامج أكسيس لكن عندما افتحه في جهاز العمل الدقة المناسبة للشاشة 1280*1024 يبدو مختلف تماما ليس كما هو مصمم في الاصل مع العلم اني بحث كثيرا في المنتدى وجربت حلول الرجاء المساعدة والتوجيه للطريقة والحل الفعال و بارك الله فيكم

استاذ @checles تفضل المرفق بعد اضافة نموذج الادخال . checles-1.rar

بارك الله فيكم اخى الكريم عبدالرحيم وجزاكم الله خيرا وجعله في موازين حسناتكم واسف على الإطالة فى الرد على معاليكم لاننى كنت مريض ورأيت الملف اليوم هو دا فعلا المطلوب حفظكم الله ورعاكم وزادكم الله نورا وسرورا وجزاكم الله عنا خير الجزاء

وهل عرفت السبب ؟؟؟؟؟؟؟ هو هذا حلي الجديد !!!! هههههههه وايضا هناك حل ثالث ؟؟؟ تفضل اولا الحل الثالث باستخدام Private Sub Form_Open(Cancel As Integer) Dim SQL As String SQL = "SELECT Nom_Menha, Menha_ID, ID FROM Qry_menha " & _ "WHERE Menha_ID = '" & Forms!FrmMenah!Etar.Column(1) & "' " & _ "ORDER BY Menha_ID;" Me.Menha_Name.RowSource = SQL End Sub اما الحل الثاني والذي اكتشفته انت اريدك ان تعرفة بنفسك !!! تغير المصدر3.mdb

ياسبحان الله استاذي لقد تم حذف كل ماتم تعديله من طرفك فاصبح المرفق يشتغل عادي شي عجيب 😙 هات ماعندك لنرى ابتكارك استاذ 💐

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

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

استاذ @منتصر الانسي راجع دالة التجميع المرفقه يمكن ما أخذت بالك منها مهما كان الادخال من نموذج أو على الجدول مباشرةً !!!!

في هذه الحالة استخدم طريقة استاذنا @ابوخليل كما اشار اليك استاذ @Foksh واذا محتاج شئ أو تعديل اكتب ما تريده هنا وهو انشاء الله سيرد عليك .

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

بعد اطلاعي على مرفقات الاخ @ابوخليل والاخ @kkhalifa1960 لاحظت أنكم إعتدمتم على النموذج للقيام بالتحديث ولكن ماذا لو تم الادخال عن طريق الجدول سيحدث خلل وهذا من احد اهم الاسباب التي تجعلنا لا نعتمد على الجداول في الاحتفاظ بالقيم المحتسبة ولكن في هذه الحالة اعتقد أنه لو يتم الاعتماد على Data Macro الخاص بجدول Receiving_Bundle للقيام بعملية التجميع بعد تحديث السجل After Update سيكون افضل من الاعتماد على النموذج

شكرا لك استاذي العزيز kanory قمت بإنشاء مربع نص غير منظم مخفي وسميته KA وعملت المعيار بالنموذج Frm_MenhaRules كما تم تعريف ME.KA [Forms]![FrmMenah]![ka] Me.ka = [Forms]![FrmMenah]![Etar].Column(1)

لماذا الاعتذار أخي @kkhalifa1960 بالعكس فإثراء الموضوع بالافكار هي الغاية من المنتدى بحيث تكون الصورة كاملة امام السائل وهو من يقرر اي الإجابات التي تناسب عمله

اعتذاري استاذ @منتصر الانسي لم انتبه لمداخلتك .

مشاركة مع استاذي @ابوخليل تفضل استاذ @checlesمحاولتي . واذا كان لديك نموذج لادخال البيانات وتريد تحديث الجدول فعند الخروج من النموذج Private Sub Form_Close() On Error GoTo ErrorHandler Dim db As Database Set db = CurrentDb ' تشغيل استعلام التحديث db.Execute "UPDATE SAW SET SAW.Slabs_in_Bundle = GetTotalSlabs(Block_NO) " & _ "WHERE (((SAW.Block_NO) Is Not Null And (SAW.Block_NO)<>''))" MsgBox "تم تحديث Slabs_in_Bundle لجميع السجلات بنجاح!", vbInformation, "تحديث البيانات" Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء التحديث: " & Err.Description, vbCritical, "خطأ" End Sub checles.rar

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

اخي الكريم من الممارسات الجيدة عند تصميم قواعد البيانات العمل على تقليل حجم البيانات التي يتم تخزينها بقدر الإمكان فمثلاً لماذا نقوم بحفظ الاجمالي في الجدول وتضخيم حجم البيانات المحفوظة فيه ونحن بإمكاننا الحصول على نفس النتيجة بواسطة الإستعلامات ارفق لك ملفك بعد إضافة إستعلام والذي إذا فتحته جنبا الى جنب مع الجدول فلن تجد أي فرق إلا آخر عمود والذي يحتوي الإجمالي المطلوب بالتالي يمكنك إستخدام هذا الإستعلام بدلا من الجدول تحياتي Database.accdb

تفضل هذا الاستعلام يقوم بالمهمة يمكنك استخدامه كاستعلام صريح ظاهر او كجملة sql في المحرر UPDATE SAW SET SAW.Slabs_in_Bundle = Nz(DSum("Slabs","Receiving_Bundle","Block_NO='" & [Block_NO] & "'"),0);

السلام عليكم ورحمه الله وبركاته شكرا لحضرتك لو ممكن الطريقه اكون شاكر

اعرض الملف احصل على ألوان أكثر بهجة لنماذجك بإستخدام هذه الأداة {سلسلة الأدوات المساعدة المخصصة} أقدم لكم اليوم أداة تلوين خلفية النماذج بألوان متدرجة والتي تقوم بمنح النماذج خلفية ملونة بطريقة جميلة حيث تقوم فيها بإختيار لونين ليتم دمجهما والحصول على خلفية تتكون من ألوان متدرجة بين هذين اللونين ويمكن تحديد إتجاه التدرج (أفقياً - عمودياً - قطرياً) إستخدام الأداة سهل للغاية ولن يتطلب أي مهارات حيث أن الأداة تقوم بكل العمل تقريباً ما عليكم سوى تحديد الألوان والإتجاه وستقوم الأداة بتعميم التنسيق على بقية النماذج ضمن التطبيق. مرفق لكم مجلد يحتوي على نسخة توضيحية لتجربتها ومعرفة طريقة عملها ونسخة الفالب وتحتوي على الكائنات المطلوب إستيرادها لإستخدامها في تطبيقاتكم أرجو أن تنال هذه الأداة إعجابكم تحياتي صاحب الملف منتصر الانسي تمت الاضافه 11/17/25 الاقسام قسم الأكسيس  

هل الاضافات في جدول Receiving_Bundle مستمرة ؟ اي متجددة .. على مستوى Block_NO الواحد اذا نعم انت بحاجة الى زر تحديث لتحديث الاجمالي بين فترة واخرى .. على الاقل يتم التحديث عند الرغبة في عرض التقرير

طيب جرب المرفق التالي تغير المصدر.mdb

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