كيف أطبع الأسماء التي عليها علامة الاختيار فقط ؟

[المتصفح نت]

صممت لي برنامج على الاكسس وفي النموذج وضعت خانة اختيار

بعد ادخل جميع المعلومات عن شخص

فمثلا

ادخلت 100 اسم شخص ومعلومات

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

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

وهكذااا

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

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

افيديني رحم الله والديكي

وشكرااااااا

[يوسف أحمد]

اخي / المتصفح نت

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

ثم تقوم بعمل تقرير مبني على هذا الاستعلام

ثم تعود للنموذج وتضع زر امر يعرض او يطبع ذلك التقرير

واليك مثال على ذلك

وبالتوفيق

dbprintselected.rar

[المتصفح نت]

شكرا لك على هذا الرد الممتاز

وأتمنى لك التوفيق ....

وجعل الله عملك هذا في موازين حسناتك ....

[الدكتور خضر الرجبي]

السلام عليكم

اخي المتصفح واخي يوسف ، أرجو أن تسمحوا لي بهذه المداخلة.

ابتداءً ، أشكر أخي يوسف على حله الرائع والصحيح 100% .

التعديل الذي أود أن اطرحه للفائدة يدور حول السؤال الأتي :

ماذا لو أردنا عمل المطلوب حسب سؤال أخي المتصفح ولكن بدون استخدام استعلام ، أي نريد أن نجعل مصدر التقرير هو الجدول مباشرة ولاحظ هنا أن لذلك فائدة حيث يمكن تعدد أزرار الطباعة من النموذج وبشروط مختلفة ؟

بهذه الحالة علينا أن نستخدم خاصية رائعة متوفرة في أمر الطباعة وهي خاصية طباعة السجلات التي تم فرزها حسب معيار معين يكتب في me.filter كما في الكود الآتي :

Private Sub Command6_Click()

    Me.FilterOn = True
     Me.Filter = "c1 = on"
     stDocName = "rpt1"
     DoCmd.OpenReport stDocName, acPreview, , Me.Filter
    Me.FilterOn = False
    
End Sub

وهذا هو مثال آخي يوسف مع التعديل الجديد : dbprintselected_without_query.rar

مع الاحترام والتقدير

[يوسف أحمد]

اخينا ومعلمنا الفاضل / خضر الرجبي

كل الشكر والتقدير لك على مرورك وتعقيبك ومداخلتك التي اثرت المشاركة

ادعو لك بظهر الغيب

وتقبل فائق الاحترام والتقدير