判断表是否加载

wu8313

Private Sub 命令4_Click()

Dim obj As AccessObject, dbs As Object

    Set dbs = Application.CurrentData

    ' 在 AllTables 集合中搜索打开的 AccessObject 对象。

   

  '  For Each obj In dbs.AllTables '不搜索所有的系统表

   

    If dbs.AllTables(半年数据).IsLoaded = True Then

   

    MsgBox "表已经被装载"

   ' Cancel = True

    Else

     MsgBox "表没有被装载"

      '  Next obj

     End If

End Sub

事实上表“半年数据”已经作为子窗体被加载，可是上面的判断isloaded=true却无效？什么原因？

[此贴子已经被作者于2004-12-6 9:50:19编辑过]