VBA创建的查询不能编辑

朱生　发表于：2016-06-18 15:06:09 　

复制

请教下大家，我用VBA创建的一个查询，可以打开，但是设计视图就出错，试过很多方法都是这样，SQL语句也可以运行，请指点下，谢谢！

点击下载此附件

Top

yuhong 发表于：2016-06-18 20:34:06

因为你第一次点击按钮时，创建了“”VBA创建的新查询“”，第二次点击时,还要创建，肯定出错，所以加上判断语句，点击时判断一下是否已经存在！

加上一段判断代码吧！

For i = 0 To CurrentDb.QueryDefs.Count - 1

If CurrentDb.QueryDefs(i).Name = "VBA创建的新查询" Then
MsgBox "VBA创建的新查询已经存在!"

Exit For

else

............................

End If
Next i

Top

朱生发表于：2016-06-20 08:18:34

不是的，创建后的会删除的，现在的问题不是能不能创建的问题？

是创建后的查询有问题？

你可以试下附档，创建后的查询可以双击运行打开，但是设计视图就不行？应该是SQL语句赋值给查询有问题。。

Top

朱生发表于：2016-06-20 16:53:58

这个问题没人知道吗？？

Top

bestcity 发表于：2016-06-21 17:21:15

    '删除原表
    DoCmd.DeleteObject acQuery, "VBA创建的新查询"

    '创建表
    Set y001 = CurrentDb.CreateQueryDef("VBA创建的新查询", x001(0))
    y001.Close
    Set y001 = Nothing

因为新创建表后不是即时刷新显示的，所以你没看到，这时再点一次创建后就会提示已存在，

你可以在创建后，手动点一下另外一个查询表，这样新的表也会显示出来。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

VBA创建的查询不能编辑