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

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