从Excel表导入数据库时如何不导入Excel表与库内表的重复数据？

fatmingli

If Nz([Text0], 0) = 0 Then
MsgBox ("请选择要导入的对象名称！")
Else
DoCmd.TransferSpreadsheet acImport, 5, "" & Text0 & "", "d:\单位程序\" & Text0 & ".xls", True, ""
End If
我用上面的语句从Excel表向库内同名的表导入数据，库内的表有一字段设为了主键，值不可重复，所以当Excel表的字段值与库内主键已有的值重复时，就出错，怎样解决？
是不是先判断Excel表的字段值是否与库内表的主键值相同，相同则该条记录不导入，不相同则导入？具体代码怎么写？

cattjiu

1.不如先导入成另一个表，然后使用追加查询。
2.也可以不使用导入，使用连接Excel文件，然后使用追加查询。

fatmingli

请问，用追加查询可以解决主键的值的重复问题吗？

cattjiu

追加查询不会将重复数据追加到表里，重复数据会产生一个追加错误表，只要把系统警告提示设置为不提示就可以了。

fatmingli

如果这样库内不就多了一些没用的表吗？系统会自动删除吗？

cattjiu

不会，我没有用程序做，我都是用手工做，所以也手工删。你可以分析这种表的名称的特征，然后用程序删除它。