Office中国论坛/Access中国论坛

标题: 判断表是否加载 [打印本页]

作者: wu8313 时间: 2004-12-6 17:48
标题: 判断表是否加载
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却无效？什么原因？

[attach]7965[/attach]

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

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