嘿，我之前也踩过Access里Application.OnTime不兼容的坑，给你几个亲测可行的方案，完美替代你想要的每30秒执行import_files函数的需求：

方案1：用Access窗体的Timer事件（最推荐，原生支持） #

这是Access里实现定时任务最稳妥的方式，完全不需要依赖外部API或者其他Office组件：

• 新建一个空白窗体，命名为frmBackgroundTimer
• 打开窗体的属性面板，找到TimerInterval属性，设置为30000（单位是毫秒，30秒=30000毫秒）
• 双击窗体的Timer事件，写入以下代码：

  Private Sub Form_Timer()
      ' 调用你的导入函数
      import_files
  End Sub
  

• 设置Access的启动选项：点击文件→选项→当前数据库，在“显示窗体”下拉框里选择frmBackgroundTimer，然后把“窗体显示方式”设为隐藏
• 这样每次Access启动时，这个隐藏窗体就会在后台运行，每隔30秒自动触发import_files函数

方案2：用Windows API定时器（无窗体方案） #

如果不想依赖后台窗体，可以用Windows的定时器API来实现，不过需要注意Access的位数（32/64位）要对应正确的API声明：

1. 新建一个标准模块，粘贴以下API声明和代码：

   ' 64位Access的API声明（32位可以去掉PtrSafe）
   Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
   Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long
   
   Dim timerID As LongPtr
   
   ' 启动定时器
   Sub StartRepeatingTimer()
       ' 设置30秒触发一次
       timerID = SetTimer(0, 0, 30000, AddressOf TimerCallback)
   End Sub
   
   ' 定时器触发的回调函数
   Sub TimerCallback(ByVal hwnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
       ' 执行导入操作
       import_files
   End Sub
   
   ' 停止定时器（建议在数据库关闭时调用）
   Sub StopTimer()
       KillTimer 0, timerID
   End Sub
   

2. 在你的启动宏里调用StartRepeatingTimer函数
3. 为了避免内存泄漏，在数据库的关闭事件里调用StopTimer：
   • 打开数据库的“对象依赖”→点击“数据库对象”→右键“数据库属性”→切换到“事件”选项卡，双击“关闭”事件，写入StopTimer

方案3：Windows任务计划配合命令行（外部触发） #

如果你的场景允许外部触发，可以用Windows任务计划来定时调用Access执行函数：

• 创建一个新的Windows任务计划，设置触发频率为“每30秒”
• 任务操作选择“启动程序”，程序路径填msaccess.exe，参数填：

  "C:\你的数据库完整路径\YourDatabase.accdb" /x import_files
  

  （/x参数用来指定启动时要执行的宏或函数）
• 注意：如果数据库已经处于打开状态，这个命令可能会报错，适合需要定时触发但不需要数据库一直运行的场景

内容的提问来源于stack exchange，提问作者kint