ms-access - 防止 MS Access 自动更新查询

Question

当表不再存在时，有没有办法阻止 Access 更新查询，特别是删除连接？

例如，以下查询与临时表一起使用；

Select Table1.Col1, Table1.Col2
From   Table1 
  left join Table2 on Table1.Col1 = Table2.Col1
Where  Table2.Col1 is null

如果临时表随后被删除并且查询打开 Access 会删除导致的连接；

Select Table1.Col1, Table1.Col2
From   Table1, Table2
Where  Table2.Col1 is null

这类似于阻止访问更改查询中提出的问题

Answer 1

尝试禁用 AutoCorrect，关闭并重新打开您的数据库，看看是否仍然发生这种情况。

在某些情况下，Access 可能会“做正确的事”并自动更新您的查询。
在这种情况下，您可以使用以下技术之一：

• 将 SQL 保留在 VBA 代码中。
  您可以根据需要绑定生成的 SQL 或重新创建查询，例如：

  ' Bind form to manually using the Form Open event '
  Private Sub Form_Open(Cancel As Integer)
      Dim sql As String
      sql = sql & "Select Table1.Col1, Table1.Col2 "
      sql = sql & "From   Table1 "
      sql = sql & "  left join Table2 on Table1.Col1 = Table2.Col1 "
      sql = sql & "Where  Table2.Col1 is null"
      ' Bind the form directly to the SQL '
      Me.RecordSource = sql
  End Sub
  

• 将查询的 SQL 保存到文件中，并根据需要重新加载：

  ' Save the query to a text file, in the application folder '
  Application.SaveAsText acQuery, "MyQuery", CurrentProject.Path & "\myQuery.txt"
  
  ' Load the the query from its previously saved file '
  Application.LoadFromText acQuery, "MyQuery", CurrentProject.Path & "\myQuery.txt"