还请高手帮忙啊! 作者: andymark 时间: 2008-3-23 10:50
try
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
If Left((obj.Name), 4) <> "MSys" And Left((obj.Name), 1) <> "~" Then
If obj.Name = "月汇总表" Then
DoCmd.DeleteObject acTable, obj.Name
End If
End If
Next obj作者: xsddpj 时间: 2008-3-23 14:02
非常感谢 andymark,你帮我解决了一个难题,我做了几天都没做出来,你真行