子窗体筛选状态下，主窗体文本框字体如何变色？

zhaoguang　发表于：2010-12-21 15:55:36 　

复制

子窗体数据进行筛选时，需要将主窗体的文本框（显示统计数）的字体变色，请教如何实现？

Top

煮江品茶发表于：2010-12-21 16:27:58

me.text1.BackColor=RGB(255, 0, 0) '背景色变红
me.text1.ForeColor=RGB(255, 0, 0) '前景色变红

Top

羽扇子君发表于：2010-12-21 17:06:03

设子窗体Name(名字)属性为Child1则:

if me.Child1.Form.Filter <> "" then

Me.text.BackColor=Rgb(255,0,0) '背景为红

else

Me.text.BackColor=Rgb(255,255,255) '背景为白

End if

Top

zhaoguang 发表于：2010-12-22 16:32:37

谢谢两位老师及时指导。继续问个傻问题：如果子窗体是数据表格式，所有数据都显示了，在此情况下子窗体进行筛选，老师的方法可使主窗体的文本框（显示统计数）的字体变色吗？望能得到老师的进一步指教。

Top

煮江品茶发表于：2010-12-22 17:00:06

这个问题是有些傻，呵呵。

进行了筛选是变色的条件，还是筛选结果达到一定的值为筛选条件呢？

Top

zhaoguang 发表于：2010-12-23 10:06:16

煮江品茶老师，假设子窗体数据全部显示不作筛选时，主窗体文本框的字体为黑色；当子窗体作筛选时，主窗体文本框的字体就成为兰色，以提示子窗体数据处于筛选状态。也即您说的“进行了筛选是变色的条件”。能否以羽扇子君老师的方法为基础，变用Filter = True 和 Filter = False 来进行判断（而不是Filter<>"")?

Top

煮江品茶发表于：2010-12-23 11:50:44

应该是FilterOn = True/False

if me.Child1.Form.FilterOn =True then

Me.text.BackColor=Rgb(255,0,0) '背景为红

else

Me.text.BackColor=Rgb(255,255,255) '背景为白

End if

Top

zhaoguang 发表于：2010-12-23 14:02:12

感谢煮江品茶老师的指点，按照您的方法，我已解决了问题。同时感谢羽扇子君老师，他提供的思路是对的。在实际运用中，我去掉了Text前面的Me，因为文本框的位置在主窗体。

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

子窗体筛选状态下，主窗体文本框字体如何变色？