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

Quit after running Microsoft Access as a Scheduled Task

我已将 Windows 任务管理器设置为 运行 MS Access 上的宏,时间间隔(15 分钟)

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

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

有没有可以随意设置的?

What is not working : Automatically close the Access program upon starting it to trigger macro to run by Windows Task Manager

What's working: Task Manager automatically starts my Access program

将其放在代码模块的顶部:

#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