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

المسجل بجدول المنتجات وله مكونات فرعية بجدول بوم

3 hours ago, Amr Ashraf said:

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

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

كان في السابق يتم تحديد نوع المنتج بدلالة

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

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

المهم المسألة تحتاج تفكير منطقي

كيف يتم تحديد نوع المكون و من أي جدول ؟ ضمن ثلاثة أنماط من المكونات

1 hour ago, Amr Ashraf said:

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

أنا تقريبا مش مستوعب هذه النقطة

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

2 hours ago, Amr Ashraf said:

2 - بالنسبة للمنتج الرئيسى مش بياخد مجموع اخر متوسطات اسعار ده بياخد اول متوسط سعر ويتجاهل الباقى

ده أكيد بسبب أن جميع الفواتير بها نفس المنتج في نفس اليوم

جرب التعديل ده للتغلب على هذه النقطة

2 hours ago, Amr Ashraf said:

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

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

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

لكن هناك عقبة تحول تنفيذ مثالك في هذه النقطة الثالثة

وهي أن أحد مكونات الكمبيوتر وهو الشاشة لم تتم عليه أية حركة في جدول الحركة

وبالتالي لا يتأثر بأي تغيير لسعر الشاشة في جدول المنتجات

بمعنى آخر

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

تقييم 18 .rar

ربنا يبارك فيك ويجزيك خيرا بمثل دعائك وأكثر

وإن شاء الله تنتهوا من البرنامج على خير

13 hours ago, Amr Ashraf said:

1 - هناك ملاحظة بالنسبة لتقريب الارقام فى حساب متوسط السعر يعنى المتوسط المفروض يكون 1633.3333 بيكتب فى الجدول 1633 واظن دى سهلة يتعدل فى دالة راوند .

3- عند استدعاء ثمن المنتج من جدول المنتجات يتم استدعاؤه بطريقة صحيحة ولكن عند ضربه فى الكمية تكون ناتج زد فاليو متقرب ايضا يعنى لو القيمة المفروض تبقى 1233.3333 تبقى فى زد فاليو 1233 .

التقريب عاوز ملاحقة كودية باستمرار هههههه

مرة نلاقي تعريف المتغير

long

ومرة  نلاقيه

integer

والمرة دي موجود

int

داخل راوند

جرب تاني ونتفحص أكثر

13 hours ago, Amr Ashraf said:

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

فعلا جزئية هامة

لو آخر حركة كانت القيمة صفر ستؤثر على سعر المنتج

على العموم تمت اضافة استعلام في البداية يأخذ متوسطات الاسعار التي لا تساوي صفر

ثم الاستعلام الموجود سابقا الذي  يأخذ آخر قيمة لمتوسط السعر

13 hours ago, Amr Ashraf said:

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

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

المشكلة أن مجموع متوسطات الاسعار للمكونات بياخد الاسعار اللي في جدول الحركة

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

أما اذا اضفت الشاشة في الفاتورة كمنتج رئيسي فسوف تأخذ السعر في جدول المنتجات

على العموم

تم عمل استعلام توحيد يجمع بين

استعلام للمكونات الفرعية للمنتج عدا تلك المكونات التي تعتبر مكون رئيسي في نفس الوقت

واستعلام آخر للمكونات الفرعية الموجودة كمنتج رئيسي في جدول المنتجات مع استخراج سعرها بجدول المنتجات

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

المهم جرب

واحتمال كبير تلاقي ملاحظات بسبب التعديلات الأخيرة

المهم خلي نفسك طويل

وصبر جميل

تقييم 16 .rar

On 6/21/2017 at 6:33 PM, Amr Ashraf said:

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

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

أعتذر عن التأخير

راجع كده المرفق

وشوف لو متبقي ملاحظات

كمان شوف منتج الشاشة يتم التعامل معه كمنتج رئيسي

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

ده طبعا اقتراح للتعامل مع المنتجات المزدوجة والأمر يعود لكم

لكن المهم في المسألة أن تكون المكونات الفرعية شاملة لسعر المنتج بالكامل بحيث لا ينقص أي جزء يؤثر على سعر الشاشة على سبيل المثال

تقييم 14 .rar

أوك

إن شاء الله سيتم مراجعة وضبط بعض الأمور البسيطة  في الملاحظات السابقة

ثم ننتقل إلى مسألة المنتج الرئيسي الذي في نفس الوقت مكون فرعي

لكن أستسمحك فترة توقف خلال هذين اليومين من الأيام المباركة

تقبل الله منا ومنكم صالح الأعمال

وأزال الفرقة بين المسلمين

7 hours ago, Amr Ashraf said:

تقريب الارقام كده تمام ياباشا ونأجل النقطة رقم 2 لحد ما نظبط متوسط السعر 

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

وانا متابع معاك لو فى حاجة 

أوك

علشان نضبط متوسط السعر

اعمل مثال

بحيءث احذف كافة الاصناف في جدول الحركة وأضف مكون فرعي في فاتورة ثم ضع قيمة له

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

وأرفق لي الملف

ثم أخبرني عن متوسط السعر في السجلات الخمسة الأولى المفترض تكون صحيحة

حتى أستطيع تتبع الخطأ

ملحوظة:

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

نظرا لأن الشرط زد فاليو يساوي صفر قد تحقق في الفانكشن

وهذه نعالجها فيما بعد

12 minutes ago, Amr Ashraf said:

تمت التجربة يا غالى بالنتيجة التالية :

1- مازالت مشكلة تقريب الارقام عند استدعاء سعر المنتج من جدول المنتجات الى جدول الحركات يعنى مثلا لو فى جدول المنتجات 108.33333 يتم استدعاؤه الى جدول الحركات 108

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

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

متابع معاك لو فى ملحوظة او استفسار 

تقييم 15 .rar

أوك

جرب تقريب الأرقام

وبالنسبة للنقطة الثانية والثالثة

لكي نتأكد من الخطأ فتجنب التجربة على منتج الشاشة

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

يعني جرب مكون آخر مثل لوحة المفاتيح أو أي منتج اساسي خلاف الشاشة

ثم نتتبع الخطأ إن شاء الله

تقييم 16 .rar

6 hours ago, Amr Ashraf said:

1- تعديل قيمة زد فاليو لا يعيد حساب متوسط السعر ولا رصيد بعد الحركة.

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

3- عند استدعاء سعر من جدول المنتجات اذا كان الرقم 1.5252525255 يكتبه فى متوسط السعر 1 فقط ويتجاهل المنازل العشرية فى حين انى محتاجه يكون متوسط السعر 5 منازل عشرية يعنى مثلا يكون 1.53636 مثلا وهذا المطلب ينطبق على كل مكان فيه متوسط سعر وعمليات حسابية تعتمد على متوسط السعر يعنى حقل متوسط السعر وحقل زد فاليو وحقل توتال فاليو يبقو 5 ارقام عشرية .(مهمة جدا)

4-فى حالة صرف منتج يتم استدعاء متوسط السعر من جدول المنتجات ولا يضربه فى الكمية ولا ينتج زد فاليو .

أوك

نفذت بعض الملاحظات

جرب

وأخبرني بما لم يتم تنفيذه أو المتبقي

تقييم 14 .rar

6 hours ago, Amr Ashraf said:

أوك

سنقوم ببعض التعديلات

لكن بالنسبة لنقطة أن المنتج له مكونات

وأن المكون له مكونات تحته

مثلا الشاشة كما ذكرت

اذا قام المستخدم باضافة شاشة فماذا تريد من البرنامج أن يقوم به ؟

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

أم يتعامل مع الشاشة كمون فرعي ويحسب متوسط السعر  وباقي المعادلات المعروفة للمكون الفرعي ؟

2 minutes ago, حمدى الظابط said:

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

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

وأحبك الله الذي أحببتني فيه

تمام

بالتوفيق ومنتظرين الجديد إن شاء الله

أستاذ حمدي

كيف حالك؟ إن شاء الله تكون بخير

20 hours ago, حمدى الظابط said:

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

اذا كان هناك بطء

فهو من الدالة التجميعية

والحل كما أرفقته لك سابقا وهو دالة مختصرة لا تحتاج لعمل فضل الاسم لمجموعة مقاطع ثم تجميعها

هذه يأخذ وقتا غير ضرورياً

بالنسبة لاضافة أسماء ليتم التحديث بصورة تلقائية

عليك نقل الأوامر الموجوده في زر

run

إلى حدث

اغلاق نموذج التسجيل لطالب جديد

فسوف يعمل ويحسب لك أخواته تلقائيا

بالنسبة لطريقة أسهل من ذلك

فأعتقد أنه لا يوجد فيها أي شيئ صعب

كلها استعلامات اختيار ثم الحاق فتجميع فتحديث

ولا يوجد طلب لك لم تقم هذه الطريقة بتنفيذه

وبرغم ذلك لا نغلق الباب أمام الزملاء للبحث عن حل أسهل 

بالعكس نرحب بالمقترحات وتحسين طريقة الحل

9 hours ago, Amr Ashraf said:

جزاك الله خير يا غالى وفى انتظار الكود الصاروخى

هههههههه لا صاروخي ولا حاجة

بالعكس دي حاجة متواضعة

على العموم جرب أول محاولة تشمل المنتجات الرئيسية وكذلك مكوناتها

في حالتي الاضافة والصرف

تقييم 12.rar

18 hours ago, Amr Ashraf said:

لكن ماتم بيعه وشراؤه من قبل لن يتغير

تمام

تم وضع شرط بتعديل متوسط السعر اذا لم يكن صفر

وأعتذر عن التأخير

لكن شوية غسيل للكود

واجراء تجارب  اختصار للفانكشن وبعدها أرفق لك الملف إن شاء الله

1 hour ago, حمدى الظابط said:

 انا عايز احجز ولى الامر اللى له اولاد فى استعلام لوحدة

يا باشا عندك استعلام انت اللي عمله

اسمه في المرفق السابق

fathers_name

به كل أسماء أولياء الأمور وأعداد أولادهم

واذا كنت تريد من لديهم أكثر من ابن

فعليك فتح الاستعلام ثم وضع معيار

أكبر من صفر

في حقل الاستعلام عدد الأخوات

http://