Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

怎样查询ADP对象?

丁丁  发表于:2009-11-03 18:10:18  
复制

Access对象是在MSysAccessObjects表中可以查询,ADP的表和查询在sysobjects中也可以查到,但ADP的窗体、报表、模块在哪里可以查得到?

 

Top
andymark 发表于:2009-11-04 08:03:27

同样可以FORMS REPORTS Modules集合

 

列举所有窗体:

 

Dim Obj As Object

For Each Obj In Application.Forms

   Debug.Print Obj.Name
Next

 

列举所有报表

 

Dim Obj As Object

For Each Obj In Application.Reports

   Debug.Print Obj.Name
Next

 

列举所有模块

 

Dim Obj As Object

For Each Obj In Application.Modules

   Debug.Print Obj.Name
Next



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