MS Access 表单在表查询完成之前打开

Question

在我的访问数据库中，我有 TABLE1，它是 SQL 2005 服务器表的链接表。我有一个查询 QUERY1，它选择 TABLE1 的子集，操作/格式化其中的一些数据，并将该数据放入临时表 TMP_TABLE1 中（即 SELECT * INTO [TMPTABLE1] FROM [TABLE1]）。我还有一个表单 FORM1，它以 TMP_TABLE1 作为其记录源，我可以在其中查看和操作数据。

以下是完成这些任务的代码：

On Error Resume Next
DoCmd.DeleteObject acTable, "TMPTABLE1"
On Error GoTo 0

DoCmd.SetWarnings False
CurrentDb.Execute "QUERY1", dbSeeChanges
DoEvents
DoCmd.SetWarnings True

DoCmd.OpenForm "FORM1", acNormal, , , , acDialog

我遇到的问题是，我的 FORM1 尝试在 QUERY1 完成处理之前打开，并且收到一条错误消息，指出我的表不存在。我一直将 CurrentDb.Execute 作为同步查询进行体验，并且最近才遇到这种行为。如果我在打开表单之前短暂暂停或循环等待创建表，我的程序将正常工作。

不幸的是，这只是我无法解决的根本问题的一个例子。例如，即使我保留临时表并简单地删除所有记录并附加所有新记录，问题仍然存在。当我在屏幕上显示数据之前操作代码中的数据时，例如 INSERT 语句、UPDATE 语句、DAO.Recordset 和 ADODB.Recordset 对象，都会发生这种情况。

我已经在 Windows 7 64 位、Windows Vista 32 位和 Windows XP 32 位上测试了已编译和未编译的客户端，所有反应都相同。该问题是间歇性的，有时查询会很快完成，我的表单会正确打开，但 90% 的情况下无法打开。

有人对我能做什么有什么想法吗？也许更改了设置以以不同的方式运行查询？这可能是我需要更改的 SQL Server 2005 选项/设置吗？

编辑： 下面是我能想到的最详细的代码，尝试等待表准备好，但它仍然失败。有时，我的执行过程会抛出一个错误，指出 TMPTABLE1 已经存在，即使我在函数开始时将其删除：

On Error Resume Next
DoCmd.DeleteObject acTable, "TMPTABLE1"
On Error GoTo 0

Dim wrk As DAO.Workspace
Set wrk = DBEngine.Workspaces(0)
Dim dbs As DAO.Database
Set dbs = CurrentDb
wrk.BeginTrans
On Error GoTo TransErr
dbs.Execute "QUERY1", dbSeeChanges Or dbFailOnError
wrk.CommitTrans
TransResume:

Dim waitLoop As Long
Do While TableDefExists("_working_ReceivedMaterials") = False
    waitLoop = GetTickCount
    Do While GetTickCount < waitLoop + 100
        DoEvents
    Loop
Loop

DoCmd.OpenForm "ReceivedMaterials_Entry", acNormal, , , , acDialog

Exit Function
TransErr:
    wrk.Rollback
    GoTo TransResume

Answer 1

有时，在删除表然后重新创建表时，Access 会显示奇怪的行为，因此我认为您的代码不会自行绊倒，我认为最好的解决方案是编辑表单并将记录集更改为空。然后在表单“On_Load”事件中设置记录集，例如：

Private Sub Form_Load()

Me.Recordset = "SELECT * FROM TMPTABLE1"

End Sub

或者，不要删除表，只需运行“DELETE FROM TMPTABLE1”，然后然后使用“INSERT INTO TMPTABLE1 SELECT * FROM TABLE1”代替 make table 查询

Answer 2

您是否尝试

CurrentDb.TableDefs.Refresh

过在打开表单之前执行？

Dim db As DAO.Database

Set db = CurrentDb

On Error Resume Next
db.TableDefs.Delete "TMPTABLE1"
On Error GoTo 0

DoCmd.SetWarnings False
db.Execute "QUERY1"
DoCmd.SetWarnings True

db.TableDefs.Refresh

DoCmd.OpenForm "FORM1", WindowMode:=acDialog
db.Close: Set db = Nothing