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

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


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

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

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

فمثلا

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

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

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

وهكذااا

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

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

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

وشكرااااااا

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

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

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

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

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

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

وبالتوفيق

dbprintselected.rar

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

السلام عليكم

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

ابتداءً ، أشكر أخي يوسف على حله الرائع والصحيح 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

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

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

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

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

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

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information