删除表中的重复项

包含重复项的表是infoData，表中的字段是ID、企业名称、注册地址、企业负责人、业务范围、临时表tbltemp。

在窗体中创建一个按钮，并在按钮事件中编写代码，如下所示:

private Sub command 0 _ Click()
Dim str SQL As String
Dim str SQL 2 As String
Dim str SQL 3 As String
Dim str SQL 4 As String
str SQL = " select distinct enterprise name，registered address，enterprise head，Scope of business into temp from infodata "
str SQL 2 = " delete from info data "
str QL 3 = " insert into info data select * from "/ br/"SetWarnings False
DoCmd。RunSQL strsql
DoCmd。SetWarnings False
DoCmd。RunSQL strsql2
DoCmd。SetWarnings False
DoCmd。RunSQL strsql3
DoCmd。SetWarnings False
DoCmd。RunSQL strsql4
End Sub