فرز التقرير

[محمد أبوعبدالله]

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

الاخوة الكرام

السلام عليكم ورحمة الله وبركاته

وجدت مثال لعملية فرز البيانات في التقرير والمثال رائع جداً

يوجد تقرير باسم rptStudentInformation عند الفتح يتم نموذج  frmOrderBy وبه عدة خيارات للفرز

ما اريده ان استخدام نموذج  frmOrderBy في اكثر من تقرير ولكن الكود الموجود مرتبط بتقرير محدد

    If strSQL <> "" Then
        'Strip Last Comma & Space
        strSQL = left(strSQL, (Len(strSQL) - 2))
        'Set the OrderBy property
        Reports![rptStudentInformation].OrderBy = strSQL
        Reports![rptStudentInformation].OrderByOn = True
    Else
        Reports![rptStudentInformation].OrderByOn = False
        
    End If

فهل بالامكان تعديل الكود للعمل مع التقرير الحالي بغض النظر عن اسمه

Sort.rar

تحياتي

[محمد أبوعبدالله]

السلام عليكم ورحمة الله وبركاته

 

 

 

[محمد أبوعبدالله]

السلام عليكم ورحمة الله وبركاته

لا غيبكم الله يا عمالقة المنتدى

[أبو إبراهيم الغامدي]

أهلا بك @محمد ابوعبد الله

لديك طريقتان لعمل ما أشرت إليه

- الطريقة الأولى: إنشاء متغير عام على في مستوى قاعدة البيانات يحمل اسم التقرير النشط، ثم نضع هذا المتغير موضع اسم التقرير في محدد مجموعة التقارير في النوذج كالتالي

    '-- تصريح لمتغير على في مستوى وحدة نمطية عامة
    Dim ActiveReprotName
    ActiveReportName=Screen.ActiveReport.Name

	If strSQL <> "" Then
        '-- Strip Last Comma & Space
        strSQL = left(strSQL, (Len(strSQL) - 2))
        '-- Set the OrderBy property
        Reports![ActiveReportName].OrderBy = strSQL
        Reports![ActiveReportName].OrderByOn = True
    Else
        Reports![ActiveReportName].OrderByOn = False
        
    End If	

عيب هذه الطريقة أنك تحتاج إلى التأكد من أن النقرير النشط هو التقرير الذي تريد فرزه؛ وذلك من خارج النموذج

- الطريقة الثانية: إنشاء قائمة منسدلة تعيد أسماء التقارير عند فتح نموذج الفرز ومن ثم تقوم بفتح التقارير عن طريق نموذج الفرز ، وتكون اسم التقرير العائد من القائمة المنسدلة هو نفسة التقرير في معالج الفرز.. وهذه الطريقة هي الأفضل..

للفائدة:

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

واستخدم هذا الوصف كاسم للتقرير في القائمة المنسدلة..

 

مثلك لا يحتاج إلى التعديل على المثال

 

 

[محمد أبوعبدالله]

حزاك الله خيرا اخي الكريم @أبو إبراهيم الغامدي

الحمد لله تم التعديل بالطريقة الثانية ووضع التقرير في قائمة منسدلة

وجزاك الله خيرا على حسن المتابعة

تحياتي