關閉所有打開的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