◆如何中止一个正在运行的过程?

beibeijia

有一个过程,
包含一个无穷循环,（随机函数生成的编码）

for  …… next

想通过窗体上某一个按纽
中止此过程，
应如何实现呢？

beibeijia

谢谢,
我用了标题属性

    If Me.命令9.Caption = "命令9" Then DoEvents
    If Me.命令9.Caption = "Stop" Then o = 100

不知其它定位属性如何用代码写,

★比如: 鼠标经过某按纽则停止!
-------------------------------------------
谢谢!

[此贴子已经被作者于2003-11-8 10:09:30编辑过]

tmtony

设置一个标志位
使用doevents,如果标志位为真则 Exit For

beibeijia

问题已解决：
不知对不对？

If Me.命令9.Caption = "stop" Then
    Me.命令9.Caption = "命令9"
    Dim rst As New ADODB.Recordset
    rst.Open "电话号码表", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    Dim I As Integer
Dim x As Integer
Dim o As Integer
For o = 0 To 100

    I = rst.RecordCount
    'Debug.Print I
    x = Int(I * Rnd()) + 1    '使用随机数
    'Debug.Print I
    rst.AbsolutePosition = x  '使用绝对定位

    intPhotoNo = rst("电话号码")

    Me.文本1.RowSource = "SELECT 电话号码, 用户, 单位, 状态, 装机类型 FROM 电话号码表 where 电话号码 = " & intPhotoNo

    文本7 = rst("电话号码")
   
    DoCmd.RepaintObject
    If Me.命令9.Caption = "命令9" Then DoEvents
    If Me.命令9.Caption = "Stop" Then o = 100
Next

Else
Me.命令9.Caption = "命令9"

End If

ADAM

按ctrl+break可中止程序.
當程序進入for...next循環后
表單應該不會響應
必須手動...

beibeijia

使用 CancelEvent 操作可以中止一个事件，该事件导致 Microsoft Access 执行包含此操作的宏。宏名即为事件属性的设置，例如 BeforeUpdate、OnOpen、OnUnload 或 OnPrint。

设置

CancelEvent 操作没有任何参数

不太明白如何用？