日志
批量刪除數(shù)據(jù)庫的表對象
|
'調(diào)用方法：Call sc
'
Public Function sc()
Dim dbs As Database
Dim tdf As TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Len(tdf.Connect) = 0 And tdf.Attributes = 0 Then
DoCmd.DeleteObject acTable, tdf.Name
End If
Next tdf
dbs.Close
End Function
Dim dbs As Database
Dim tdf As TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Len(tdf.Connect) = 0 And tdf.Attributes = 0 Then
DoCmd.DeleteObject acTable, tdf.Name
End If
Next tdf
dbs.Close
End Function
