كود طباعة التقرير مع وجود فلتر

[عدنان]

لدي نموذج باسم معاينه يوجد به زر امر لطباعة تقرير مسمى باسم تقرير مبني على استعلام باسم استعلام1 و قد وضعت الكود الأتي خلف الزر و يظهر لدي تقرير بدون بيانات عند معاينة التقرير

Dim strDocName As String
    Dim strFilter As String
    strDocName = "تقرير"
    strFilter = "رقم الموظف =forms!معاينه!رقم الموظف"
    DoCmd.OpenReport strDocName, acPreview, , strFilter

:o

تم تعديل مايو 26, 2004 بواسطه محمد طاهر

[أبو أفنان]

راجع قواعد المشاركة في هذا المنتدى

تحياتي

[عدنان]

شكراً ابو افنان

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

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

[عدنان]

عند وضع المؤشر على المتغير تظهر النتيجة strfilter=0 و اعتقد ان المشكلة في النموذج لكني لا اعرف الحل حيث انني جديد في مجال البرمجة

[أبو أفنان]

لم أفهم المطلوب أرفق مثال

[محمد طاهر عرفه]

لفتح التقرير علي السجل المفتوح فى الفورم

اذا كان الحقل الذي يصنف السجل رقمي

DoCmd.OpenReport "REPORTNAME", acViewPreview, , "[ID]=" & forms![Forname]![TXTBOXNAME]

واذا كان نص

DoCmd.OpenReport "REPORTNAME", acViewPreview, , "[ID]='" & forms![Forname]![TXTBOXNAME] & "'"

و طبعا من الجميل تقسيم الجملة الي متغيرات كما فى مشاركتك ، مع مراعاة نفس الشروط

و يوجد أمثلة بقسم التقارير بخلاصة مشاركات الاكسيس

[عدنان]

شكرا لاهتمامكم بالموضوع

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

كيف استطيع ارفاق ملف المشكلة في المنتدى؟