请教各位,密集运算时候的系统响应问题

李啸林

ACCESS 在进行密集运算的时候,系统会进入假死机状态，请问该如何解决这个问题.
附:测试文件.ACCESS 2000格式,使用DAO

文件下载

cg1

该问题早就有人提过了啊？！
Private Sub 命令6_Click()
Dim i As Long
Dim r As DAO.Recordset

  
  标签5.Caption = "正在新增......."
  
  Set r = CurrentDb.OpenRecordset("select a from a;")
  For i = 0 To 100000
    r.AddNew
    r.Fields!a = "aaaaaaaaaaaaaaaaaaaaaaaa"
    r.Update
    DoEvents
    标签2.Caption = "已经新增:" & i & "条记录."
  Next i
  Set r = Nothing
  
  CurrentDb.Execute "delete * from a;"
  

  
End Sub

李啸林

thks 非常感谢

竹笛

不错，一直没成功，今天不小心发现了。经典！

cg1

呵呵，启发自 911 给我做的一个http自动下载更新程序。

在此特别感谢 access911 huang59 tmtony 松木 小7(按字母排，不分先后) 这几位 access 高手对我的帮助！

[此贴子已经被作者于2002-11-27 23:25:18编辑过]

cg1

！！！

[此贴子已经被作者于2002-11-27 23:24:05编辑过]

zhengjialon

cg1的例子里不是已经加上了吗？

shfcf

以下是引用竹笛在2002-11-27 19:14:58的发言：
不错，一直没成功，今天不小心发现了。经典！

同感！太好了！

李啸林

以下是引用harsonliao在2002-11-27 23:36:49的发言：
在循环中加上
DoEvents
是将控制转交给系统处理其它任务，如不加上此行。程序要一直到循环完后才能响应。
其实系统中有很多功能是这样做的，如安装软件时安装程序一般都有一个列表文件来保存要进行的操作，中途如不能将控制还给系统，那一开始安装便不能取消了

我们亦可使用此功能做一个取消按钮来控制有需要时可跳出循环

同是这个例子,我想加入一个取消按钮.
请问在[取消]按钮的Click事件中应该如何写代码.

如下面:
private sub cmd取消_Click
  if msgbox("停止运算?",vbYesNo)=vbYes then
    这句该如何写.  
  endif
end sub