Question

我在MSACESS中有一个宏，希望作为计划任务运行，没有gui和弹出的任何确认窗口。宏将记录插入表中。看起来就是这样...

Public Sub Update_Burndown_Metrics()

    Dim SQL_Text As String
    Dim CurrDate As String

    CurrDate = DateValue(CStr(Now()))

    SQL_Text = "insert into BurnDownMetrics (project, domain, tot_effort_spent, tot_effort_left, tot_est_effort, when_captured) select project, domain, sum(effort_spent), sum(effort_left), sum(tot_effort), '" & CurrDate & "' from tasks group by project,domain"

    DoCmd.SetWarnings (False)
    DoCmd.RunSQL SQL_Text
    DoCmd.SetWarnings (True)

End Sub

在Access会话中以交互方式运行时，此宏可以正常工作。当我从.bat这样运行时，它也运行良好...

"C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE" \\Somewhere\Somewhere_else\tdb.accdb /cmd Update_Burndown_Metrics

在此模式下的一个警告是弹出一个窗口，询问我是否真的要插入记录。答案永远是“是”。

现在，我想将.bat作为计划任务运行。我不需要gui，也不需要弹出窗口。能做到吗？

我尝试在宏中粘贴“ Application.Visible = False”。没用我认为这可能仅适用于ExCel？

如何在没有GUI的情况下在后台运行msaccess

0 个答案: