أبو عبدالله الحلوانى

تصميم الجداول بهذه الطريقة به خلل اليس من الممكن أن يكون للصنف الواحد أكثر من 6 مواد خام ماذا سنصنع فى هذه الحالة هل سنقوم بتعديل تصميم الجدول لاضافة أعمدة جديدة للأكواد ؟!! ساعمل على تعديل الجداول وهذا بعد اذنك طبعا ليكون لدينا جدول للأصناف وجدول للمواد الخام مرتبطين بكود الصنف وهذا سيسمح بأن أى تعديل بجدول الصنف خاصة بالكود سيتم التعديل بجدول المواد الخام تلقائيا بدون الحاجة لعمل ذلك يدويا . جرب هذا ووافنا بالنتائج ولا تنسانا من صالح دعائك tt.rar

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

ضع خلف السجل الذى تريد هذا الكود Docmd.OpenForm "ن_النماذج_الفرعية"

هذا الكود موجود خلف مربع منطقة الوصول If Len(t1 & "") = 0 Or _ Len(t2 & "") = 0 Then MsgBox "Please insert Start/End Point " Else t0 = t1 & " " & t2 End If وهو بسيط كما ترى ويقوم باختبار وجود بيانات بمنطقة الانطلاق ومنطقة الوصول فان وجد بيانات جمعها وأرسله للمسلك وان لم يجد أعطاك رسالة تنبيه بضرورة ملأ البيانات اعذرنى فأنا لا أجيد الشرح النظرى ولكن يمكنك عرض الكود ومحاولة التعديل عليه لتنظر ما هى التغيرات المناسبة لك

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

جزاك الله خيرا مبارك على مروركم الكريم

الحمد لله هلا أخبرتنا ما هو الحل

هذه المرة لم استطع تحميل المرفق أرجو من الاخوة الأعضاء اخبارنا هل استطاع تحميل المرفق أم لا ولكن وعل كل حال لدى اقتراحين حاول التجربة ووافنى بالنتيجة 1- بعد مراجعه نص السؤال الأول مرة أخرى اتضح لى أن حضرتك قد جعلت الدالة Date()= فى خاصية القيمة الافتراضية لمربع النص هل هذا صحيح؟ اذا كان صحيحا فاقتراحى أن تجعل الدالة فى Control Source لــ textbox لا فى ال Defult value 2- أما اقتراحى الثانى أن تجعل هذا الكود فى زر الحفظ على اعتبار ان التكست بوكس اسمه t1 T1 = Date وأكرر آسفى أنى لم أستطع تحميل المرفق الخاص بحضرتك

جرب هذا ووافنا بالنتائج تمنياتى بالتوفيق المسلك.rar

شكرا لمرورك أخى وجزاك الله خيرا

لنفرض أن لدينا مودييل اسمه Module1 فلا يصلح أن تكون ال Function اسمها أيضا Module1 هل هذا واضح؟ وعلى كل أرفق مثالا للتعديل عليه اذا أحببت

مبدع كعادتك الله يعينك وييسر لك جزاك الله خيرا

تفضل التعديل مع العلم يجب تفعيل الفنت المرفق بالبرنامج اما عن طريق نسخه بفولدر اسمه Fonts داخل مجلد الويندز لديك أو من خلال فتح الفونت والضغط على زر install كما بالصور BarCodeFont.rar

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

رغم أنك لم تجبنى عن سؤالى هذا الا أنى سأقوم بالتعديل حسب ما فهمت أنا ( ولكن انت المسئول) تفضل أصبح الآن فورم الاستور للاضافة والخصم معا وقد استغنينا عن كل شىء على فكرة لازم يكون عندك برنامج winrar لتستطيع فك الضغط عن الملف SimpleStor2 - Copy.rar

حضرتك لم تحدد شرط لحقل التجميع فى جزء الشرط كتبت "تويتر" ما هو اسم الحقل الذى تكون به هذه المعلومة على فرض أن الحقل اسمه بيانات الاتصال اذا سيكون الكود كالتالى Dsum("المبلغ","البيانات","[بيانات الاتصال]=" & "تويتر") 'الكود ظهر بالعربى بشكل معكوس لذا قمت بكتابته بحروف انكليزية ليتضح الاتجاه Dsum("Cost","Data","Connect_Data =" & "تويتر")

هل هذا سؤال أم اقرار وهذا ما يحث بالبرنامج

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

جرب هذا الحل هل هذا ما تريد المسلك.rar

مبارك على مروركم الكريم جزاك الله خيرا

للأسف بعد تحميل المرفق لم يتم استخراجه من الأرشيف

جزاكم الله خيرا هذه الكلامات أغلى من الذهب ومروركم الكريم أغلى من الماس

آسف فلم أقم بتحميل المرفق عندما رأيت حجمه ولكن أبشر جارى التحميل

نعم مبارك على مروركم الكريم جزاك الله خيرا

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