access创建查询并刷新数据库对象

在前面的学习中，我们讲过如何使用VBA代码动态创建access对象的内容

比如创建窗体《Access动态创建窗体及动态创建控件》，创建查询《Access vba动态创建查询》

用代码动态创建的窗体会马上显示，但是创建的表和查询对象没有马上显示出来。那么我们如何刷新对象列表呢？

动态创建一个查询并刷新列表对象

Sub CreateRequeryAndRefresh()
    
    CurrentDb.CreateQueryDef "NewRequery", "Select * from Order1"
    RefreshDatabaseWindow
End Sub

使用 RefreshDatabaseWindow 方法在创建、删除或重命名数据库对象之后立即对“数据库”窗口对象进行更改。

创建成功，并在列表中显示对象