用SQL语句写入时，如何避免重复写入数据？

azw80

Sub 发票数据入库()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\发票数据汇总.xlsx;extended properties=""excel 12.0"""
    SQL = "insert into [Sheet1$] select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[数据$A1:E]"
    cnn.Execute SQL
    MsgBox "数据已经添加到数据库！", vbInformation, "添加数据"
    cnn.Close
    Set cnn = Nothing
End Sub

平常会把一些发票信息写入到一个共享的文件，但是万一数据被连续写入，就重复了好多次，如何解决这个问题？
这个代码怎么改，可以防止人员连续点击按钮，导致数据重复写入？

zpy2

如果你是用数据库比如access,可以在发票号字段设一个主键不重复约束的。

azw80

zpy2 发表于 2018-8-5 14:10
如果你是用数据库比如access,可以在发票号字段设一个主键不重复约束的。

如果是access，那SQL语句该如何写呢？