PDA

View Full Version : سوال: تغییر BackColor تکست باکس در گزارش



G.hemati
سه شنبه 08 بهمن 1392, 11:35 صبح
با سلام
من در گزارشم میخوام مقدار یک فیلد اگر بیشتر از صفر شد رنگ BackColor تکست باکس تغییبر کنه

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

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Text1 > 0 Then
Me.Text1.BackColor = vbRed
End If
End Sub

ممنون

majid_tiger
سه شنبه 08 بهمن 1392, 15:29 عصر
دوست عزیز حتماً گزارش رو باید در نمای PrintPreview اجرا کنی . اگر مشکلت حل نشد برات نمونه می ذارم .

G.hemati
سه شنبه 08 بهمن 1392, 22:00 عصر
دوست عزیز حتماً گزارش رو باید در نمای PrintPreview اجرا کنی . اگر مشکلت حل نشد برات نمونه می ذارم .

من نمای PrintPreview گزارش رو اجرا میکنم .
مثلا برای تغییر رنگ فونت فیلد از کد زیر استفاده میکنم ولی مشابه همین کد که در پست اول اشاره شده است برای رنگ پس زمینه فیلد اجرا نمیشود

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Text1 > 0 Then
Me.Text1.FontColor = vbRed
End If
End Sub

G.hemati
پنج شنبه 10 بهمن 1392, 11:52 صبح
دوستان منتظر راهنمایی شما هستم

amirkazem
پنج شنبه 10 بهمن 1392, 13:10 عصر
به نظرمن میتونیدازقسمت منوی formatو گزینه ی condtional format نیزانجام بدی.

G.hemati
پنج شنبه 10 بهمن 1392, 21:58 عصر
میخوام از طریق کد نویسی باشه اگه امکانش هست

Abbas Amiri
جمعه 11 بهمن 1392, 21:31 عصر
میخوام از طریق کد نویسی باشه اگه امکانش هست

ممکنه یک مقدار سخت باشه .

http://msdn.microsoft.com/en-us/library/office/aa139965%28v=office.10%29.aspx