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

[saffar]

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

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

شكرا لكم

 

 

Info list.rarFetching info...

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

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

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

Info list.rarFetching info...

[saffar]

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

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

Info list.rarFetching info...

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

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

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

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

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

[saffar]

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

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

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

[Eng.Qassim]

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

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

Info list.rarFetching info...

[saffar]

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

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

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

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

[Eng.Qassim]

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

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

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

[Barna]

 

  في 23‏/6‏/2022 at 20:09, saffar said:

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

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

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

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

Expand  

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

 

 

Info list.accdbFetching info...

تم تعديل يونيو 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]

  في 24‏/6‏/2022 at 19:19, مبرمج سابق said:

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

Expand  

جيل الطيبين 😂

[متقاعد]

  في 24‏/6‏/2022 at 19:25, Barna said:

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

Expand  

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

  في 24‏/6‏/2022 at 19:49, Eng.Qassim said:

جيل الطيبين 😂

Expand  

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

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

[saffar]

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

 

 

[متقاعد]

  في 25‏/6‏/2022 at 07:38, saffar said:

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

Expand  

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

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

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

تحياتي

[حامل المسك]

  في 24‏/6‏/2022 at 19:19, مبرمج سابق said:

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

Expand  

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

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

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

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

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

[ناقل]

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

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

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

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

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

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

Expand  

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

 

Info list.rarFetching info...

[متقاعد]

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

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

Expand  

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

لو اردنا الاستغناء عن الحقل غير المنضم 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 12:19, ناقل said:

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

Expand  

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

[متقاعد]

  في 27‏/6‏/2022 at 20:35, حامل المسك said:

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

Expand  

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

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

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

تحياتي

[متقاعد]

  في 28‏/6‏/2022 at 04:01, مبرمج سابق said:

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

Expand  

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

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

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

 

 

Info list.accdbFetching info...