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

阿罗

希望不同版本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

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

阿罗

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



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

sxgaobo

谢谢阿罗！！！
OK

ququ

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