【Access小品】条件格式关联查询子窗体示例

todaynew

　　版友简纠结与数据查询问题，写此示例以解其惑。

racher2006

使用2007测试没有反应，请楼主检查。

简

老汉，我还有个问题，如果白班子窗体29号机床有两条，或者三条以上的记录呢，这时我直接用 Call FindRecord(Me.Form, Me.Parent.白班.Form, "机床") ，白班子窗体就显示就不太正常。

简

老汉，我还有个问题，如果白班子窗体29号机床有两条，或者三条以上的记录呢，这时我直接用 Call FindRecord(Me.Form, Me.Parent.白班.Form, "机床") ，白班子窗体就显示就不太正常。

简

还想问，如果是连续窗体，能实现上述效果吗？

todaynew

简 发表于 2012-4-21 21:50
老汉，我还有个问题，如果白班子窗体29号机床有两条，或者三条以上的记录呢，这时我直接用 Call FindRecord ...

中班子窗体不是有两条三条的吗？显示很正常嘛。不仅查其他窗体，连自身也查的明明白白。

todaynew

简 发表于 2012-4-21 22:01
还想问，如果是连续窗体，能实现上述效果吗？

一回事，当然可用。

简

todaynew 发表于 2012-4-22 08:01
中班子窗体不是有两条三条的吗？显示很正常嘛。不仅查其他窗体，连自身也查的明明白白。

我的白班代码是这样写的，
    Call FindRecord(Me.Form, Me.Form, "机床")
但运行的效果如图，


显然不太正常，不知是不是我的代码没写对呢。

todaynew

简 发表于 2012-4-22 22:35
我的白班代码是这样写的，
    Call FindRecord(Me.Form, Me.Form, "机床")
但运行的效果如图，

白班：
Private Sub Form_Current()
    On Error Resume Next
    Call FindRecord(Me.Form, Me.Form, "机床")
    Call FindRecord(Me.Form, Me.Parent.中班.Form, "机床")
    Call FindRecord(Me.Form, Me.Parent.夜班.Form, "机床")
End Sub

中班：
Private Sub Form_Current()
    On Error Resume Next
    Call FindRecord(Me.Form, Me.Form, "机床")
    Call FindRecord(Me.Form, Me.Parent.白班.Form, "机床")
    Call FindRecord(Me.Form, Me.Parent.夜班.Form, "机床")
End Sub

夜班：
Private Sub Form_Current()
    On Error Resume Next
    Call FindRecord(Me.Form, Me.Form, "机床")
    Call FindRecord(Me.Form, Me.Parent.中班.Form, "机床")
    Call FindRecord(Me.Form, Me.Parent.白班.Form, "机床")
End Sub

简

todaynew 发表于 2012-4-23 11:02
白班：
Private Sub Form_Current()
    On Error Resume Next

我是像你的代码这样写的。

运行后的效果就像上图所示，比如白班，对于有相同的记录，第一条记录是反白显示，第二条记录才是高亮黑色显示。而我希望的是相同的记录都高亮黑色显示。