Gamal.Saad

find_count_text.mdb

تمام تمام بارك الله فيك طيب نجرب معا : اعمل مربع نص للبحث وليكن اسمه part ومربع نص آحر به النص الكامل وليكن اسمه text ثم اكتب أمر MsgBox UBound(Split(Me.Text, Me.part)) و الآن اكتب كلمة في مربع البحث واكتب في مربع النص مجموعة كلمات بها الكلمة التي تريد البحث عنها ونفذ الأمر فستظهر رسالة عددية تساوي عدد مرات وجود الكلمة أو تتابع الأحرف الذي كتبته في مربع البحث جرب هذا أولاً ثم نجربه على جدول إن شاء الله

قم بتحويل النص الذي ستبحث بداخله عن الكلمة إلى مصفوفة ثم قم بحساب حجمها طبقاً للمعادلة UBound(Split(string, word)) وبالطبع تحتاج متغير يقوم بتخزين العدد مع كل سجل

قم بتجربة المرفق مع ملاحظة أنه تم استعارة أجزاء من كود التصفية بملف الأستاذة زهرة و أنه اذا تغيرت القيمة في الكومبوبكس بحركة الأسهم فيتغير مصدر البيانات للكمبوبوكس وتظهر نتائج غير مطلوبة أو لا تظهر مطلقاً لذلك أوقفت التصفية في حالة حركة الأسهم ولكن ربما يحتاج الحل لمزيد من التجربة والتعديل cbo_filtered.mdb

في الاكسل تكون الصيغة : =IF(MOD(100*NCompte;97)>12;97-MOD(100*NCompte;97)-12;12-MOD(100*NCompte;97)) بينما في أكسس : =IIf((100*NCompte) Mod 97>12, 97-((100*NCompte) Mod 97) -12,12 -(100*NCompte) Mod 97) والكود ككل يكون كالتالي يكن يحتاج مراجعة النتائج : =IIf(IIf((100 * NCompte) Mod 97 > 12, 97 - ((100 * NCompte) Mod 97) - 12, 12 - (100 * NCompte) Mod 97) < 10, "" _ & "0" & IIf((100 * NCompte) Mod 97 > 12, 97 - ((100 * NCompte) Mod 97) - 12, 12 - (100 * NCompte) Mod 97), "" _ & IIf((100 * NCompte) Mod 97 > 12, 97 - ((100 * NCompte) Mod 97) - 12, 12 - (100 * NCompte) Mod 97))

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

وأنتم بكل صحة وسلامة تقييم 22 .rar

وأنتم بخير والمسلمين اجمعين

جرب المرفق اضافة وصرف لمنتج رئيسي أو فرعي أو مكون لهما أو منتج غير ما سبق مثل الزجاج وأخبرني بالملاحظات التي مازالت قائمة تقييم 20 .rar

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

أوك طيب ايه تسلسل التسجيل المفترض ؟ يعني المنتج اذا كان رئيسي واذا كان مكون فأين يبدأ التسجيل والتكويد؟ علشان نقدر نقترح طريقة تحديد النوع والجمع بين الثلاثة انماط رئيسي وفرعي ومختلط اذا جاز التعبير كمان هناك نمط رابع وهو المنتج المماثل للمنتج الرئيسي مثل hp i3 هذا يماثل المنتج الرئيسي computer i3 المسجل بجدول المنتجات وله مكونات فرعية بجدول بوم

النقطة دي تتعلق بكفية تحديد نوع المنتج كان في السابق يتم تحديد نوع المنتج بدلالة field: Pcode..................table: Item_names لكن أنا عملت تغيير في كلاس المنتج ليحدد النوع من جدول Bom Public pcode As String Public mcode As String Public pprice As Double Public Function Load(cody As String) As String mcode = Nz(DLookup("MCode", "Bom", " [MCode] = '" & cody & "'"), 0) pcode = Nz(DLookup("PCode", "Bom", " [PCode] = '" & cody & "'"), 0) pprice = Nz(DLookup("price", "Products", " [PCode] = '" & pcode & "'"), 0) End Function وهذا ساعدني في مسألة المنتج الذي يعتبر رئيسي وفي نفس الوقت مكون فرعي المهم المسألة تحتاج تفكير منطقي كيف يتم تحديد نوع المكون و من أي جدول ؟ ضمن ثلاثة أنماط من المكونات

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

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

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

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

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

أوك جرب تقريب الأرقام وبالنسبة للنقطة الثانية والثالثة لكي نتأكد من الخطأ فتجنب التجربة على منتج الشاشة حتى نستقر على المنتجات التي تعتبر مكون فرعي و منتج أساسي في نفس الوقت يعني جرب مكون آخر مثل لوحة المفاتيح أو أي منتج اساسي خلاف الشاشة ثم نتتبع الخطأ إن شاء الله تقييم 16 .rar

أوك نفذت بعض الملاحظات جرب وأخبرني بما لم يتم تنفيذه أو المتبقي تقييم 14 .rar

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

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

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

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

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

يا باشا عندك استعلام انت اللي عمله اسمه في المرفق السابق fathers_name به كل أسماء أولياء الأمور وأعداد أولادهم واذا كنت تريد من لديهم أكثر من ابن فعليك فتح الاستعلام ثم وضع معيار أكبر من صفر في حقل الاستعلام عدد الأخوات http://