窗体列表框的查找窗体记录问题?

LJB

版主:
       不知道各位有没有遇到过这方样的状况,在窗体中有一列表框,用于查找窗体的记录,如果查找到记录就跳到指定记录,没有则回到第一笔记录(这些应该谁都知道),今天打开一个窗体,同样在列表框中查找资料,有符合很快就找到了,突然查找的资料没有符合的,窗体的子表不停的闪烁,系统没有了动作,CPU高速猛转,只能用任务管理器才能停止.
       奇怪的是,我进入数据库直接打开,查找功能全部没有问题,包括不符合的也正常,通过主窗体上的按钮打开窗体,运行查找,一样的出问题.
       我删除了近斯添加的一些功能,也是出现相同异常.
      我本想将库上传,但碍于表是连接SQL的,也太大,请各位版主,帮帮忙啊,到底是咋会事?

LJB

自己顶起!
原来错误在这里,用到条件格式的注意,条件格式的判断不可放于"成为当前"函数的地方,否则会出错,不知道你们的会不会,反正我的会.我反复试过了,出现上述问题的就是这个原因!

Sub Form_Current()
    Dim ParentDocName As String
    ID1 = Me.序号这是用于条件格式的判断
    On Error Resume Next
    ParentDocName = Me.Parent.name
    If Err <> 0 Then
        GoTo Form_Current_Exit
    Else
        On Error GoTo Form_Current_Err
        Me.Parent![dcmsdjk].Requery
    End If
Form_Current_Exit:
    Exit Sub
Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit
End Sub