为什么调试后我的VBA脚本不能继续运行？

每当我用脚本命中错误时，焦点转向VBA代码和违规行。我修复它，并保存。然后我发现脚本不再运行，即使在我确定它没有暂停之后。为什么调试后我的VBA脚本不能继续运行？

例如，我现在使用Form_Timer()事件来做一些测试（间隔设置为1000ms）。为了再次测试脚本，我将它设置为将来的一分钟（例如，如果当前时间是上午8:54:00，我将它设置为在上午8:55:00启动）。但是在错误发生后这会停止工作。有人知道为什么吗？我不想告诉我的用户关闭并重新打开Access数据库的副本，只是为了让脚本再次运行。

代码：

Private Sub Form_Timer() 


    On Error GoTo ErrorHandler 

    current_date_time = Now 


    If current_date_time = #6/28/2016 8:52:00 AM# Then 

     MsgBox ("the current_date_time variable holds: " & current_date_time) 

     'Declare objects 
     Dim dbs As DAO.Database 
     Dim rst As DAO.Recordset 
     Dim qdf As DAO.QueryDef 
     Dim oApp As Outlook.Application 
     Dim oMail As Outlook.MailItem 
     Dim mail_body As String 

     'Set objects 
     Set dbs = CurrentDb 
     Set qdf = dbs.QueryDefs("qry_BMBFLoc") 
     Set rst = qdf.OpenRecordset 
     Set oApp = New Outlook.Application 
     Set oMail = oApp.CreateItem(olMailItem) 

     mail_body = "The following jobs do not have the special BF location set in Job Orders: " & vbCrLf 

     If Not (rst.EOF And rst.BOF) Then 

      rst.MoveFirst 
      Do Until rst.EOF = True 

        mail_body = mail_body & rst!job & "-" & rst!suffix & vbCrLf 

      rst.MoveNext 
      Loop 

      'Email contents 
      oMail.Body = mail_body 
      oMail.Subject = "Blah" 
      oMail.To = "[email protected]" 
      oMail.Send 

      'Close stuff 
      rst.Close 
      dbs.Close 
      Set rst = Nothing 
      Set oMail = Nothing 
      Set oApp = Nothing 

     End If 

    End If 

Exit Sub 

ErrorHandler: 

     Dim msg As String 
     If Err.Number <> 0 Then 
       msg = "email Form Timer Error #" & Str(Err.Number) & " error Line: " & Erl & Chr(13) & Err.Description 
       MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext 
     End If 
     Exit Sub 

End Sub

来源

2016-06-28 whatwhatwhat

这可能是一个愚蠢的问题，但在你调试你的宏后，你打f5继续脚本？ – jellz77

@ jellz77不，我没有。在我打F5后，它弹出一个对话框，要求输入一个宏名称，但我不知道要给它一个宏。我正在运行VBA脚本... – whatwhatwhat

我调试后，确保脚本没有按下Ctrl + S（保存）来暂停。它删除顶部的'[break]'，所以我认为脚本恢复了。但它不再发射。 – whatwhatwhat

为了重新激活代码，可以在触发错误时关闭表单。然后用户必须重新加载表单才能完成操作。

但是，没有任何干预，错误可能会再次发生。

编辑：或者您可以编写一个函数来自动关闭并重新打开违规表单。在错误命令中调用它。

来源

2016-06-28 17:22:01

这就是我最终做的，是的。 – whatwhatwhat

当在访问形式的错误，定时器将停止工作，你不需要关闭并重新打开整个数据库，只有形式启动定时器再次。否则，您可以添加一个名为“刷新”的按钮并将宏绑定到该按钮上，这将重新打开定时器。

来源

2016-06-28 14:02:53

这可能是在同一个脚本内完成的吗？就像在错误处理中刷新定时器或什么的？ – whatwhatwhat

我对定时器并没有那么多的经验，所以我不知道重新运行定时器的确切命令。但是，应该可以在整个子内部进行错误处理以防止计时器停止。 –

为什么调试后我的VBA脚本不能继续运行？

回答

相关问题