نمایش هر گروه از اطلاعات به رنگ متفاوت

[wolfstander]

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

[mazoolagh]

سلام
فایل پیوست رو هنوز ندیدم. فقط یک سئوال:
منظورتون conditional formatting در گزارش هست؟

[انگوران]

سلام - اين كد رو تست كن .

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim Ctl As Control
For Each Ctl In Me.Detail.Controls
If TypeOf Ctl Is ComboBox Or TypeOf Ctl Is TextBox Then
Select Case Me.BankName
Case "تجارت"
Ctl.BackColor = vbBlue
Case "ملت"
Ctl.BackColor = vbRed
Case "ملي"
Ctl.BackColor = vbYellow
End Select
End If
Next
End Sub
خصوصيت back style فيلدها هم بايد normal باشه .

[wolfstander]

با تشکر از آقای انگوران
:قلب:

البته من تو شرکت گفتم که امکان نداره که این کار امکانپذیر باشه و در نتیجه کسی زیاد جرات نکرده حرف بزنه
ولی خودم برای خودم میخواستم بدونم که این رو در جای دیگه ای به کار ببرم
:شیطان:
حالا اگه امکان این باشه که اون ردیف ها، BackColor شون رنگشون متفاوت باشه، اون چیزیه که لازمه
مثل وقتی ردیف ها رو یکی در میان رنگی میکنیم، میخوام که کل سطر رنگش عوض بشه نه فقط رنگ تکست باکس
یعنی من میخوام که هر گروه، به یک رنگ نمایش داده بشه
اگه بشه چی میشه
:لبخند:

[انگوران]

فكر كنم منظورتون جايگزين كد فوق ، اين كد باشه .

Select Case Me.BankName
Case "تجارت"
Me.Detail.BackColor = vbBlue
Case "ملت"
Me.Detail.BackColor = vbRed
Case "ملي"
Me.Detail.BackColor = vbYellow
End Select

[wolfstander]

بله
دقیقا ً خودشه
خود نامردشه
:لبخند:
دقیق و مرتب عمل میکنه