عندي مشكله بالتقارير

اخي الفاضل

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

لهذا قم بإنشاء التقرير كما هو ولا تعدل فيه اي شيء

ثم قم بعمل زر امر في النموذج لفتح التقرير والى هذه اللحظة الوضع اكثر من عادي

الآن لديك الخطوة الجديده التي يجب عليك اضافتها لزر الأمر وهي :

انتبه لهذا الشرح جيدا في حالتين :

الحالة الأولى : اذا كان لديك في النموذج حقل الـ ID او المعرف رقم ( يعني ان نوعه في الجدول حقل رقمي مثل ترقيم تلقائي وليس نصي ) فنقوم بإضافة هذه العبارة لزر الأمر الخاص بفتح التقرير للمعاينة

Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![ID]
DoCmd.OpenReport "YourReportNeme",acViewPreview , , stLinkCriteria

وللطباعة

Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![ID]
DoCmd.OpenReport "YourReportNeme", acViewNormal, , stLinkCriteria

الحالة الثانية : اذا كان لديك في النموذج حقل txtName او المعرف نص ( يعني ان نوعه في الجدول حقل نصي وليس رقمي ) فنقوم بإضافة هذه العبارة لزر الأمر الخاص بفتح التقرير للمعاينة

Dim stLinkCriteria As String
stLinkCriteria = "[txtName]=" & "'" & Me![txtName] & "'"
DoCmd.OpenReport "YourReportNeme", acViewPreview, , stLinkCriteria

وللطباعة

Dim stLinkCriteria As String
stLinkCriteria = "[txtName]=" & "'" & Me![txtName] & "'"
DoCmd.OpenReport "YourReportNeme", acViewNormal, , stLinkCriteria

بسم الله الرحمن الرحيم

للاسف اخت زهره لم يصلح معي بالشكل المطلوب

عموما شكرا لك

اخي الكريم ممكن ترفق المثال ليتم التعديل عليه وشرح الاخت زهره وضح ولكن مو مشكله ترفق المثال

الكابتن3 كتب:

بسم الله الرحمن الرحيم

للاسف اخت زهره لم يصلح معي بالشكل المطلوب

عموما شكرا لك

اخي الفاضل

جميع الأكواد البرمجية صحيحة ولا يوجد بها مشكله

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