运行 Access Query 时反复弹出不需要的 SQL Server 登录对话框

Posted 2023-03-23

【中文标题】运行 Access Query 时反复弹出不需要的 SQL Server 登录对话框

【英文标题】：Unwanted SQL Server Login Dialog Box repeatedly pops up while running Access Query

【发布时间】：2014-08-21 14:31:26

【问题描述】：

在运行一个运行多个连接到 ODBC 数据库的查询的表单时，我得到了 SQL Server 登录对话框。我可以点击确定登录，因为我可以使用受信任的连接。

由于此查询是通过一个 VBA 宏自动运行的，该宏会多次循环执行多个查询，因此该对话框经常出现。每次弹出时我都会单击“确定”，但在这种情况下，它需要很长时间才能运行。

有没有办法阻止这个对话框出现？

VBA 代码：

Private Sub Run_All_Months_Click()
Dim db As DAO.Database
Dim rst As Recordset

Set db = CurrentDb()
Set rst = db.OpenRecordset("MDate query")

With rst
.MoveFirst
[BOP Date].Value = rst("Monthly Dates").Value
.MoveNext
[Reporting Date].Value = rst("Monthly Dates").Value
DoCmd.RunMacro ("Monthly Report Macro")
Do
    [BOP Date].Value = rst("Monthly Dates").Value
    .MoveNext
    If (Not .EOF) Then
        [Reporting Date].Value = rst("Monthly Dates").Value
        DoCmd.RunMacro ("Monthly Report Macro")
    End If
Loop Until .EOF
End With
db.Close
End Sub

【问题讨论】：

您的代码中有一些东西或一些网络问题或其他东西，因为这是不正常的。您的连接存储在（我假设）您的链接表中，除非您使用 SQL Auth 并且不保存密码，否则永远不应要求您提供信息。

我在问题中添加了代码。它进入“月度报告宏”，它只打开一个查询。如果我在对话框中点击取消而不是确定，调试器将在月度报告宏的行上停止。如果我单击查询本身，则会显示对话框，因此我认为我发布的代码很好，它是查询中的内容或在网络错误或其他内容之前发布的内容

您发布的代码不包含与 SQL Server 的任何连接 - 它必须在月度报告宏中。你也可以发布代码吗？

【参考方案1】：

我能够找出问题所在。我必须通过右键单击其中一个来重新链接来自 OBDC 的所有表格，这会显示重新链接的选项。 VBA 代码工作正常