Office中国论坛/Access中国论坛

标题: DAO打开表语句报错，请高手指点 [打印本页]

作者: rcylbx 时间: 2008-7-28 23:20
标题: DAO打开表语句报错，请高手指点
Dim tbl As TableDef
Dim strTbl As String
Dim rs As DAO.Recordset

For Each tbl In CurrentDb.TableDefs'循环所有表
   strTbl = tbl.Name'取得表名
   MsgBox strTbl

   Set rs = CurrentDb.OpenRecordset(strTbl)
   MsgBox rs.Properties.Item("description").Value'取得数据表说明属性值
   rs.Close
Next

经过测试，出错代码可能在OpenRecordset(strTbl)处，strTbl变量不能正确取值造成的

[ 本帖最后由 rcylbx 于 2008-7-28 23:47 编辑 ]

作者: ui 时间: 2008-7-29 08:51
rs 没有这个属性,使用 document

作者: zhouyunliang 时间: 2008-7-29 11:31
Dim tbl As TableDef
dim strdes as string
on error resume next
For Each tbl In CurrentDb.TableDefs'循环所有表
strdes= Tbl.Properties("description").Value
if err=0 then msgbox strdes
next

作者: rcylbx 时间: 2008-7-29 18:50
先谢谢了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)