还有一个：为什么用vba同时给两张表添加字段报错？

summerandfish

求助：为什么用vba同时给两张表添加字段报错？

我希望在第一张表（XXX）中添加一个字段（haha），运行一些查询，最后用生成表查询生成第二张表（YYY），然后在第二张表中再添加字段（lala）。代码如下：

Private Sub Command1_click()

Dim mydb As Database
Dim sql As String

mydata = CurrentProject.Path & "\db1.mdb"
Set mydb = OpenDatabase(mydata)

With mydb.TableDefs("XXX")
    .Fields.Append .CreateField("haha", dbText, 255)
    .Fields.Refresh
End With

sql = "select haha into YYY " _
    & "from XXX "

DoCmd.RunSQL sql

With mydb.TableDefs("YYY")
    .Fields.Append .CreateField("lala", dbText, 255)
    .Fields.Refresh
End With

End Sub

为什么提示Run-time error '3265' Item not found in this collection.

请各位大侠帮忙！！！

跪谢啦！

zhengjialon

DoCmd.RunSQL sql 换成currentproject.Connection.Execute sql试试，可能是表的更改没有刷新

summerandfish

多谢。
我按照你说的做了，但没成功。
但你的思路是对的，我在immediate窗口中测试了，是因为没有刷新。
我尝试在给第二张表添加字段前增加如下语句 mydb.tabledefs.refresh
如果直接运行还是不成功的，但如果之前设立一个break，稍等一会就会成功的。

我也不清楚这是为什么。