نمایش هم رنگ مقادیر تکراری

[iransim]

سلام دوستان
چگونه میتوانم در گزارشم کاری کنم که فیلد مقادیر تکراری مربوط به رکوردهای مختلف در گزارش با یک رنگ خواص نمایش داده شوند ( مثلا تمامی نامهای تکراری که در رکوردهای مختلف وارد شده با رنگ قرمز نمایش داده شوند)

متشکرم

[smderfan]

سلام
نمونه قرار دادم فکر کنم مشکلت حل بشه.

[iransim]

سلام
نمونه قرار دادم فکر کنم مشکلت حل بشه.


با سلام و تشکر
میشه در مورد نمونه برنامه بیشتر توضیح دهید؟
من اصلا" متوجه نشدم که کوئری را چطور ساخته اید
ممنون و شرمنده

[smderfan]

سلام
1- در جدول Table1 یک فیلد شاخص بنام Dups با فرمت Number ایجاد کردم که اگر 0 باشد یعنی تکراری نیست اگر به 1 تغییر کرد یعنی رکورد جاری تکراری است.
2- در کوئری Ups فیلد Dups بدون هیچ کرایتریایی با مقدار صفر جایگزین می شود.
3- برای اینکه شما بتوانید از کوئری جهت نمایش رکوردهای تکراری استفاده کنید باید در قسمت کوئری مسیر زیر را انتخاب کنید.

New > Find duplicates Query Wizard
از کوئری های موجود کوئری Find duplicates for Table1 با این متد ایجاد شده است.
4- در کوئری Dups فیلد Dups جدول 1 با انتخاب کرایتریای صفر با مقدار یک جایگزین می شود.
5- در قسمت گزارش هم، همانطور که در قسمت کدها مشاهده کردید بصورت زیر عمل کردم :

Dim lngRed As Long
Dim lngBlack As Long

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)

Text9 = t1
If Dups1 = 1 Then Text9.ForeColor = lngRed
If Dups1 = 0 Then Text9.ForeColor = lngBlack
End Sub

یعنی اینکه اگر مقدار Dups1 = 1 بود ردیف جاری به رنگ قرمز تبدیل بشه در غیر اینصورت اگر صفر بود ردیفها مشکی نمایش داده شوند.
موفق باشید.