Office中国论坛/Access中国论坛

标题: 窗体列表框的查找窗体记录问题? [打印本页]

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

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)