我给你的代码就是在同一表中用的。
xinfresh：access中是可以完全重复的。我试过了。
xinfresh：access中是可以完全重复的。我试过了。
我会拿出我全部的钱财，以保你衣食无忧。我会献出我所有的智慧，以助你一帆风顺。我会想到所有的笑语，以令你展眉开颜。我会挤出最长的时间，以使你终生幸福。 [本人原创的结婚宣言]
XU2000的办法思路帮你解释一下:
Data1.Database.Execute "select distinct * into q from aa "
'把现有表中的东东有重复的只复制一条到Q表中,建议只对一个最重要的字段,而不是*,因为完全相同的二条记录是不太可能的.
Data1.Database.Execute "drop table aa"
'删除原来的表
Data1.Database.Execute "select * into aa from q"
'把Q表中的记录复制到原来的表中
Data1.Database.Execute "drop table q"
'删除Q表
Data1.Refresh
Data1.RecordSource = "select * from aa"
Data1.Refresh