如何弹出一个提示框，并自动关闭

[yilin54]

程序结构是这样的：

Private Sub Command10_Click()
{
过程1
}
由于过程1执行需要一些时间，所有我想点击按钮后，弹出一个提示框，等执行完毕后再把这个提示框自动关闭掉。
我本来想在过程1前面插入msgbox("正在计算，请稍候")； 发现弹出框框，需要点确定才会继续执行过程1部分。而且也不知道怎么关闭这个弹出的窗口好。改怎么弄啊？

[ACMAIN_CHM]

你可以自己做一个FORMX， 然后在这个Command10_Click()中SHOW这个FORMX，等你的 过程1长时间执行完后，再CLOSE这个FORMX

[yilin54]

我也这样试过呀。不过自己做的formx能弹出来，不过上面的字显示不出来的，像是那种卡死了，是空白的呢。
[Quote=引用 1 楼 acmain_chm 的回复:]
你可以自己做一个FORMX， 然后在这个Command10_Click()中SHOW这个FORMX，等你的 过程1长时间执行完后，再CLOSE这个FORMX
[/Quote]

[ACMAIN_CHM]

[Quote]我也这样试过呀。不过自己做的formx能弹出来，不过上面的字显示不出来的，像是那种卡死了，是空白的呢。[/Quote]你的代码是什么样？

[yilin54]

就是
docmd.openform "提示窗体"
过程1
这样一个结构呀。
[Quote=引用 3 楼 acmain_chm 的回复:]
引用我也这样试过呀。不过自己做的formx能弹出来，不过上面的字显示不出来的，像是那种卡死了，是空白的呢。你的代码是什么样？
[/Quote]

[ACMAIN_CHM]

docmd.openform "提示窗体"
doevents