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

فرز التقرير


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

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

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

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

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

يوجد تقرير باسم 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

تحياتي

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

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

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

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

    '-- تصريح لمتغير على في مستوى وحدة نمطية عامة
    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	

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

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

للفائدة:

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

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

 

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

 

 

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

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

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

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

تحياتي

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information