kaser906

اعطنا شرح اكثر او صورة لما تريد

وعليكم السلام تفضل ::بالتوفيق:: Kaser906.accdb

ماهو التكرار الذي تقصده ممكن تضيح ؟

على ما اعتقد الطريقة التي تريدها غير ممكنة ولكن انظر الموضوع التالي لإستاذنا @jjafferr ::بالتوفيق::

جرب هذا المرفق sum (4).rar

لايوجد سبب واضح حتى اني لم اغير في تسميات الحقول !!! ما هي لغة windos لديك ؟

أخي الكريم هذه صورة من نفس المرفق الذي وضعته لك بالاعلى

قبل ان تتقدم في مشروعك وتصل الى نقطة اللاعودة اقدم لك بعض الملاحظات اولا حاول اعادة تصميم الجداول وعمل علاقات بينها ثانيا اكتب اسماء الحقول باللغة الانجليزية فهي اسهل في كتابة الاكواد تفضل هدا ما جال في خاطري عساه يحقق تطلعاتك =[الصنف].[column](1) & " " & [المنشأ].[column](1) & " " & [الجرام] & " ج" & [المقاس] & " " & " سم" sum (3).rar

اعتقد ما تطلبه يمكن تحقيقه في النمودج اما الجدول فلا اعلم ان كان يمكن من خلاله عمل ذلك

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

شكرا لك

بما ان الارقام كثيرة ممكن نفهم ليه سبب رفضها لعله تكون هناك فكرة افضل مما تريد تطبيقه

تفضل ::بالتوفيق:: 1حج.rar

وعليكم السلام ورحمة الله وبركاتة ضع في حدث قبل التحديث هذا الكود if me.[اسم الحقل بالنموذج]= 011870185 or 011870195 then msgbox"هذا الرقم مرفوض" end if ::بالتوفيق::

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

تفضل ::بالتوفيق:: نموذج لرقم غير -kaser906-1موجود.rar

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

وعليكم السلام ورحمة الله وبركاتة لماذا لاتستغني عن الشرط في الاستعلام وتجعله في النموذج هنا بإمكانك وضع شرط للتحقق من وجود السجل قبل فتح النموذج ::بالتوفيق::

جاوبتك على النقاط التي طرحتها ولم اكلف نفسي الاجابة على شيْ لم تستفسر عنه وتطرحه ::بالتوفيق::

انظر الموضوع التالي : ::بالتوفيق::

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

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

طريقة جديدة تضم الى المكتبه شكرا لك

كيف ما اصير صياد اذا كنت انت معلمي تعلمت منك الكثير ومازلت اتعلم وسأضل اتعلم Tx = DCount("*", "Table1", "[txt]='" & Me.txt & "' AND[nb]=" & Me.nb & " and [Tdate]=" & DateFormat(Me.Tdate)) النتيجة ممتازة شكرا لك ومبروك على الترقية مع الاسف اخي ابو ياسين النتيجة ليست كما يجب لاجديد طبعا يقال بحقك دائماً مبدع تعددت الحلول من اساتذة كبار وهذي ينطبق على مقولة استاذي @jjafferr في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال شكرا لكم جميعا ‏‏dcountData - 2.accdb

السلام عليكم الكود التالي لعد السجلات بثلاث شروط حقل من نوع تاريخ وحقل من نوع رقم وحقل من نوع نص بعد تحديث حقل التاريخ من جدول Tabel1 ولكن توجد به مشكلة عند اضافة شرط التاريخ لايتم العد ويعطي النتيجة صفر وعند ازالة شرط التاريخ يعطي نتائج صحيحة Tx = DCount("id", "Table1", "[Tdate]=#" & Me.Tdate & "# AND[txt]='" & Me.txt & "' AND[nb]=" & Me.nb & "") dcountData.accdb