طلب جعل الكمبوبوكس يبحث فى داخله

[عمر ضاحى]

السلام عليكم اساتذتى 

مرفق نموذج لفاتورة 

فى الفاتورة يوجد نموذج فرعي

فى النموذج الفرعي يوجد كمبوبوكس

الحقل هذا هو قائمة من جدول

هذا الحقل هو حقل الاصناف

اريد لما اكتب اى حرف يجبلى هذه الصنف سواء كان هذه الحرف فى الوسط او فى الاخر 

 

ولكم جزيل الشكر

123456.accdb

[عمر ضاحى]

 

جربت ان اضع فى الاستعلام  معيار

Like "*" & [Forms]![Frm_sales2]![name_of_product] & "*"

لكنه لم ينجح معي وايضا اظهر لى خطأ عاوزني اكتب له معلمات 
 

[عمر ضاحى]

للرفع

الغرض من هذا تقليل الوقت للوصول للصنف 

لان بزيادة عدد الاصناف يصبح شئ مرهق الوصول للصنف

[Eng.Qassim]

مرحبا استاذ عمر

هل جربت الكتابة في حقل اسم الصنف؟

جرب ان تكتب وسوف يظهر لك اسم الصنف

[عمر ضاحى]

دي انا عارفها 

لكن لو فرضا انا عاوز صنف معين الاسم فى منتصف اسم صنف 

مثلا 

مونادا كوكاكولا  كانيطة

عاوز اكتب كلمة "كو" فيجبلى كل ال فيهم كلمة (كو)

[سامي الحداد]

تفضل استاذ عمر

ان شاءالله يكون هو المطلوب

بالتوفيق

123456.accdb

[عمر ضاحى]

هذا هو 

اشكرك كثيرا

لكن فى مشكله ظهرت معايا 

تم تعديل أغسطس 29, 2021 بواسطه عمر ضاحى

[Eng.Qassim]

لا اعلم ان كانت تفيدك هذه الطريقة

123456.accdb

[Eng.Qassim]

نزلت البرنامج لدي الذي غيره استاذ سامي الحداد ولم يحدث خطأ

[عمر ضاحى]

هو شغال 

والخطأ اختفى لا اعرف ليه او كيف

لكن لما مثلا اكتب الصنف ممكن الاقى اخطأ مثل انه يظهر لى صنف او صنفين فقط مع انى لو خرجت منها وعدت لها مره اخرى الاقى ظهر لى باقى الاصناف

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

 

[عمر ضاحى]

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

احيانا لا تظهر الاصناف

احيانا تكون موجوده لكن لكى اظهرها لازم امشي بالموس على القائمه

هل لها حل ولا كده اخرها ؟

 

[د.كاف يار]

تفضل التعديل

 

123456.accdb

[Eng.Qassim]

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

[أ / محمد صالح]

بارك الله لك أخي @د.كاف يار

رجاء من كل رواد منتدى الأكسس

قراءة ما يخص الاقتباس في توقيعي

[د.كاف يار]

اوافقك الرأي جملة و تفصيلا و ما في جعبتها من معاني

شكرا لك

[د.كاف يار]

تفضل هذا الاقتراح اخي عمر

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

 

عمر.accdb

[عمر ضاحى]

@د.كاف يار

بعد اذن حضرتك

عندي فى فاتورة المبيعات 

فى مشكلتين 

الاولى 

لما حبيت اطبق الكود الخاص بالقائمة علشان ابحث عن الاصناف 

بقي يخفي لى الصنف نفسه ولا استطيع ان اعيد اختيار الاصناف تاني 

 

المشكله الثانيه 

عاوز لما اكتب الكميه يبحث هل الكميه المتوفره تكفى المطلوب ام لا 

اذا كان لا يظهر لى رساله بان المخزون غير كافى او ما شابه 

 

فى المشكله الثانيه انا جهزت الاستعلام وكل شئ 

لكن مش عارف اجلب البيانات من الاستعلام عن طريق دالة Dlookup

بيجبلى خطأ 

حاولت كثير وكلهم فشلو مش عارف ليه 

الداله دي تعباني 

مره تشتغل وتجلب لى معلومات 

ومره تجلب لى جلطه فى الدماغ 😁

 

321.accdb

[د.كاف يار]

ماهو اسم جدول التوريد  الذي به الكميات ؟

ماهو المبيعات الذي به الكميات ؟

[عمر ضاحى]

فى استعلام اسمه 

Q_inventory_02x

ده ال بيظهر فى الارصده 

بعد الطرح والاضافه

[د.كاف يار]

28 دقائق مضت, عمر ضاحى said:

عاوز لما اكتب الكميه يبحث هل الكميه المتوفره تكفى المطلوب ام لا 

 

راح ناخذ الموضوع حبه حبه

بالنسبة لهذي المشكلة اتفضل هذا الحل 

بعد اختيار الصنف و ادخال الكمية يكون الحدث

321.accdb

30 دقائق مضت, عمر ضاحى said:

فى المشكله الثانيه انا جهزت الاستعلام وكل شئ 

 

هذي المشكلة انتهت و كذلك تم تغيير اسم آخر عمود 

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

31 دقائق مضت, عمر ضاحى said:

لما حبيت اطبق الكود الخاص بالقائمة علشان ابحث عن الاصناف 

 

هل جربت الاقتراح الأخير للقائمة ؟ اعتقد بأنه يفي بالغرض

[عمر ضاحى]

د.كاف يا

انت شخص عظيم 

ربنا يجعله فى ميزان حسناتك ويغفر لك ويحفظك انت ومن احببت وجميع المسلمين

[د.كاف يار]

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

انشئ Module جديد و الصق فيه التالي

'==================================== لمعرفة اجمالي المخزون لكل صنف ================================================

Public Function TotalStock(Id_product As Integer) As Integer
On Error Resume Next
Dim TotalImportStock, TotalSales As Integer
    TotalImportStock = Nz(DSum("quantity_of_product", "Tb_purchse2", "name_of_product=" & Id_product), 0)
    TotalSales = Nz(DSum("quantity_of_sale", "Tb_sales2", "Id_of_product=" & Id_product), 0)
    TotalStock = TotalImportStock - TotalSales
End Function

'======================================= لمعرفة اجمالي المبيعات لكل صنف =============================================

Public Function TotalSales(Id_product As Integer) As Integer
On Error Resume Next
    TotalSales = Nz(DSum("quantity_of_sale", "Tb_sales2", "Id_of_product=" & Id_product), 0)
End Function

'========================================== لمعرفة اجمالي التوريد لكل صنف ==========================================

Public Function TotalImportStock(Id_product As Integer) As Integer
On Error Resume Next
    TotalImportStock = Nz(DSum("quantity_of_product", "Tb_purchse2", "name_of_product=" & Id_product), 0)
End Function

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

 

و للمثال تم انشاء استعلام بإسم ( المخزون الكلي لجميع الاصناف )

 

321.accdb

[عمر ضاحى]

انت كل مره تبهرني بطرقك 

6 ساعات مضت, د.كاف يار said:

هل جربت الاقتراح الأخير للقائمة ؟ اعتقد بأنه يفي بالغرض

فهمت فكرتك 

هي جميله بل ممتازه واكثر

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

لكن تسلم يدك وعقلك