在MDB未修复压缩的情况下恢复被删除的表
Sub UnDeleteTBL() Dim tbl As DAO.TableDef Dim i As Byte i = 0 For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) = "~tmp" Then i = i + 1 tbl.Attributes = 0 tbl.Name = "Undelete" & i End If Next End Sub