日志
- 分享 批量删除数据库的表对象
- '调用方法：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 Functi ...
