Access用VBA實現批量刪除有相衕前綴的錶

2012-01-04 12:42:22
秒弒-Office交流網
原創
1776
因爲有時會經常在數據庫內生成“臨時錶_”這樣的前緣錶,需要批量刪除

Dim tbl As DAO.TableDef     
For Each tbl In CurrentDb.TableDefs        
  If Left(tbl.Name, 4) = "臨時錶_" Then             
    DoCmd.DeleteObject acTable, tbl.Name        
  End If     
Next


或者這樣都可以:

Dim tbl As DAO.TableDef     
For Each tbl In CurrentDb.TableDefs         
    If Left(tbl.Name, 4) = "臨時錶_" Then            
       CurrentDb.Execute "DROP TABLE [" & tbl.Name & "]"         
    End If    
Next


(VBA基礎-相關文章技巧鏈接):
怎樣纔刪除Access數詞庫中的空記録
輕鬆幾步幫你刪除Access數據庫中的空記録
分享