关闭所有打开的Access对象

public Function closebj()
Dim int ST As Integer，intType As Integer，strName As String
Dim RS As DAO。Recordset，J As Long，var return As Variant
' Set RS = Nothing
Set RS = current db。open recordset(" Select msy objects。名字，MSysObjects。键入“& _
”FROM msy objects Where(((msy objects。Name) " & _
"不像' Msys* '和(MSysObjects。Name)不像“~ *”& _
”和((MSysObjects。Type)3和(MSysObjects。Type)-32757 " & _
"和(MSysObjects。类型)-32758))；")
' set rs = currentdb . open recordset(" select * from db _ OBJECT ")
RS . movefirstcharturn = syscmd(acsyscminitmeter，" close object "，RS。record count)
直到rs。EOF
J = J+1
int type = GetTT(RS。字段(1))strName = rs。字段(0)
DoCmd。关闭intType，strName，acSaveYes
'DoCmd。DeleteObject intType，strName
rs。MoveNext
var return = sys cmd(acSysCmdUpdateMeter，J)
Loop
Set RS = Nothing
End Function
Public Function GetTT(var As Variant)As Integer
If var =-32768 Then
GetTT = 2
else If var = 1或var = 6 Then
GetTT = 0
else If var =-32766

为我自己使用，关闭所有对象
br/]