包含重复项的表为infoData,表中字段为ID,企业名称,注册地址,企业负责人,经营范围,建临时表tbltemp

在窗体中建个按钮,按钮事件中写代码如下:

Private Sub Command0_Click()
Dim strsql As String
Dim strsql2 As String
Dim strsql3 As String
Dim strsql4 As String
strsql = "select distinct 企业名称,注册地址,企业负责人,经营范围 into tbltemp from InfoData"
strsql2 = "delete from InfoData "
strsql3 = "insert into InfoData select * from tbltemp"
strsql4 = "delete from tbltemp"
DoCmd.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