请教循环中打开子窗体问题

zhuangxiaosong

请教一下达人，
我的程序中有一个主窗体P_Form，P_Form中有一个按钮，当单击这个按钮时，将执行一个循环，在循环中打开子窗体Sub_Form，如：

for i=1 to 5
  DoCmd.OpenForm Sub_Form,, , , , , , i
next


Sub_Form中具有一个列表框控件，它将根据传递的参数i进行从数据库中查询并将结果显示，用户通过选择列表框中的item来对主窗体P_Form中的一个文本框负值

但现在遇到了一个问题，在循环中打开窗体的同时，循环并没有停止，而是一直执行到结束，而我预期的效果是每次循环都可以打开一个可供用户进行交互的窗体。

请问该如何解决这个问题呢？

Bow.

[ 本帖最后由 zhuangxiaosong 于 2007-8-16 15:56 编辑 ]

andymark

上传例子

zhuangxiaosong

麻烦斑竹帮我看一下

zhuangxiaosong

原帖由 andymark 于 2007-8-16 14:06 发表
上传例子

麻烦您帮我看一下

andymark

不是很明白

zhuangxiaosong

原帖由 andymark 于 2007-8-16 16:08 发表
不是很明白

我的这个例子是随便写的，没有什么特殊含义
我想达到的效果就是对于P_Form中的3个textbox，单击“编辑”按钮可以通过一个循环打开Sub_Form，用户通过选择Sub_form中列表框的值来依次对它们进行赋值。也就是每次循环都重新打开Sub_Form（例子中我设定了列表框中的值，实际应用中它的值从数据库中取得，每次打开Sub_Form都是不一样的）
但实际上当i=1的时候，Sub_Form被打开，用户进行操作的同时，程序的循环并没有挂起在此处（我原以为循环会停止在这里，等到关闭Sub_Form后才继续下一次循环）的样子，而是一直在执行，直到循环结束。

不知道我这么说，您是否能明白点。
多谢。

[ 本帖最后由 zhuangxiaosong 于 2007-8-16 16:31 编辑 ]

zhuangxiaosong

也就是只有i=1的时候Sub_Form被打开，之后的循环实际上没有打开Sub_Form的操作（也许是因为窗体还在打开的过程中，所以再次打开窗体的操作没有执行），但我希望的是Sub_Form被打开。

可以在循环中加入sleep、wakeup之类的操作吗？

[ 本帖最后由 zhuangxiaosong 于 2007-8-16 17:27 编辑 ]

zhuangxiaosong

For i = 1 To 3
         DoCmd.OpenForm "Sub_Form"
        MsgBox i
    Next


比如说这个循环，代码中是先打开窗体，再message box，但实际上是所有的3个对话框提示之后，窗体才打开的。

andymark

原帖由 zhuangxiaosong 于 2007-8-16 17:42 发表
For i = 1 To 3
         DoCmd.OpenForm "Sub_Form"
        MsgBox i
    Next


比如说这个循环，代码中是先打开窗体，再message box，但实际上是所有的3个对话框提示之后，窗体才打开的。

没发现你说的情况,一切按先后顺序执行

andymark

同时打开多个同一窗体,需要用到集合