小编Fwa*_*afa的帖子

我试图Please Wait在Excel VBA中创建一条消息.这是为了提醒用户处理SQL查询,该进程仍在进行中.我想在userform中显示此消息.

目前,用户连接到SQL DB,选择数据库和其他一些选项,按下Go ...并且表单不会卸载.在Go点我有另一个弹出消息的Please Wait表单,但是这个表单没有卸载,即SQL执行命令没有运行.

我调用Please Waituserform的代码,包括标签:

   Call WaitShowSQl.ExecuteCall KillWaitCall WaitShow
   SQl.Execute
   Call KillWait

在另一个代码模块中,我有:

   Sub WaitShow()
   Wait.Show
   End Sub

   Sub KillWait()
   Unload Wait
   End Sub

我wait使用以下代码调用userform :

Private Sub UserForm_Activate()
Call PleaseWait
End Sub 

Sub PleaseWait()
Wait.Label1.Caption = "Calculating...Please Wait!"
End Sub

现在,在执行代码时,运行时不会通过模块返回以执行以下操作:

SQl.ExecuteSQl.Execute

我可以使用状态栏显示程序的进度,但userform弹出消息对此程序非常有用.