DAO打开表语句报错，请高手指点

rcylbx

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

rs 没有这个属性,使用 document

zhouyunliang

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

先谢谢了