请教！如何改变子窗体中记录的背景色？

sxgaobo

子窗体中的数据以表方式显示，如何能做到鼠标点击那行那行就改变颜色？

ququ

哈...多谢,我以前只做了当前光标反色的,终于找到整行的了,谢谢阿罗兄

sxgaobo

谢谢阿罗！！！
OK

阿罗

您看到我上面帖中的这张图了吗？首先要在窗体设计中给每个文本框加一个条件格式，这样就不会出错了，而且程序的书写和调试可以稍微简单些。



另外，我第二次上传的文件，就是您需要的，直接下载好了。呵~~

sxgaobo

阿罗，非常感谢您耐心细致的解答！！！
真不好意思，我还是做不成，我的系统是WIN2000，ACCESS是XP。
出现以下错误提示！麻烦您给做个例子好吗？谢谢！！！

阿罗

希望不同版本access不要出现问题。anyway，具体步骤如下：

1）设计时，每个textbox都这样设置：


2）代码：
Dim bingo As Integer
Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
bingo = 0
For Each ctl In Me
    If ctl.ControlType = acTextBox Then
        ctl.FormatConditions(0).Modify acExpression, , "[编号] = -1"
        ctl.FormatConditions(0).BackColor = vbBlue
        ctl.FormatConditions(0).ForeColor = vbWhite
    End If
Next ctl
End Sub

Private Sub showColor()
Dim ctl As Control
For Each ctl In Me
    If ctl.ControlType = acTextBox Then
        ctl.FormatConditions(0).Modify acExpression, , "[编号]=" & bingo
    End If
Next ctl
End Sub

Private Sub 编号_GotFocus()
    bingo = Nz([编号], -1)
    showColor
End Sub

Private Sub 车辆类型_GotFocus()
    bingo = Nz([编号], -1)
    showColor
End Sub
一下皆为textbox的GotFocus事件，代码完全一样，从略.
[em07]

阿罗

阿罗

sxgaobo

谢谢阿罗！您的例子正是我需要的，可我太菜，照着做了个总提示错误，您能帮我做做这个吗？谢谢，十分感谢！！！

阿罗

说明：为了编程的方便，在设计窗体的时候，每个需要条件格式显示的文本框都手工设计了一个条件，这样在编程的时候只要用modify方法就可以比较轻松地搞定了。

打开窗体时，条件改为一个不可能的出现的条件，这就是整个初始化过程。

子程序showColor是按获得的字段[id]值重新设定条件，从而达到按条件显示的目的。

所以您可以从任何控件的事件当中调用这个子程序，例如每个文本框点击或者获得焦点（这个更好）时调用子程序：
Private Sub CustomerID_GotFocus()
    bingo = [id]
    showColor
End Sub
这些事情就自行处理吧！