一、问题描述:

老师，如何用代码实现删除有相同前缀的表，比如前缀都是"临时表_"

二、解答:

需要写一个自定义的过程或者函数 下面列出的是自定义的过程

操作办法：放到模块按f5运行即可

Sub test()
Dim tbl As Object    
For Each tbl In CurrentDb.TableDefs        
  If Left(tbl.Name, 4) = "临时表_" Then             
    DoCmd.DeleteObject acTable, tbl.Name        
  End If     
Next
End Sub