还有没有更好的办法来高亮显示子窗体记录？

goto2008

用平常的条件格式怕影响运行速度，一直都使用着下面这个黑色高亮显示的代码
但是发现，一旦多选记录，问题就来了，放开鼠标，肯定要被改成单选第一条记录。很郁闷的说。
不知哪位大哥能想个法子，又可以一整行的高亮显示，又可以随意的多选记录不受影响

Private Sub Form_Current()

    DoCmd.RunCommand acCmdSelectRecord

End Sub

t小宝

楼主所说问题确实存在，用如下方法可解决：

在窗体模块添加两个函数过程
Private Function RestoreOnCurrent()
    Me.OnCurrent = "[Event Procedure]"
End Function

Private Function CancelOnCurrent()
    Me.OnCurrent = ""
End Function

在窗体的鼠标按下事件和主体节上的所有控件的鼠标按下属性中输入：=CancelOnCurrent()
在窗体的鼠标释放事件和主体节上的所有控件的鼠标释放属性中输入：=RestoreOnCurrent()

wang1950317

受教！