Question

我正在使用Do.CMD.TransferDatabase从第二个访问数据库中复制两个表。 TransferDatabase命令运行，我在表的Access列表中看到该表，但VB代码看不到它。

我怀疑我搞砸了内部表格列表，因为我看到了表格（为myTable MYTABLE1 myTable2）

如果我故意将表格留在那里，Access似乎“看到”表足以不覆盖它并且Access写了一个副本，但是相同的代码没有看到现有的表打开。代码片段（已消毒）：

{       
Dim ws As Workspace
Dim myDB As Database
Set myDB = DBEngine.Workspaces(0).Databases(0)


DoCmd.TransferDatabase acImport, "Microsoft Access", filename, acTable,"myTable", "myTable", False

Dim OriginalInformation As Recordset
Set OriginalInformation = myDB.TableDefs("myTable").OpenRecordset

代码在最后一行停止，并给出错误，即在集合中找不到该项。

如何复制表格，然后查看同一VB函数中的内容？

Answer 1

答案是在导入和使用之间使用myDB.TableDerrs.Refresh myDB.TableDefs（＆＃34; myTable的＆＃34）。OpenRecordset

在使用OpenRecordset的DoCmd.TransferDatabase之后，VB没有看到Table

1 个答案: