رتبه بندی عملکرد در گزارش

[mazoolagh]

1- یک جدول موقتی TEMP_AMALKARD میسازیم برای محاسبه تعداد پروژه و اعتبار هر ناحیه (IDNAHI , N , E)

2- یک جدول موقتی TEMP_RANKS میسازیم برای محاسبه رتبه (IDNAHI , RANK)

3- همه فیلدهای لازم رو به جدول نواحی اضافه میکنیم.
برای راحتی کار فیلدهای جمع رو هم اضافه میکنیم، بعنوان مثال PTS_SUM برای جمع پروژه های تحویل شده در سال.

دیگه فرم و ریپورت طراحی نکردم و گذاشتم بعهده خودتون،
ولی روتین محاسبه (CALC) رو میتونین هر جا نیاز داشتین صدا بزنین، فقط کافی هست مقدار سال رو بهش معرفی کنین.

[mazoolagh]

Option Compare Database

Option Explicit

Const WhrE = "Pol>0" ' EBLAGH

Const WhrT = "Pol>0 And Emtiaz>0" ' TAHVIL





Const Make_Temp_Amalkard = "INSERT INTO Temp_Amalkard (IDNahi,N,E) " & _

                            "SELECT IDNahi,Count(NumPro) AS N, Sum(Pol) AS E " & _

                            "FROM TblSabt WHERE (@WHR) " & _

                            "GROUP BY IDNahi"

                            

Const Update_From_Temp_Amalkrd = "UPDATE NAVAHI as N INNER JOIN Temp_Amalkard AS T ON N.IDNAHI=T.IDNahi " & _

                                    "SET @F1=T.N, @F2=T.E"

                                    

Const Make_Temp_Ranks = "INSERT INTO Temp_Ranks (IDNahi,Rank) " & _

                        "SELECT A.IDNahi, (SELECT COUNT (*)+1 FROM (SELECT @X FROM NAVAHI) AS B WHERE A.@X<B.@X) AS Rank " & _

                        "FROM NAVAHI AS A"

                        

Const Update_From_Temp_Ranks = "UPDATE Navahi AS N INNER JOIN Temp_Ranks AS T ON N.IDNahi=T.IDNahi " & _

                                "SET N.@X = T.Rank"

Public Sub CALC(SAL As Long)



PROCESS WhrE, "PEK", "EEK"

PROCESS WhrT, "PTK", "ETK"

PROCESS WhrE & " AND SAL=" & SAL, "PES", "EES"

PROCESS WhrT & " AND SAL=" & SAL, "PTS", "ETS"



Calc_Rank "PAK", "PRK"

Calc_Rank "PASB", "PRSB"

Calc_Rank "EAK", "ERK"

Calc_Rank "EASB", "ERSB"



Calc_Rank "PAWK", "PRWK"

Calc_Rank "PAWSB", "PRWSB"

Calc_Rank "EAWK", "ERWK"

Calc_Rank "EAWSB", "ERWSB"



Calc_Rank "PASA", "PRSA"

Calc_Rank "PAWSA", "PRWSA"



Calc_Rank "EASA", "ERSA"

Calc_Rank "EAWSA", "ERWSA"



DoCmd.RunSQL ("UPDATE NAVAHI SET PTS_SUM=" & DSum("PTS", "NAVAHI"))

DoCmd.RunSQL ("UPDATE NAVAHI SET ETS_SUM=" & DSum("ETS", "NAVAHI"))



End Sub





Private Sub PROCESS(WHR As String, Fld1 As String, Fld2 As String)

DoCmd.RunSQL ("DELETE FROM Temp_Amalkard")

DoCmd.RunSQL (Replace(Make_Temp_Amalkard, "@WHR", WHR))

DoCmd.RunSQL (Replace(Replace(Update_From_Temp_Amalkrd, "@F1", Fld1), "@F2", Fld2))

End Sub





Private Sub Calc_Rank(FldA As String, FldR As String)

DoCmd.RunSQL ("DELETE FROM Temp_Ranks")

DoCmd.RunSQL (Replace(Make_Temp_Ranks, "@X", FldA))

DoCmd.RunSQL (Replace(Update_From_Temp_Ranks, "@X", FldR))

End Sub

[mazoolagh]

طبق معمول نتایج رو چک کنین!

[iransim]

طبق معمول نتایج رو چک کنین!

سلام و عرض ادب : لازم میدونم قبل از چک و کنترل برنامه از لطف و همراهی شما تشکر کنم و طبق معمول اگر سئوالی بود که مزاحم میشم

[iransim]

1- دوباره برنامه پیوست شما در پست 33 رو چک کردم.
اونچه باعث میشه نتونین روی رکوردها sum بگیرین اینه که کوئری نادرست بعنوان دیتاسورس گزارش تعریف کردین:
شما از کوئری رتبه بندی استفاده کردین در حالی که باید کوئری عملکرد باشه (برنامه پست 31)
این مورد رو من هم دقت نکرده بودم، بنابراین برنامه پست 38 کلا موضوعیت نداره و همون برنامه پست 31 رو مبنای کار قرار بدین.

2- وقتی که جمع پروژه ها (و اعتبارات) رو دارین (چه کل سنوات و چه سال انتخابی) برای مابقی محاسبات دیگه نباید مشکلی باشه.
این جمع ها رو میتونین با dsum یا یک کوئری گروه بندی شده بدست بیارین و در فرمولها قرار بدین.

3- قولی که در پست 38 دادم (یک جدول بجای چندین کوئری) سر جای خودش هست و اگر مشکلی پیش نیاد امروز آماده میکنم.

سلام و عرض ادب
دوست عزیز متاسفانه مشکل اصلی من هم همین بند 2 هست
یعنی در انتهای جدول با تابع DSUM مقادیر جمع کل ابلاغی و تحویل شده در سال را برای محاسبه عملکرد گروه A بدست آوردم ، ولی متاسفانه قادر به محاسبه و رتبه بندی این عملکرد نیستم ( با تغییر دیتا سورس از رتبه به عملکرد نیز موفق نشدم چون فرمول رتبه بندی A در کوئری عملکرد و رتبه آورده نشده در نتیجه قابل رتبه بندی هم نبود )
اگه ی نگاهی به نمونه پیوست کنید ممنون میشم

[mazoolagh]

سلام و عرض ادب
دوست عزیز متاسفانه مشکل اصلی من هم همین بند 2 هست
یعنی در انتهای جدول با تابع DSUM مقادیر جمع کل ابلاغی و تحویل شده در سال را برای محاسبه عملکرد گروه A بدست آوردم ، ولی متاسفانه قادر به محاسبه و رتبه بندی این عملکرد نیستم ( با تغییر دیتا سورس از رتبه به عملکرد نیز موفق نشدم چون فرمول رتبه بندی A در کوئری عملکرد و رتبه آورده نشده در نتیجه قابل رتبه بندی هم نبود )
اگه ی نگاهی به نمونه پیوست کنید ممنون میشم

سلام و روز خوش
در این برنامه آخر (پست 43) هم رتبه بندی گروه A و B هست و هم محاسبات اعتبار (علاوه بر پروژه)
همین رو ملاک قرار بدین چون کامل هست، فقط مقادیر و فرمول ها رو چک کنین.

برنامه های قبلی هم sum رو درست انجام میدن و در ریپورت هم میتونید ببینین،
شما همون ها رو هم میتونین استفاده کنین ولی باید محاسبات رو خودتون اضافه کنین که این آخری دیگه نیاز نداره.

[iransim]

سلام و عرض ادب
بازم بابت ایده و نمونه برنامه آخر تشکر میکنم ، دارم از اون برای برنامه خودم استفاده میکنم ولی هنوز کامل موفق نشدم ولی مشکلی که باهاش برخورد کردم اینه که :
در نمونه برنامه های قبلی ( نمونه پیوست ) با مشکلی مواجه شدم
در سال 1400 یک پروژه ای ابلاغ شده ولی وقتی سال 1400 رو از لیست انتخاب میکنم هیچ اطلاعاتی در گزارش نمایش داده نمیشه ممنون میشم که اگه مثل همیشه لطف کنید راهنمائی بفرمائید .

[iransim]

در ضمن نکته ای رو که فراموش کردم ، نمونه ای رو که زحمت کشیدید ( پست 43 ) وقتی باز میکنم و میخوام جداول رو باز کنم این خطا رو میده ( تصویر پیوست ) در صورتی که قبلا همین نمونه رو که در پستهای قبل ضمیمه کرده بودید باز کردم و هیچ خطائی هم نداشت

[mazoolagh]

سلام و روز خوش
پیام خطا به دلیل ورژن اکسس هست، نمونه پیوست رو چک کنین:

[iransim]

سلام و روز خوش
پیام خطا به دلیل ورژن اکسس هست، نمونه پیوست رو چک کنین:

سلام دوست عزیز
ممنون بابت قبول زحمت ، میریم که ببینیم چه کار میتونیم بکنیم با نمونه شما

[iransim]

دوست عزیز جناب mazoolagh سلام و عرض ادب
طاعات و عبادات قبول باشه
با عرض پوزش بابت زحمت مجدد ، باور کنید این چند روز هر راهی رو امتحان کردم نشد ، راستش دیگه کلافه شدم
من ایده شما رو که خواستم تو برنامه خودم پیاده کنم با ی مشکل مواجه شدم ( برنامه پیوست )
برای گزارشم نیاز به پارامترهای محاسباتی جدول TblNahi دارم ( مثل PAK , PRK , PASW ,PRSW ,PASB , PRSB , PAWSB , PRWSB ) در صورتی که جدول ارتباطی با گزارش ( Tbl_AB_ROTBEH و AB_ROTBEH ) این فیلدها رو نداره و نمیتونم ارتباط بین اونا رو برقرار کنم
در ضمن از Temp_Amalkard و Temp_Ranks هم متوجه نشدم که کجا استفاده کنم
میشه زحمت بکشید و ی نگاهی به برنامه بندازید ؟ ( میخام فیلدهائی که تو جدول لینک کردم رو داشته باشم )
سپاس فراوان

[mazoolagh]

سلام و روز خوش
1- در همون پست 41 توضیح دادم که TEMP_AMALKARD , TEMP_RANKS دو جدول موقتی هستن، یعنی فقط در زمان محاسبه استفاده میشن ولی خودشون در خروجی استفاده نمیشن.
ولی باید باشن و نمیشه اونها رو پاک کرد.
2- هر بار که روتین CALC رو اجرا میکنین، با توجه به آرگومان سال (SAL) ، تمام نتایج در همون جدول NAVAHI میشینه.
3- نیاز به هیچ جدول یا کوئری دیگه نیست، باید مستقیما جدول NAVAHI رو بعنوان رکوردسورس گزارش قرار بدین.
4- روشی که در این برنامه به کار رفته (پست 43 یا پست 49) با نمونه های قبلی کلا متفاوت هست، اون ها برای پرسش اولیه هستن و کارشون هم تموم شده - ابجکتهای اونها رو با این یکی ادغام نکنین!
5- نمونه پیوست همون برنامه پست 43 (یا پست 49) هست فقط فرم انتخاب سال و گزارش هم بهش اضافه شده.

اگر در فرمول ها و نتایج مشکلی هست خبر بدین، وگرنه که این بخش هم مختومه است.

3.PNG

[iransim]

سلام و روز خوش
1- در همون پست 41 توضیح دادم که TEMP_AMALKARD , TEMP_RANKS دو جدول موقتی هستن، یعنی فقط در زمان محاسبه استفاده میشن ولی خودشون در خروجی استفاده نمیشن.
ولی باید باشن و نمیشه اونها رو پاک کرد.
2- هر بار که روتین CALC رو اجرا میکنین، با توجه به آرگومان سال (SAL) ، تمام نتایج در همون جدول NAVAHI میشینه.
3- نیاز به هیچ جدول یا کوئری دیگه نیست، باید مستقیما جدول NAVAHI رو بعنوان رکوردسورس گزارش قرار بدین.
4- روشی که در این برنامه به کار رفته (پست 43 یا پست 49) با نمونه های قبلی کلا متفاوت هست، اون ها برای پرسش اولیه هستن و کارشون هم تموم شده - ابجکتهای اونها رو با این یکی ادغام نکنین!
5- نمونه پیوست همون برنامه پست 43 (یا پست 49) هست فقط فرم انتخاب سال و گزارش هم بهش اضافه شده.

اگر در فرمول ها و نتایج مشکلی هست خبر بدین، وگرنه که این بخش هم مختومه است.

3.PNG

سلام و عرض ادب
سپاس از همراهی و راهنمائی دقیق شما
اصلاحات رو انجام دادم و مشکل حل شد
بازم ممنون که تا پایان من رو همراهی کردی و امیدوارم این بحث مورد توجه و استفاده سایر دوستان هم قرار گرفته باشه .
خیلی لطف کردی

[mazoolagh]

سلام و روز خوش
خوشحالم که تاپیک به نتیجه رسید و شما هم به اونچه که مد نظرتون بود رسیدین.
تلاش و پشتکار خودتون رو هم دست کم نگیرین.
امیدوارم برای دوستانی هم که بحث رو پیگیری میکردن مفید بوده باشه.

[mazoolagh]

گرچه تاپیک به نتیجه رسیده، ولی روش دیگه ای هم برای حل این نوع مسائل (محاسبات انباشته) هست.
به این صورت که تمامی محاسبات مستقیما هنگام افزودن رکورد به جدول (insert) ، یا ویرایش (update) و یا پاک کردن رکورد از جدول (delete) و درون خود جدول انجام میشه.
بنابراین همیشه نتایج آماده است و نیازی نیست که قبل از باز کردن ریپورت یا فرم، محاسباتی رو که ممکنه وقت گیر هم باشه، انجام بدیم.

فرصت کنم برای این هم یک نمونه میگذارم.

[iransim]

گرچه تاپیک به نتیجه رسیده، ولی روش دیگه ای هم برای حل این نوع مسائل (محاسبات انباشته) هست.
به این صورت که تمامی محاسبات مستقیما هنگام افزودن رکورد به جدول (insert) ، یا ویرایش (update) و یا پاک کردن رکورد از جدول (delete) و درون خود جدول انجام میشه.
بنابراین همیشه نتایج آماده است و نیازی نیست که قبل از باز کردن ریپورت یا فرم، محاسباتی رو که ممکنه وقت گیر هم باشه، انجام بدیم.

فرصت کنم برای این هم یک نمونه میگذارم.

سلام و عرض ادب
ضمن تشکر از ابراز لطف شما ، خیلی خوشحالم که با دوستی چون شما که مطلع و پیگیر هستید آشنا شدم
هر چند باعث زحمت و صرف وقت گرانبهای شماست ولی مشتاقانه منتظر ارائه نمونه و راهکار جدید شما هستم
بازم ممنون و سپاسگزارم .