اختيار الشعب للطباعة

[saffar]

السلام عليكم جميعا

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

شكرا لكم

 

 

Info list.rar

[خالد عبد الغفار]

تفضل هذه المحاولة 

ولكن من وجهة نظرى المتواضعة أرى أنه من الأفضل أن تعمل جدول للشعب

Info list.rar

[saffar]

شكرا على المحاولة لكن ليس هذا الذي قصدته

مثال بالصورة المرفقة

Info list.rar

[خالد عبد الغفار]

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

لو بتشتغل على برنامج صناعى كنترول مثلا

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

هيبقى مصدر الكمبو بوكس اللى هتختار منه الشعبه مصدره جدول الشعب

[saffar]

لم افهم قصدك اخ خالد

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

في الحالة العادية اما طباعة قائمة واحد او جميع القوائم ، المطلوب اختيار قائمة او قوائم مختلفة من List  او CheckBox كما هو موضح في الصورة 

[Eng.Qassim]

وعليكم السلام..

هل هذا مطلبك؟ عملت نموذج فيه listbox

Info list.rar

[saffar]

اهلا بالمهندس قاسم 

هذا اختيار طلاب من Listbox والمطلوب هو قائمة طلاب في صف 

والشعب موجودة في جدول groups

مثال 1تلم1 - 1تلم2 - 3كهر1 - 5كهر1 وكل شعبة فيها قائمة طلبة

[Eng.Qassim]

حياك الله اخي @saffar

انا اشتغلت مما فهمته من الصورة المرفقة

ياريت ترفق مثال واقعي ومختصر ..يكون اقرب للفهم ..لاني اعتقد ان ملاحظات الاستاذ @خالد عبد الغفار.. في محلها

[Barna]

 

17 دقائق مضت, saffar said:

اهلا بالمهندس قاسم 

هذا اختيار طلاب من Listbox والمطلوب هو قائمة طلاب في صف 

والشعب موجودة في جدول groups

مثال 1تلم1 - 1تلم2 - 3كهر1 - 5كهر1 وكل شعبة فيها قائمة طلبة

طيب انظر الصور والمرفق هل هذا هو المطلوب ........

 

 

Info list.accdb

تم تعديل يونيو 23, 2022 بواسطه Barna

[saffar]

شكرا اخ Barna وهو المطلوب اثابته

والشكر موصول الى المهندس قاسم والاخ خالد

[متقاعد]

مع التحية والتقدير للاستاذ محمد البرناوي على الحل الرائع

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

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

في البداية استخدمنا مربع نص غير منضم اسميته tx3 وقيمته تساوي

Me.tx3 = tx3 & "'" & Curr_Grp.Column(0) & "',"

ثم في زر الامر لفتح التقرير وضعنا الامر

Dim k, w As String
k = tx3
w = "st_mstr.Curr_Grp IN (" & Left(k, Len(k) - 1) & ")"
DoCmd.OpenReport "r_1", acViewPreview, , w

والنتيجة في الصورة

تحياتي

[Barna]

دائما رائع أخي الكريم @مبرمج سابق .... ماشاء الله تبارك الله ...

[Eng.Qassim]

30 دقائق مضت, مبرمج سابق said:

ولكوني من المدرسة القديمة

جيل الطيبين 😂

[متقاعد]

2 ساعات مضت, Barna said:

دائما رائع أخي الكريم @مبرمج سابق ....

الاروع من ذلك حسن خلقكم استاذي الفاضل 🌹

1 ساعه مضت, Eng.Qassim said:

جيل الطيبين 😂

ههههه والله انك لست بعيد عن جيل الطيبين اخي قاسم 🌹

تم تعديل يونيو 24, 2022 بواسطه مبرمج سابق

[saffar]

ماشاء الله تبارك الله @مبرمج سابق كود مختصر شكرا لك على المشاركة

 

 

[متقاعد]

58 دقائق مضت, saffar said:

ماشاء الله تبارك الله @مبرمج سابق كود مختصر شكرا لك على المشاركه

الشكر لله اخي @saffar

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

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

تحياتي

[حامل المسك]

15 ساعات مضت, مبرمج سابق said:

في البداية استخدمنا مربع نص غير منضم اسميته tx3 وقيمته تساوي

ما شاء الله تكامل وإبداع،،

وحلول وأفكار،،

وإكمالا للمسير إذا تكرمتم بأن يكون مثل ذلك على نموذج مثال حتى تكون جودة التطبيق..

فمثلي يحتاج لذلك كثيرا

سلمتم أساتذتنا الكرام..

[ناقل]

في 25‏/6‏/2022 at 13:34, حامل المسك said:

ما شاء الله تكامل وإبداع،،

وحلول وأفكار،،

وإكمالا للمسير إذا تكرمتم بأن يكون مثل ذلك على نموذج مثال حتى تكون جودة التطبيق..

فمثلي يحتاج لذلك كثيرا

سلمتم أساتذتنا الكرام..

تفضل اخي الكريم .... المثال لكود اخي @مبرمج سابق

 

Info list.rar

[متقاعد]

22 دقائق مضت, ناقل said:

تفضل اخي الكريم .... المثال لكود اخي @مبرمج سابق

تمام عليك استاذ الفاضل @ناقل

لو اردنا الاستغناء عن الحقل غير المنضم tx3

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

Dim tx As String

وقيمته تكون

tx = tx & "'" & Curr_Grp.Column(0) & "',"

في امر طباعة نضع الامر

If tx = "" Then MsgBox "لم تحدد السجلات المطلوبة من القائمة", , "رسالة": Exit Sub
Dim k, w As String
k = tx
w = "st_mstr.Curr_Grp IN (" & Left(k, Len(k) - 1) & ")"
DoCmd.OpenReport "r_1", acViewPreview, , w

واضافة لتسهيل الغاء الاختيار نعمل زر امر نسمية الغاء مثلا ونضع فيه الامر

Dim s As Variant
tx = ""
For Each s In Me.Curr_Grp.ItemsSelected
Me.Curr_Grp.Selected(s) = False
Next

مع التحية والتقدير لاخي واستاذي ناقل

والاعتذار ممن طلب وضع المثال

حيث ان اتفاقي مع اخي جعفر ان يكون اهتمامي فقط للجانب النظري

تحياتي

تم تعديل يونيو 26, 2022 بواسطه مبرمج سابق

[حامل المسك]

في 26‏/6‏/2022 at 15:19, ناقل said:

فضل اخي الكريم .... المثال لكود اخي

سلمت يداك ،، ولكن هناك ملاحظة أنه في حال إلغاء التحديد تبقى القيمة في مربع النص..

[متقاعد]

7 ساعات مضت, حامل المسك said:

ولكن هناك ملاحظة أنه في حال إلغاء التحديد تبقى القيمة في مربع النص

هذا صحيح يادكتور بسبب اختصار الكود وتبسيطة

حيث ان القيمة تنقل لمبرع النص مباشرة عند النقر لذا عند التراجع عن قيمة لابد من تفريغ مربع النص ثم اعادة الاختيار

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

تحياتي

[متقاعد]

12 ساعات مضت, مبرمج سابق said:

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

عملت التعديل بحيث يتم الغاء القيمة التي يلغى تحديدها ولكن حتى لاتسبب ارباك

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

مرفق ملف استاذنا ناقل بعد التعديل

 

 

Info list.accdb