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

时间:2017-01-12 15:34:15

标签: vba ms-access access-vba taskmanager

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

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

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

无论如何我可以按照自己的意愿设置它吗?

  

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

     

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

1 个答案:

答案 0 :(得分:0)

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

#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