在Microsoft Access 2007中,通过VBA代码,可以通过单击导航窗格中的以下内容来了解所选对象:
dim strObjName as String, lObjType as Long
strObjName = Application.CurrentObjectName
lObjType = Application.CurrentObjectType
这样只能选择一个对象。
现在,我想选择多个对象,例如,从用于我们的物理商店管理的后端SQL Server导出几个选定的表,作为.sql文本文件创建用于网站使用的MySQL表。
我的问题是,在Visual Basic for Application中,如何通过Shift-Click获取在导航窗格中选择的对象列表,以便同时选择多个对象,如图5所示,在Access 2007中用棕色背景色标记。这样的方式:
dim xObjs
Set xObjs = Application.SelectedObjects ' this property does not exist.
?
我认为导航栏没有收集对象,在这种情况下,这可能是您唯一的希望。
我建议您使用多选列表框创建自己的表单,在表单加载时用Query对象填写表单,然后编写代码遍历列表框并导出所选项目。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句