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

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


saffar

الردود الموصى بها

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

 

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

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

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

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

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

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

 

1.png

2.png

3.png

4.png

 

Info list.accdb

تم تعديل بواسطه Barna
  • Like 3
  • Thanks 4
رابط هذا التعليق
شارك

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

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

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

في البداية استخدمنا مربع نص غير منضم اسميته 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

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

تحياتي

k255.gif

  • Like 5
رابط هذا التعليق
شارك

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

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

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

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

جيل الطيبين 😂

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

تم تعديل بواسطه مبرمج سابق
رابط هذا التعليق
شارك

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

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

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

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

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

تحياتي

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

Info list.rar

  • Like 2
  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

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

تحياتي

تم تعديل بواسطه مبرمج سابق
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

تحياتي

رابط هذا التعليق
شارك

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

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

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

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

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

 

 

Info list.accdb

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information