在前面的学习中,我们讲过如何使用VBA代码动态创建access对象的内容
比如创建窗体《Access动态创建窗体及动态创建控件》,创建查询《Access vba动态创建查询》
用代码动态创建的窗体会马上显示,但是创建的表和查询对象没有马上显示出来。那么我们如何刷新对象列表呢?
动态创建一个查询并刷新列表对象
Sub CreateRequeryAndRefresh()
CurrentDb.CreateQueryDef "NewRequery", "Select * from Order1"
RefreshDatabaseWindow
End Sub
使用RefreshDatabaseWindow方法在创建、删除或重命名数据库对象之后立即对“数据库”窗口对象进行更改。
创建成功,并在列表中显示对象
领取专属 10元无门槛券
私享最新 技术干货