salehej

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

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

السلام عليكم ورحمة الله 

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

المطلوب

-  عند اضافة مشتريات تكون قائمة منسدلة في الصنف اختار منها الصنف وإن لم يكن الصنف موجود استطيع ان اضيف مباشرة من المشتريات وتضاف تلقائياً لجدول الاصناف 

- عند اضافة مشتريات جديدة والصنف موجود مسبقاً يتم زيادة وتحديث الكمية في جدول الاصناف 

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

- في المشتريات والمبيعات يجب ان لا يتكرر الصنف حيث عند اختيارة مرة اخرى تزيد الكمية على المختار سابقاً

وشكرا لكم لما تقدمون من معرفة 

Database1.accdb

هل من حل عند بقية الاخوة 

On 5/25/2019 at 1:50 AM, salehej said:

 😬اخي رمهان فيه ملاحظة 

ارجو ان يتسع صدرك لكثرة طلباتي

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

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

فلا ادري هل يجب تغييره بصيغة اخرى او لا 

مرفق صورة للمعيار الموجود على الحقل مصدر مربع القائمة ومعيار احد القوائم النسدلة الاخرى

ارجو ان تكون واضحة ملاحظتي وشكرا لك 

شكرا لك اخي رمهان لكن المهم عندي هو حل هذي النقطة مع نقطة ربط القوائم مع بعض لانه بدونهن لا يتم عمل البرنامج بشكل صحيح

وشكرا لك

هل من حل؟

اريد كود زر امر يحدد كل الخيارات في مربع القائمة 

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

آمل حل هذي المشكلة وايضا توضيح لو اضفت مربع  قائمة اخر بالمستقبل كيف ربطهم مع بعض مع حل المشكلة المشار لها في المشاركة السابقة الخاصة بالاستعلام والتقرير 

وشكراً لكم

 😬اخي رمهان فيه ملاحظة 

ارجو ان يتسع صدرك لكثرة طلباتي

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

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

فلا ادري هل يجب تغييره بصيغة اخرى او لا 

مرفق صورة للمعيار الموجود على الحقل مصدر مربع القائمة ومعيار احد القوائم النسدلة الاخرى

ارجو ان تكون واضحة ملاحظتي وشكرا لك 

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

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

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

9 minutes ago, رمهان said:

الكود الجديد للبحث

Private Sub مربع_تحرير_وسرد162_AfterUpdate()
If Me.مربع_تحرير_وسرد162.ItemsSelected.Count = 0 Then Me.FilterOn = False: Exit Sub
For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "',"
Next
xt = Nz(Left(xt, Len(xt) - 1), "")
Me.Filter = "[stat]in(" & xt & ")"
Me.FilterOn = True
End Sub

كود الغاء التحديد واظهار الكل

For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
    Me.مربع_تحرير_وسرد162.Selected(xsel) = False
       Next

بالتوفيق

فيه مشكلة اخي رمهان وهي عندما ازيل كل الاختيارات من مربع القائمة يضهر خطاء

2 hours ago, رمهان said:

جرب بعد التحديث للقائمة

Private Sub مربع_تحرير_وسرد162_AfterUpdate()
For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "',"
Next
xt = Left(xt, Len(xt) - 1)
Me.Filter = "[stat]in(" & xt & ")"
Me.FilterOn = True
End Sub

واعتقد الموضوع مكرر هنا

https://www.officena.net/ib/topic/91238-تحويل-قائمة-منسدلة-إلى-مربع-قائمة/

بالتوفيق

 ايضا اريد زر يلغي كل الاختيارت من مربع القائمة بالكامل بدل ما اذهب ازيل واحد بعد الاخر

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

جزاكم الله خير واحسن الله إليكم وشكر  الله سعيكم

2 hours ago, رمهان said:

جرب بعد التحديث للقائمة

Private Sub مربع_تحرير_وسرد162_AfterUpdate()
For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "',"
Next
xt = Left(xt, Len(xt) - 1)
Me.Filter = "[stat]in(" & xt & ")"
Me.FilterOn = True
End Sub

واعتقد الموضوع مكرر هنا

https://www.officena.net/ib/topic/91238-تحويل-قائمة-منسدلة-إلى-مربع-قائمة/

بالتوفيق

19 minutes ago, مسفر said:

 وين المشكلة ؟

كيف عمل معك انا لا استطيع ان اكتب اكثر من حرف

السلام عليكم ورحمة الله 

لدي نموذج فيه قوائم منسدلة ومربع قائمة اريد ان يتم التصفية بناء على القوائم المنسدلة ومربع القائمة

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

مرفق الملف وفيه التوضيح

آتمنى أن اجد حل من الاخوة الافاضل وجزاكم الله خير 

تجريب.accdb

8 minutes ago, ابا جودى said:

يمكن ولكن البحث يتم بعد الانتهاء من الكتابه 

اى بعد التحدث وليس عند التغيير

لا اللذي اريده هو ان يكون اثناء الكتابة لكن شكرا لكم على تفاعلكم وسعة صدوركم علي

فيه موضوع اخر لدي لم يتم الرد عليه اذا امكن احد يكون عنده الحل

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

مرفق ملف البحث 

البحث.accdb

السلام عليكم

مرفق الملف ووضحت داخل النموذج

" mediaq "

  ما هو المطلوب 

آمل المساعد منكم وشكرا لكم

تجريب.accdb

هل من حل

ماهو الخيار اللي يحتاج مراجعة 

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

لكن حسب فهمي لكثير من الشروحات ان المشكلة هذي شائعة 

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

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

السلام عليكم ورحمة الله

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

امل الشرح الواضح لاني بحثت ووجدت امثلة  وكلها شرح غير واضح 

آمل المساعدة وشكرا لكم 

السلام عليكم ورحمة الله 

اخواني بحثت كثيرا ولم اجد حلاً لما اريد فلا اعرف هل بالامكان عمله ام لا 

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

 لكن بعض القوائم المنسدلة احتاج اختار منها اكثر من خيار بنفس القائمة ، وعندها تم تغيير بعض القوائم المنسدلة إلى "مربع قائمة" لكن لم يتم عمل المطلوب بنجاح لانه لا يحدث اي تغيير عند اختيار البيانات من مربع القائمة هذا.

 المطلوب هو ان اختار من القائمة المنسدلة اكثر من خيار ،  عن طريق تغييرها الى مربعة قائمة أو على نفس شكلها المهم اني استطيع ان اختار اكثر من خيار بنفس القائمة 

 هذا  شكل مربع القائمة أو القائمة المنسدلة المطلوب عمله أو اي قائمة ثانية استطيع ان اختار منها اكثر من خيار

آمل الرد والمساعدة وشكرا لكم 

2 hours ago, صالح حمادي said:

السلام عليكم

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

مثال: لديك مربع نص في تذييل التقرير اسمه txt1 و مكتوب فيه count(*)

نضيف مربع نص آخر في تذييل الصفحة و نضع في مصدر عنصر التحكم : =txt1

تم عمل المطلوب شكرا لك على شرحك الرائع والواضح