将 Microsoft Access 作为计划任务运行后退出

Posted 2023-03-14

【中文标题】将 Microsoft Access 作为计划任务运行后退出

【英文标题】：Quit after running Microsoft Access as a Scheduled Task

【发布时间】：2017-01-12 15:34:15

【问题描述】：

我已将 Windows 任务管理器设置为每隔一段时间（15 分钟）在 MS Access 上运行宏

我通过设置任务管理器而不是通过 VBA 来运行宏。宏运行我的 VBA 代码和 WinSCP 的批处理文件！

我希望它在启动宏时关闭 Access 程序。 （希望不会在一秒钟内......因为我的 WinSCP 运行一秒钟以完成 100% 导入）

反正我可以随意设置吗？

什么不工作：自动关闭 Access 程序 启动它以触发宏由 Windows 任务管理器运行

工作原理：任务管理器自动启动我的 Access 程序

【问题讨论】：

请详细说明，什么不起作用，什么起作用

@Peter 感谢您的评论！

【参考方案1】：

把它放在代码模块的顶部：

#If VBA7 Then
  Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
  Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If

要在一秒钟后退出 Access，请调用此子：

Sub CloseAccess()
 Dim i As Integer

 For i = 1 To 10
  Sleep 100
  DoEvents
 Next i
 DoCmd.Quit
End Sub